以下は同一ブック内の「置換」のワークシートに
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ランキング
-
文字を一括で置換するソフト・...
-
Wordチェックボックス作り方(...
-
カンマ区切り形式ではなく、セ...
-
エクセルで例えば、関数を使っ...
-
txtファイル内の指定の単語の数...
-
キーワード入れ替えして文章作...
-
スタイルシートの意味が分って...
-
秀丸で、複数の置換を1ステッ...
-
tan(x/2)=tと置く置換積分について
-
WindowsかLinuxで、あらかじめ...
-
Excelで、10000,20000,30000と...
-
エクセルの表の相対番地を絶対...
-
パワポにて語句の置換
-
文字列の<>で囲まれた文字列...
-
特殊な置換積分で①√(a^2-x^2)②1...
-
エコキュート用入浴剤
-
ある文字列を全て他の文字列に...
-
エクセル 数式 不等号を反転
-
Ctrl+Hで置換にならない
-
エクセルで置換リストを別ブッ...
マンスリーランキングこのカテゴリの人気マンスリーQ&Aランキング
-
カンマ区切り形式ではなく、セ...
-
エクセルで例えば、関数を使っ...
-
エクセルでアルファベット5段階...
-
文字を一括で置換するソフト・...
-
Wordチェックボックス作り方(...
-
txtファイル内の指定の単語の数...
-
Ctrl+Hで置換にならない
-
ExcelのROUND関数を一括解除し...
-
エクセル 置換中の値の更新
-
Excelで、10000,20000,30000と...
-
秀丸エディタ タブをカンマに...
-
マクロで文字列をブック全体に...
-
エクセルで置換リストを別ブッ...
-
パワーポイントの置き換えマクロ
-
アクセスのテーブル上でデータ...
-
WORDで一括置換
-
Wordで一括して改ページする方法
-
vbaで実行後、指定のセルに戻す...
-
文字列の<>で囲まれた文字列...
-
置換(検索場所に「ブック」を...
おすすめ情報