Question

我希望清除包含G列格式的内容，直到列中的最后一个数据。注意列G中间还有一些空单元格。我使用下面的代码它工作正常，但它清除所有列的数据。如有任何帮助，将不胜感激。

Sub ClearData()
Range("A3", Columns("A").SpecialCells(xlCellTypeLastCell)).Clear
MsgBox ("Data Cleared")
End Sub

由于

Answer 1

下面的代码ClearContents和ClearFormats来自列＆＃34; G＆＃34; （从＆＃34; G3＆＃34开始;直到最后一行，数据在列＃34; G＆＃34;）

Sub ClearData()

With Range("G3:G" & Cells(Rows.Count, "G").End(xlUp).Row)
    .ClearContents
    .ClearFormats
End With
MsgBox "Data Cleared"

End Sub

用于清除内容的宏，包括列中的格式

1 个答案: