當某些列爲空時刪除行

Question

有沒有人有什麼錯這個代碼？當列A到F爲空時，它應該刪除行。謝謝

Sub range_reporter() 
    Dim n As Long 
    Dim nLastRow As Long 
    Dim nFirstRow As Long 
    ActiveSheet.UsedRange 
    Set r = ActiveSheet.UsedRange 
    nLastRow = r.Rows.Count + r.Row - 1 
    nFirstRow = r.Row 
    For n = nLastRow To nFirstRow Step -1 
     If Cells(n, "A") & Cells(n, "B") & Cells(n, "C") & Cells(n, "D") & Cells(n, "E") & Cells(n, "F") = "" Then 
      Cells(n, "A").EntireRow.Delete 
     End If 
    Next n 
End Sub 

Answer 1

你的問題是，你正在使用不當語法「和」（以下簡稱「&」字是連接）。看看下面的代碼，我只是測試它，它工作正常。

Sub range_reporter() 
    Dim n As Long 
    Dim nLastRow As Long 
    Dim nFirstRow As Long 

    ActiveSheet.UsedRange 

    Set r = ActiveSheet.UsedRange 
    nLastRow = r.Rows.Count + r.Row - 1 
    nFirstRow = r.Row 

    For n = nLastRow To nFirstRow Step -1 
     If Cells(n, "A") = "" And Cells(n, "B") = "" And Cells(n, "C") = "" And Cells(n, "D") = "" And Cells(n, "E") = "" And Cells(n, "F") = "" Then 
      Cells(n, "A").EntireRow.Delete 
     End If 
    Next n 

End Sub