Удалить столбец A, если колонка B пуста

Question

Может ли кто-нибудь сказать мне, какой код VB я могу использовать, чтобы получить следующий результат макроса excel?

Я хочу, чтобы содержимое из столбца A было удалено, если столбец B пуст. Это то, как далеко я пришел:

If Range ("B66")= IsEmpty Then 
Range ("A66").Select 
Selection.ClearContents 
End If 

Answer 1

Sub Main() 
Application.ScreenUpdating = False 
    Dim i As Long, r As Range 
    For i = Range("A" & Rows.Count).End(xlUp).Row To 1 Step -1 
     Set r = Range("A" & i) 
     If IsEmpty(r.Offset(0, 1)) Then r.EntireRow.Delete shift:=xlUp 
    Next i 
Application.ScreenUpdating = True 
End Sub 

первый вам нужен цикл, чтобы перебрать все ячейки в столбце A

For i = Range("A" & Rows.Count).End(xlUp).Row To 1 Step -1 устанавливает цикл, который перебирает из последней ячейки в первой в колонке А

Range("A" & Rows.Count).End(xlUp).Row находит последнюю ячейку, используемый в колонке A

Set r = Range("A" & i) устанавливает переменную г быть объектом Диапазон

If IsEmpty(r.Offset(0, 1)) Then Смещение указывает на ячейку в столбце B в той же строке, так что если соседняя ячейка столбца А (который является клетка (sameRow, колонка Б) пусто, то

r.EntireRow.Delete shift:=xlUp удалить всю строку

Application.ScreenUpdating = False/True выключить обновление экрана, чтобы ускорить выполнение при использовании петель