以下は同一ブック内の「置換」のワークシートに
A列に検索文字
B列に置換文字
を書き、置換するマクロなのですが、これですと同一ブック内でしか作業できません。
このリストを別ファイル(例えば"Book2.xls"の"sheet1")に書き、別のファイル(例えば"Book1.xls")で実行するにはどうしたらよいでしょうか。
Sub 置換()
For i = 1 To Worksheets("置換").Range("A65536").End(xlUp).Row
Cells.Replace What:=Worksheets("置換").Range("A" & i).Value, _
Replacement:=Worksheets("置換").Range("B" & i).Value, _
LookAt:=xlPart, SearchOrder:=xlByColumns
Next
End Sub
No.1ベストアンサー
- 回答日時:
明示的に対象となるシートを指定すれば良いだけです。
例えば、標準モジュールに下記を転記して、そのブック(質問では Book2.xls)の一番左のシートに置換用の設定をします。
Sub 置換()
With ThisWorkbook
If ActiveSheet Is .Worksheets(1) Then Exit Sub
For i = 1 To .Worksheets(1).Range("A65536").End(xlUp).Row
ActiveSheet.Cells.Replace _
What:=.Worksheets(1).Range("A" & i).Value, _
Replacement:=.Worksheets(1).Range("B" & i).Value, _
LookAt:=xlPart, SearchOrder:=xlByColumns
Next
End With
End Sub
置換したいブック(質問では Book1.xls)の対象シートを選択して実行すれば希望の動作になると思います。
なるほど、ありがとうございます。
置換リストを書いたブック(ここではBOOK2.xls)のマクロではなく、PERSONL.xlsのマクロとして動作させることは可能でしょうか? つまり置換リストを書いたブック(ここではBOOK2.xls)を開かずに実行できないかな、ということでございます。
お探しのQ&Aが見つからない時は、教えて!gooで質問しましょう!
似たような質問が見つかりました
- Excel(エクセル) vba userformで漢字を全角カタカナに 2 2022/07/24 15:38
- Visual Basic(VBA) エクセルのマクロを使ってメールを送る方法について教えてください 2 2022/03/29 01:36
- Visual Basic(VBA) Excel VBA メール作成について 本文の中にExcel でコピーした図を上下に2つ 貼り付けを 2 2023/06/14 01:48
- Visual Basic(VBA) 3つのプロシージャをまとめたら実行時エラー発生で対応不能 6 2022/05/17 01:47
- Visual Basic(VBA) エクセルのマクロについて教えてください。 7 2023/07/04 09:18
- Visual Basic(VBA) 他のシートからコピーする下記マクロで貼付け位置をWorksheets(1).Range("A3")の 8 2023/01/30 18:48
- Visual Basic(VBA) 2つ目のコンボボックスが動作しません。 3 2023/03/25 12:29
- Visual Basic(VBA) ワイルドカード「*」を使うとうまくいかないマクロの添削をお願いします 3 2022/03/26 09:39
- Visual Basic(VBA) excel2021で実行できないマクロ。どこを直したらいいのか 2 2022/03/28 03:40
- PowerPoint(パワーポイント) エクセルのマクロについて教えてください。 2 2022/11/18 15:34
関連するカテゴリからQ&Aを探す
おすすめ情報
デイリーランキングこのカテゴリの人気デイリーQ&Aランキング
-
カンマ区切り形式ではなく、セ...
-
txtファイル内の指定の単語の数...
-
ExcelのROUND関数を一括解除し...
-
エクセルで置換リストを別ブッ...
-
置換(検索場所に「ブック」を...
-
アクセスのテーブル上でデータ...
-
置換個溶について☆
-
ずばっと、一気にリンク解除を...
-
エクセル「検索と置換」の表示...
-
EXCELデータ上で複数のキーワー...
-
Access Excel Wordで文章内の文...
-
imageフォルダの名前を変えたい...
-
文字を一括で置換するソフト・...
-
外付けハードディスクの音楽デ...
-
複数のhtmlファイルのソースを...
-
置換での互換(交代多項式・差...
-
Wordチェックボックス作り方(...
-
秀丸で検索の候補をDeleteでま...
-
超巨大テキストドキュメント ...
-
生年月日の変換
マンスリーランキングこのカテゴリの人気マンスリーQ&Aランキング
-
カンマ区切り形式ではなく、セ...
-
エクセルで例えば、関数を使っ...
-
エクセルでアルファベット5段階...
-
文字を一括で置換するソフト・...
-
Wordチェックボックス作り方(...
-
txtファイル内の指定の単語の数...
-
Ctrl+Hで置換にならない
-
ExcelのROUND関数を一括解除し...
-
エクセル 置換中の値の更新
-
Excelで、10000,20000,30000と...
-
秀丸エディタ タブをカンマに...
-
マクロで文字列をブック全体に...
-
エクセルで置換リストを別ブッ...
-
パワーポイントの置き換えマクロ
-
アクセスのテーブル上でデータ...
-
WORDで一括置換
-
Wordで一括して改ページする方法
-
vbaで実行後、指定のセルに戻す...
-
文字列の<>で囲まれた文字列...
-
置換(検索場所に「ブック」を...
おすすめ情報