当特定“NAME”列中的字符少于 4 个时,我正在使用以下代码尝试删除整行。(即第 1 行中的标题为 NAME 的列) 数据库当前有大约 10,000 行。我知道现在的代码很接近,但是在尝试运行它时出现 VB 错误。我想我可能会按名称错误地搜索特定列。
Sub Macro2()
' Macro to delete rows if there are less than 4 in the NAME column
Dim LR As Long, i As Long
Application.ScreenUpdating = False
LR = Range("NAME" & Rows.Count).End(xlUp).Row
For i = LR To 1 Step -1
If Len(Range("NAME" & i).Value) < 4 Then Rows(i).Delete
Next i
Application.ScreenUpdating = True
End Sub
编辑:我在以下行中收到 VBA 错误:
LR = Range("NAME" & Rows.Count).End(xlUp).Row