Макрос для удаления строк из столбцов, которые имеют меньше 4 символов

Question

Я использую следующий код, чтобы попытаться удалить целые строки, когда он содержит менее 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 

Edit: Я получаю сообщение об ошибке VBA в следующей строке:

LR = Range("NAME" & Rows.Count).End(xlUp).Row 

Answer 1

Как уже упоминалось в предыдущих комментариях, ваше заявление

LR = Range("NAME" & Rows.Count).End(xlUp).Row 

, а также,

Len(Range("NAME" & i).Value) 

просто дон «В VBA в ваших программах есть смысл, так как они эквивалентны словам.

Range(Name81).Value '81 is a random number 

И если у вас есть определенное имя в вашей книге под названием Name81 (или любое другое число), что код будет производить ошибки времени выполнения.

Я думаю, что это получает вы хотите, вы хотите:

Sub Macro2() 

' Macro to delete rows if there are less than 4 in the NAME column 

    Dim LR As Long, i As Long, lngCol as Long 

    lngCol = Rows(1).Find("NAME",lookat:=xlWhole).Column 'assumes there will always be a column with "NAME" in row 1 

    Application.ScreenUpdating = False 


    LR = Cells(Rows.Count, lngCol).End(xlUp).Row 

    For i = LR To 1 Step -1 

     If Len(Cells(i, lngCol).Value) < 4 Then Rows(i).Delete 

    Next i 

    Application.ScreenUpdating = True 

End Sub