[[20230323203548]]　『置換のマクロを教えてください。』（今日からマクロ）　ページの最後に飛ぶ

『置換のマクロを教えてください。』（今日からマクロ）

超マクロ初心者です。

ワークシートに１２枚のシートがあります。
シート名は単純に1・2・3・・・10・11・12といった数字のシート名です。

すべてのシートの同じN5セルにある(N5～P6を結合したセルです)
に入力されている"普通"と"－"(全角ハイフン)を空白にするマクロを
教えていただけませんか?

よろしくお願いします。(＠_＠;)

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

 マクロは必須ですか？
 マクロをせっせと書いてる時間があれば手作業でしたほうが
 よほど早く終わると思いますが。
（MK） 2023/03/23(木) 20:58:40

 >超マクロ初心者です。
ハイフンと普通を置換する動作をマクロの記録で、記録するとコードが取得できます。

 Sub test()
     Dim arr, ws As Worksheet
     arr = Array(1, 2, 3, 4, 5, 6, 7, 8, 9, 10, 11, 12)
     For Each ws In ThisWorkbook.Worksheets
         With ws.Range("N5")
             .Replace What:="－", Replacement:=""
             .Replace What:="普通", Replacement:=""
         End With
     Next
 End Sub
（フォーキー） 2023/03/23(木) 21:02:25

 全てのシートを一括で選択するのは、

 一つのシートタブを右クリック
 ↓
 全てのシートを選択

 でいけます。

 全てのシートを選択した状態でアクティブになってるシート
 で行った作業は全てのシートに反映されます。
（MK） 2023/03/23(木) 21:05:19

ＭＫ　さま
現在使用しているマクロに置換作業を入れ込みたいので質問させて頂きました。
操作のご指示もしていだきありがとうございました。

フォーキー　さま
早速マクロのコードを作成して頂きありがとうございました。
この後実験してみたいと思います。

(＠_＠;)

（今日からマクロ） 2023/03/23(木) 21:11:10

コメント返信：

[ 一覧(最新更新順) ]

[[20230323203548]] 『置換のマクロを教えてください。』（今日からマクロ） ページの最後に飛ぶ

[[20230323203548]]　『置換のマクロを教えてください。』（今日からマクロ）　ページの最後に飛ぶ