Как найти последний ряд таблицы и очистить определенные столбцы?

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

Это базовая c вещь, которая очищает последнюю строку для каждого, при условии, что она одинакова для каждого столбца. Я не уверен, какова была цель вашего заявления 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