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

我没有看到任何可能导致代码错误的内容，除了您的参考资料不符合正在使用的工作表这一事实 - 这意味着一切都将默认在{ {1}}可能不是您希望它处理的工作表。

假设您要处理的工作表有一个ActiveSheet＆＃34; Stow＆＃34;，以下代码应该更安全：

Name

用于清除最后一个单元格和最后一个单元格公式的VBA代码

1 个答案: