VBA清除工作表中的数据，但第一行和第G列除外

Question

谁能告诉我如何在不清除第一行和列G的情况下清除工作表的内容？

Answer 1

Voila!

Range("A2:F" & Rows.Count).ClearContents
Range("H2", Cells(Rows.Count, Columns.Count)).ClearContents

Answer 2

you could use a SpecialCells() method flavor to act (ie ClearContents ) on visible cells only, as follows:

Sub main()
    HideMyFavorites True '<--| hide your favorite rows/columns
    Cells.SpecialCells(xlCellTypeVisible).ClearContents '<--| clear the content of "visible" cells only
    HideMyFavorites False '<--| unhide your favorite rows/columns
End Sub

Sub HideMyFavorites(doHide As Boolean)
    Columns(7).Hidden = doHide '<--| hide/unhide column "G" (whose column index of "7")
    Rows(1).Hidden = doHide '<--| hide/unhide row "1"
End Sub