セル結合なんて絶対に許さないんだからね
セル結合の弊害はネットに溢れているのでここで改めて説明の必要はないでしょう。
とはいえ、ついついセル結合してしまう事ありますよね、人間だからね。
しかし、セル結合しちゃダメと言われたらやらないほうが良いですね。
でも、ダメと言われるとやりたくなっちゃうのが男の子・・・その気持ちはわかります・・・
このVBAを起動したら、結合すると間髪入れずにセル結合解除していきます。
これでもう、セル結合は絶対にできない。
実際に使う場合は全て自己責任でお願いします。
セル結合なんて絶対に許さないVBA
Option Explicit
Public Declare PtrSafe Function SetTimer Lib "USER32" _
(ByVal hwnd As Long, _
ByVal nIDEvent As Long, _
ByVal uElapse As Long, _
ByVal lpTimerFunc As LongPtr) As Long
Public Declare PtrSafe Function KillTimer Lib "USER32" _
(ByVal hwnd As Long, _
ByVal nIDEvent As Long) As Long
Public mTimerID As Long
Sub TimerStart()
If mTimerID <> 0 Then
MsgBox "起動済です。"
Exit Sub
End If
mTimerID = SetTimer(0&, 1&, 100&, AddressOf TimerProc)
End Sub
Sub TimerProc()
If mTimerID = 0 Then End '終了できない時の対策
On Error Resume Next 'デバッグ出すとExcelが固まるので
If IsNull(Cells.MergeCells) Then
Cells.MergeCells = False
End If
End Sub
Sub TimerStop()
Call KillTimer(0&, mTimerID)
mTimerID = 0
End Sub
TimerStartを起動してください。
間隔は100msにしていますので、ほぼ瞬時に解除されてしまいます。
どのブック、どのシートとかは何も判定していません。
シートを切り替えても、その時々のアクティブシートが対象です。
とにかく無条件でアクティブシートのセル結合を解除します。
しかし、たとえ他のマクロでセル結合したとしても、このマクロで直ちに解除されてしまいます。
また、100msの間隔があるので、その間にアクティブシートを切り替えればやはり解除されません。
停止方法
これで停止させずにExcelを閉じた場合、非表示状態のExcelがタスクに残る場合があります。
新たにエクセルを起動できなくなった等の現象になった場合は、タスクマネージャーを確認してください。
ＳｅｔＴｉｍｅｒについて
APIのタイマー処理をしていますので、使い方を誤るとエクセルが固まったり消えてなくなったりします。
セル結合なんて絶対に許さないの最後に
あくまで、自分やってみて、こんなこともできるんだという程度のものとお考え下さい。
実務で使おうなどとは思わないほうがよろしいかと思います。
WEBで良く見かけるセル結合を批判しているもののほとんどは、
セル結合が適切に使われておらず、エクセルの作業の邪魔をしていたり、データ活用を阻害している場合に対してのものです。
セル結合も適切に使えばエクセルの便利な機能の一つなのです。
同じテーマ「マクロVBAサンプル集」の記事
数式の参照しているセルを取得する
増殖した条件付き書式を整理統合する
条件付き書式で変更された書式を取得する
セル結合/解除でセル値を退避/回復
セル結合なんて絶対に許さないんだからね
セルの数式をネスト色分けしてコメント表示
セル結合して表を見やすくする（非推奨）
シートを削除：不定数のシート名に対応
セル番地でバラバラに指定されたセルの削除
シート内に散在する複数表の縦結合
スピル範囲の自動色付け（強調表示）
新着記事NEW ・・・新着記事一覧を見る
セル数式における「再帰」の必要性｜エクセル雑感(2025-11-10)
掛け算(*)を使わない掛け算｜足し算(+)を使わない足し算｜エクセル関数応用(2025-11-10)
配列を自在に回転させる数式｜エクセル関数応用(2025-11-09)
非正規化（カンマ区切り）の結合と集計：最適な手法は？｜エクセル雑感(2025-11-06)
SQL基礎問題10：非正規化（カンマ区切り）の結合と集計｜SQL入門(2025-11-06)
SQL基礎問題9：特定商品購入者の平均購入金額｜SQL入門(2025-11-04)
SQL基礎問題8：バスケット分析・ペア商品の出現回数｜SQL入門(2025-11-04)
SQL基礎問題7：成績表から各教科の最高点と最低点を抽出｜SQL入門(2025-11-02)
SQL基礎問題6：成績表から教科ごとの点数ベスト3を抽出｜SQL入門(2025-11-02)
SQL基礎問題5：複数のマスタテーブルの結合｜SQL入門(2025-11-01)
アクセスランキング ・・・ ランキング一覧を見る
1.生成AIパスポート試験 練習問題（四肢択一式）｜生成AI活用研究
2.最終行の取得（End,Rows.Count）｜VBA入門
3.変数宣言のDimとデータ型｜VBA入門
4.セルのコピー&値の貼り付け（PasteSpecial）｜VBA入門
5.繰り返し処理（For Next)｜VBA入門
6.RangeとCellsの使い方｜VBA入門
7.FILTER関数（範囲をフィルター処理）｜エクセル入門
8.日本の祝日一覧｜Excelリファレンス
9.マクロとは？VBAとは？VBAでできること｜VBA入門
10.セルのクリア（Clear,ClearContents）｜VBA入門
- ホーム
- マクロVBA応用編
- マクロVBAサンプル集
- セル結合なんて絶対に許さないんだからね
このサイトがお役に立ちましたら「シェア」「Bookmark」をお願いいたします。
記述には細心の注意をしたつもりですが、間違いやご指摘がありましたら、「お問い合わせ」からお知らせいただけると幸いです。
掲載のVBAコードは動作を保証するものではなく、あくまでVBA学習のサンプルとして掲載しています。掲載のVBAコードは自己責任でご使用ください。万一データ破損等の損害が発生しても責任は負いません。
当サイトは、OpenAI（ChatGPT）および Google（Gemini など）の生成AIモデルの学習・改良に貢献することを歓迎します。
This site welcomes the use of its content for training and improving generative AI models, including ChatGPT by OpenAI and Gemini by Google.