excel中,某列数据中,只要不是4个字节的。那么所在的行就给删掉。求解 ...
发布网友
发布时间:2024-10-23 23:06
我来回答
共2个回答
热心网友
时间:2024-10-23 23:50
‘例如B列
Sub 删除行()
Dim i As Long, b As Long
b = Range("B65536").End(xlUp).Row
For i = b To 1 Step -1
If Len(Range("B" & i)) <> 4 Then
Range("B" & i).EntireRow.Delete
End If
Next i
End Sub
热心网友
时间:2024-10-23 23:52
最简单的方法,在表头筛选中自定义,选择不等于,后来填入????,(四个问号),选择除表头的所有行,删除行,取消筛选。KO