|
シート内のセルの内容をクリアする方法です。
使い方は、ファイル一覧を使った応用の、「マクロ専用ファイル」によるマクロ実行に、下記コードを入れます。
・完全にクリア
Excel_App.ActiveSheet.Range("A1:Z30").Clear
・計算式・文字・値だけクリア
Excel_App.ActiveSheet.Range("A1:Z30").ClearContents
・計算結果を残して、計算式のみをクリア
Excel_App.ActiveSheet.Range("A1:Z30").Value = Excel_App.ActiveSheet.Range("A1:Z30").Value
・数字のみクリア(文字・計算式はそのまま)
Excel_App.ActiveSheet.Range("A1:Z30").SpecialCells(xlConstants, xlNumbers).ClearContents
・文字列の中の空白のクリア
Excel_App.ActiveSheet.Range("A1:Z30").Replace what:=Space(1), Replacement:="", LookAt:=xlPart, SearchOrder:=xlByRows, MatchCase:=False '半角のスペース
Excel_App.ActiveSheet.Range("A1:Z30").Replace what:=StrConv(Space(1), VbWide), Replacement:="", LookAt:=xlPart, SearchOrder:=xlByRows, MatchCase:=False '全角のスペース
・文字列の中の改行のクリア
Excel_App.ActiveSheet.Range("A1:Z30").Replace what:=vbLf, Replacement:="", LookAt:=xlPart, SearchOrder:=xlByRows, MatchCase:=False
・条件付き書式のみのクリア
Excel_App.ActiveSheet.Range("A1:Z30").FormatConditions.Delete
|