Это будет использовать Column A
, чтобы определить, где последний использованный ряд (LR
).Мы будем использовать Row 1
, чтобы определить, где находится последний использованный столбец (LC
)
Затем мы очистим содержимое и форматы от A1
(в верхнем левом углу угла диапазона) до LC:LR
(в нижнем правом углу)дальнего угла)
Option Explicit
Sub Clear()
Dim ws As Worksheet: Set ws = ThisWorkbook.Sheets("Sheet1") '<-- UPDATE SHEET NAME
Dim LR As Long 'Last Row
Dim LC As Long 'Last Column
LR = ws.Range("A" & ws.Rows.Count).End(xlUp).Row
LC = ws.Cells(1, ws.Columns.Count).End(xlToLeft).Column
ws.Range(ws.Cells(1, 1), ws.Cells(LR, LC)).ClearContents
ws.Range(ws.Cells(1, 1), ws.Cells(LR, LC)).ClearFormats
End Sub