我正在编写代码以搜索范围内的每个单元格。我想查找2个或更少字符（例如“ 12”“ ab”）的所有值，然后删除这些单元格。我已经可以正常工作了，但是VBA代码的运行速度非常慢，并且每次运行只支持1列。因此，它将无法找到所有内容，只需在A列中找到它，然后代码将结束而无需移至B列。
到目前为止，这是我的代码：
Sub test2()
Dim i As Integer
Dim j As Integer
For i = 1 To 524
For j = 1 To 12
If Len(Cells(i, j)) <= 2 Then
Cells(i, j).Delete Shift:=xlToLeft
End If
Next j
Next i
End Sub
考虑使用：
Sub test2()
Dim i As Integer
Dim j As Integer
Application.ScreenUpdating = False
For i = 1 To 524
For j = 12 To 1 Step -1
If Len(Cells(i, j)) <= 2 Then
Cells(i, j).Delete Shift:=xlToLeft
End If
Next j
Next i
Application.ScreenUpdating = True
End Sub
本文收集自互联网，转载请注明来源。
如有侵权，请联系[email protected] 删除。
我来说两句