ここから本文です

複数エクセルファイルの特定セルを対象に一括消去(Clear)したい C:\Users\Doc...

kim********さん

2014/11/1317:01:48

複数エクセルファイルの特定セルを対象に一括消去(Clear)したい

C:\Users\Documents\Aというフォルダ内にある複数のエクセルファイルを対象に、

Sheet1のA5セルのデータを一括消去したいのですが、何かいい方法はありませんでしょうか。

閲覧数:
360
回答数:
1
お礼:
50枚

違反報告

ベストアンサーに選ばれた回答

T.Mさん

2014/11/1616:18:48

マクロならこんな感じです。
必ず、テスト用ブックで試してから実行してください。

念のため、標準モジュールへのマクロ設定方法です。
①下記のコード全体をコピーします。
②EXCELの画面で、Altを押しながらF11を押してVBE画面にします。
③メニューの挿入から標準モジュールを選択します。
④中央右側の空白な場所に貼り付けます。
⑤右上の×で閉じます。VBE画面を終了します。
シートの画面に戻ります。
*** マクロの実行方法 ***
①Altを押しながらF8を押して、マクロの実行画面を出します。
②実行したいマクロ名を選択した後、実行ボタンを押します。

Sub sample()
Dim myFolder As String 'フォルダー名
Dim myFile As String '開くブックのファイル名

myFolder = "C:\Users\Documents\A"
myFile = Dir(myFolder & "\*.xls*") '対象フォルダーのエクセルファイル名
Do
Workbooks.Open myFolder & "\" & myFile '対象フォルダーのエクセルファイル名を開く
ActiveWorkbook.Sheets("Sheeet1").Range("A5").ClearContents 'Sheet1のA5セルのデータを消去
ActiveWorkbook.Close SaveChanges:=True 'ブックを閉じる
myFile = Dir() '次のブックがあるかを確認
Loop While myFile <> "" 'ブックが無ければループから抜け、終了する。
End Sub

この回答は投票によってベストアンサーに選ばれました!

あわせて知りたい

みんなで作る知恵袋 悩みや疑問、なんでも気軽にきいちゃおう!

Q&Aをキーワードで検索:

Yahoo! JAPANは、回答に記載された内容の信ぴょう性、正確性を保証しておりません。
お客様自身の責任と判断で、ご利用ください。
本文はここまでです このページの先頭へ

「追加する」ボタンを押してください。

閉じる

※知恵コレクションに追加された質問は選択されたID/ニックネームのMy知恵袋で確認できます。

不適切な投稿でないことを報告しました。

閉じる