如何找到表的最后一行并清除某些列？

Question

我有一个表（Table1），该表将通过在末尾添加行来增长。我需要一个代码来找到该表的最后一行，并清除列D，E，H，K，L，M的值/公式。

我正在使用以下代码，但是它清除了从第2行到最后一行的所有内容，而不仅仅是最后一行。

Sub ClearRowData()

Dim Lastrow As Long
Lastrow = Range("B" & Rows.Count).End(xlUp).Row + 1
Range("D2:D" & Lastrow).Clear

End With

End Sub

Answer 1

这是一个基本的东西，只要每一列都相同，它就会清除每一行的lastrow。我不确定您的with语句的目的是什么，但我也删除了它。

有一些更理想的方法来实现您的工作，但是这样做很简单。

Sub ClearRowData()

Dim Lastrow As Long
Lastrow = Range("B" & Rows.Count).End(xlUp).Row + 1 
Range("D" & Lastrow).Clear
Range("E" & Lastrow).Clear
Range("H" & Lastrow).Clear
Range("K" & Lastrow).Clear
Range("L" & Lastrow).Clear
Range("M" & Lastrow).Clear

End Sub