刪除列A如果列B是空的

Question

有人可以告訴我什麼VB代碼我可以使用，以獲得以下宏的Excel結果？

如果列B爲空白，我希望刪除列A中的內容。這是我已經走了多遠：

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 

首先你需要一個循環，循環中列所有單元

For i = Range("A" & Rows.Count).End(xlUp).Row To 1 Step -1設置了一個循環，從最後一個單元格迭代到第一個在列A中

Range("A" & Rows.Count).End(xlUp).Row發現在塔中使用的

Set r = Range("A" & i)套R參數是一個範圍對象的最後一個單元

If IsEmpty(r.Offset(0, 1)) Then B列在同一行上偏移指向細胞，因此，如果它的列A（其是小區的相鄰小區（sameRow，柱B）是空的，則

r.EntireRow.Delete shift:=xlUp刪除整個行

Application.ScreenUpdating = False/True關閉屏幕更新以在使用循環時加快執行速度