[[20210519155510]]　『VBAを使ったブック全体の文字列の置換』（お願いします）　ページの最後に飛ぶ

[ 初めての方へ | 一覧(最新更新順) | 全文検索 | 過去ログ ]

　

『VBAを使ったブック全体の文字列の置換』（お願いします）

はじめまして、よろしくお願い致します。
ブック全体の文字列を瞬時に置換できるように
いろいろなVBAを探してみましたところ
以下の記述がとてもしっくりきましたが
シートごとにクリックを繰り返さないとできませんでした。
クリックをせずに最後のシートまで一括で変換するには
どのように加筆すれば良いかの相談です。

Sub Macro1()
Dim sh As Worksheet
For Each sh In Worksheets
MsgBox sh.Name
sh.Activate
sh.Range("A1:X200").Select
Selection.Replace What:="zzzz", Replacement:="変換", LookAt:=xlPart, _
SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=False, _
ReplaceFormat:=False
Next
End Sub

よろしくお願い致します。

＜ 使用 Excel：Excel2013、使用 OS：Windows10 ＞

---

MsgBox sh.Name を消したら？
（no_name） 2021/05/19(水) 16:08

---

ありがとうございます。解決できました！
（お願いします） 2021/05/20(木) 10:55

---

コメント返信：

---

[ 一覧(最新更新順) ]

---

YukiWiki 1.6.7 Copyright (C) 2000,2001 by Hiroshi Yuki. Modified by kazu.