![](http://oshiete.xgoo.jp/images/v2/pc/qa/question_title.png?5a7ff87)
以下は同一ブック内の「置換」のワークシートに
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ファイル内の指定の単語の数...
-
WORDで一括置換
-
エクセルでアルファベット5段階...
-
tan(x/2)=tと置く置換積分について
-
アクセスのテーブル上でデータ...
-
秀丸エディタ タブをカンマに...
-
エクセルで置換リストを別ブッ...
-
エクセル 置換中の値の更新
-
文字を種類ごとに分けてカウン...
-
例えば斎藤->齋藤、渡辺->渡邉...
-
ワードでの検索、置換モードの...
-
ExcelのROUND関数を一括解除し...
-
入力済みの文字中にある句読点...
-
mac用の検索/置換できるソフト
-
文字の置換
-
Wordチェックボックス作り方(...
-
(3)どうしたら解けますか?
-
アクセスの一部データ置換の方法
-
テキストエディタで4桁の数字の...
マンスリーランキングこのカテゴリの人気マンスリーQ&Aランキング
-
カンマ区切り形式ではなく、セ...
-
文字を一括で置換するソフト・...
-
txtファイル内の指定の単語の数...
-
エクセルで置換リストを別ブッ...
-
エクセルでアルファベット5段階...
-
Wordチェックボックス作り方(...
-
ExcelのROUND関数を一括解除し...
-
秀丸エディタ タブをカンマに...
-
Ctrl+Hで置換にならない
-
WORDで一括置換
-
エクセル 置換中の値の更新
-
置換(検索場所に「ブック」を...
-
入力済みの文字中にある句読点...
-
Wordで一括して改ページする方法
-
マクロで文字列をブック全体に...
-
エクセルで例えば、関数を使っ...
-
パワーポイントの置き換えマクロ
-
大学数学の代数の問題です。 ・...
-
正規表現の置換で一部の文字列...
-
HTMLタグを一括消去する方法
おすすめ情報