シート内のVBAデータのクリア最初の行と列G

Question

誰かが最初の行と列Gを消去せずにシートの内容をクリアする方法を教えていただけますか？

よろしく ブライアン

Answer 1

出来上がり！次のように

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

Answer 2

あなたは、唯一の可視セルに（すなわちClearContents）行動するSpecialCells()方法風味を使用することができます。

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