全てのワークシート上で同じ処理を一度に行うには？ (ID:105631)

名前

ホームページ(ブログ、Twitterなど)のURL (省略可)

本文 お返事遅れて申し訳ありません。 ＯＤＹさん、ありがとうございました。 自分で強引な方法を考えた結果、 Sheetを1枚目から全て見て次のシートのA1セルに入力値があったら処理を実行する、 ということをしてみました。 sheetno = 0 Worksheets(1).Activate Do Until Worksheets(sheetno + 1).Range("A1") = "" sheetno = sheetno + 1 Worksheets(sheetno).Activate loop これで、全てのシートを一枚ずつアクティブにして、処理を実行させました。 データ量が多い為、処理が完了するまで1時間くらいかかりますが。。。苦笑 強引でしたよね。 ＯＤＹさんに教えて頂いた方が、全然スマートで良いです。 ありがとうございました。