ワークブック内の特定のセルに値「A」が含まれています。値「A」を「B」に置き換えたいです。
それらは複数のシートに散らばっています。VBA で置換を実装する最も効率的な方法は何ですか?
答え1
これは私には有効です
For Each wb In Workbooks
For Each sh In wb.Worksheets
sh.Cells.SpecialCells(xlCellTypeConstants).Replace What:="a", Replacement:="b", LookAt:=xlPart, _
SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=False, ReplaceFormat:=False
Next sh
Next wb
私がやったことは、マクロ レコーダーを使用して検索と置換の操作を記録し、ループを追加することだけでした。
開いているすべてのブックに変更を加えたくない場合は、外側のFor
Next
ペアを削除しますが、これにより、複数のブックを一度に実行しやすくなると考えました。