Home » Excel VBA Rangeオブジェクト » 結合セル » セル結合を解除して同じ値を入力するマクロ

セル結合を解除して同じ値を入力するマクロ

対象：Excel2010, Excel2013, Windows版Excel2016

「エクセル セル結合 解除 同じ値入力 マクロ」
「vba 結合セル 解除 同じ値」
という検索でこのサイト『インストラクターのネタ帳』へアクセスがありました。

結合されたセルが存在するワークシートをデータベースとして活用するには、まずセル結合を解除して、解除された各セルに同じ値を入力する必要があります。

［スポンサードリンク］

それをExcelマクロで行いたいという、思わず「あるある！」と言いたくなる検索キーワードです。

セル結合を解除して同じ値を入力するサンプルマクロ

以下のSubプロシージャを実行すると、アクティブなシートのセル結合が解除され、各セルに同じ値が入力されます。

Sub セル結合を解除して同じ値を入力する()
　Dim rng As Range
　Dim val As Variant

　For Each rng In ActiveSheet.UsedRange
　　If rng.MergeCells Then
　　　val = rng.Value
　　　With rng.MergeArea
　　　　.UnMerge
　　　　.Value = val
　　　End With
　　End If
　Next rng
End Sub

サンプルマクロの解説

アクティブシート上の使われているセル範囲にFor Each～Nextループを回して、
　　For Each rng In ActiveSheet.UsedRange

結合されたセルだったときに、
　　　If rng.MergeCells Then

変数valにデータを代入しておいてから、
　　　　val = rng.Value

RangeオブジェクトのUnMergeメソッドで結合を解除し、
　　　　With rng.MergeArea
　　　　　.UnMerge

各セルに変数valの値を入力しています。
　　　　　.Value = val

［スポンサードリンク］

Home » Excel VBA Rangeオブジェクト » 結合セル » セル結合を解除して同じ値を入力するマクロ

『インストラクターのネタ帳』では、2003年10月からMicrosoft Officeの使い方などを紹介し続けています。
Excel VBAの経験がある方を対象に、Word VBAの基本をキンドル本としてまとめました↓↓ Excel VBAユーザーの方を対象として、Wordの表をVBAで操作する基礎をまとめました↓↓ 『インストラクターのネタ帳』を運営する伊藤潔人が、初めて書かせていただいた書籍です↓↓ PowerPoint VBA本は、実はオブジェクトブラウザーの使い方を徹底的に解説した本です↓↓ 日経BP社から出版された、Excel VBAユーザー向けのPython超入門書です↓↓ 上記の『Excel VBAユーザーのためのPythonプログラミング』の、元になったキンドル本です↓↓ Pythonの文字列フォーマットの基本をキンドル本としてまとめました↓↓ 小数とPythonのdecimalモジュールの基本をキンドル本としてまとめました↓↓ 数式を使った条件付き書式設定が苦手な方に向けたKindle本を書きました↓↓ 図形を操作するExcel VBAの基本を解説したキンドル本を書きました↓↓ グラフを操作するExcel VBAの基本を解説したキンドル本も出しました↓↓ Pythonの外部ライブラリOpenPyXL（オープンパイエクセル）の入門書を、Excel VBAユーザーに向けに書きました↓↓


「結合セル」の記事一覧

検索


Copyright © インストラクターのネタ帳 All Rights Reserved.

.