Excelマクロ 複数のブック内の特定の列にある文字を置換したいです Excel初心者です。 9つの

Excelマクロ 複数のブック内の特定の列にある文字を置換したいです

Excel初心者です。
9つのファイル全てに対し、特定の列内にある特定のキーワードの置換処理を行うマクロを作成することは可能でしょうか？

例えば、A列～J列10000行のデータがあるとして、その中のB列、E列、G列の「1」を空白に置換したい、といったことなのですが………

説明におかしいところがありましたら申し訳ございません。
よろしくお願いいたします。

No.2 ベストアンサー 回答者： tom04 回答日時： 2017/11/29 19:43

こんばんは！

＞9つのファイル全てに対し・・・
同じフォルダの保存されていて、「xlsx」ファイルすべてを対象としています。

＞例えば、A列～J列10000行のデータがあるとして・・・
シート名の指定がないので、「Sheet1」に限定しています。

以下のコードを標準モジュールに登録してみてください。

Sub Sample1()
Dim myPath As String, fN As String
Dim wB As Workbook, wS As Worksheet

myPath = "保存場所のパス" & "\"
fN = Dir(myPath & "*.xlsx")
Application.ScreenUpdating = False
Do While fN <> ""
Workbooks.Open myPath & fN
Set wB = ActiveWorkbook
Set wS = wB.Worksheets("Sheet1")
wS.Range("B:B,E:E,G:G").Replace what:=1, replacement:="", lookat:=xlWhole
'//開いたブックを上書き保存して閉じる//
wB.Save
wB.Close
fN = Dir()
Loop
Application.ScreenUpdating = True
MsgBox "完了"
End Sub

この回答へのお礼

お陰さまで作業することができました！
ありがとうございました✨

お礼日時：2017/11/30 12:41

No.1 回答者： yokomaya 回答日時： 2017/11/29 19:29

>9つのファイル全てに対し

その９つはどこにあるのでしょう？
開いてるの？リストがあるの？

＞マクロを作成することは可能でしょうか？
日本語で理路整然となることは基本的にマクロ化可能です。

＞B列、E列、G列の「1」を空白に置換

これってマクロ記録できますよね。
あとは９つのブックをどうしたいのかだけでは？