EXCELシートのグループ化処理について

投稿者 : モロオカ     投稿日時 : 2025/05/12(Mon) 23:19:04     OS : Windows 11     EXCEL : Excel 2021

---

はじめて利用させていただきます。よろしくお願いします。

以前まで正常に動作していた以下マクロが、現在正常に動作しなくなりました。

Sub Macro1()
    Sheets(Array("Sheet1", "Sheet2", "Sheet3")).Select
    Sheets("Sheet1").Activate
    Cells.Select
    Selection.ClearContents
End Sub

本来の処理は"Sheet1", "Sheet2", "Sheet3"のセル内容をすべて一括してクリアするというものです。
現在は"Sheet1"のみクリアされるだけで、"Sheet2", "Sheet3"のデータはクリアされなくなりました。

EXCELかWINDOWSのUPDATEが契機になったと思われるのですがどなたかご存知ないでしょうか？
因みにEXCELのバージョンは2019，2021ともに発生しています。
善後策は思案中ですが、1シートづつループでクリアしようかなと思っていますが、
なぜ動かなくなったのかということが不可解であるため質問させていただきました。

よろしくお願いします。

投稿者 : りんくだけ     投稿日時 : 2025/05/13(Tue) 07:32:16

---

https://www.excel.studio-kazu.jp/kw/20250318093930.html

投稿者 : りんくだけ     投稿日時 : 2025/05/13(Tue) 07:34:36

---

上は解決策

投稿者 : tek     投稿日時 : 2025/05/13(Tue) 08:09:29

---

■[質問] モロオカさん（2025-05-12 23:19:04）の記事

＞ なぜ動かなくなったのかということが不可解であるため質問させていただきました。

そのようなことを明確に回答できる回答者が現れることは無いと思います。（もし、いらっしゃたらごめんなさいです）

そのままCopilotに質問することをお勧めします。
回答が正解であるかは？ですが、こんな質問も良いかも
そもそも作業グループマクロはなぜ動作していたのでしょうか。
ActiveSheetは１枚のはずです。

私としては作業グループマクロはお勧めしません。

投稿者 : 通りすがり     投稿日時 : 2025/05/13(Tue) 10:17:36

---

私もテストしてみました。
手動で同じ操作をして、マクロ記録してみました。
結果は、"Sheet1", "Sheet2", "Sheet3"は全てクリアされ、マクロ記録の方はモロオカさんのコードと全く同じでした。
しかし、このマクロ記録で生成されたコードを実行すると、"Sheet1"しかクリアされませんでした。
なんじゃこりゃ！　マクロ記録は当てにならないのか！！

https://www.excel.studio-kazu.jp/kw/20250318093930.html
にも書いてますが、一番簡単なコード変更は、
Selection.ClearContents　を　Selection.Clear　にすることでしょうかね。

まーこれらは全てExcelの謎仕様というしかないのでしょう。

投稿者 : モロオカ     投稿日時 : 2025/05/13(Tue) 15:46:25

---

ご回答をいただいた皆様ありがとうございました。

対応としては
Selection.ClearContents　を　Selection.Clear　に変更することにしました。

バージョンアップにより今まで動作していたことが動作しなくなったということは今までもありましたので
驚きはありませんが、正直面倒だなとは思います。

また、マクロ記録で生成されたコードが生成時通りの動きをしないのはEXCEL_VBAの不具合だと思っています。
（だからといって文句を言っても仕方ないのですが…）

とにかく皆さま時間を割いてくださりありがとうございました。御礼申し上げます。