用於清除最後一個單元格和最後一個單元格的公式的VBA代碼

Question

我想清除包含最後一個空白單元格的整個單元格。這就是我正在努力的工作，但它不工作。其他代碼會影響它嗎？由於

Dim myLastRow As Long 
Dim clearCell As Long 

    Application.ScreenUpdating = False 

' Find last row 
    myLastRow = Cells(Rows.Count, "C").End(xlUp).Row 

' Loop through range 
    For clearCell = 4 To myLastRow 
     If Cells(clearCell, "C").Value = "" Then Range(Cells(clearCell, "C"), Cells(clearCell, "C")).Clear 
    Next clearCell 

    Application.ScreenUpdating = True 

Answer 1

我看不到任何會導致錯誤在你的代碼，不是事實，你引用不與正在使用的紙張等資格 - 這意味着一切都將默認操作上ActiveSheet這可能不是您希望它工作的工作表。

假設你要處理的板材具有「斯托」的Name，下面的代碼應該是更安全：

Dim myLastRow As Long 
Dim clearCell As Long 

Application.ScreenUpdating = False 

'Use a "With" block to save typing Worksheets("Stow") in lots of places 
'(e.g. within the block we can type ".Cells" instead of "Worksheets("Stow").Cells" and 
' ".Rows" instead of "Worksheets("Stow").Rows") 
With Worksheets("Stow") 
    ' Find last row 
    myLastRow = .Cells(.Rows.Count, "C").End(xlUp).Row 

    ' Loop through range 
    For clearCell = 4 To myLastRow 
     ''Clear any cells with a value of "" 
     'If .Cells(clearCell, "C").Value = "" Then .Cells(clearCell, "C").Clear 

     'Clear any cells with a value of "-" 
     If .Cells(clearCell, "C").Value = "-" Then .Cells(clearCell, "C").Clear 
    Next clearCell 
End With 
Application.ScreenUpdating = True