練習問題31（セル結合を解除して値を埋める）解答

最終更新日：2019-07-30

練習問題31（セル結合を解除して値を埋める）解答

マクロVBA練習問題31の解答ページです。

マクロVBA練習問題

セル結合されていると、マクロVBAでは扱いにくい場合が多々あります。
そこで、
セル結合を解除して、結合されていたセル範囲に同じ値を入れたいと思います。
以下の表を見てください。


B2	C2	D2	E2	F2	G2	H2
B3	C3	D3		F3	G3	H3
B4	C4	D4	E4	F4	G4	H4
B5		D5	E5			H5
B6		D6	E5			H6
B7		D7	E7	F7	G7	H7
B8		D8	E8	F8	G8	H8
B9	C9	D9	E9	F9	G9	H9

※上記表の全体を選択し、コピー(Ctrl+C)の後、エクセルのシートのA1セルに貼り付け(Ctrl+V)してください。

練習問題用のExcelファイル

こちらからダウンロードできます。zipはこちらです。

上記のように、
ところどころ不規則にセル結合されているシートがあります。
このようなシートがブック内に複数あります。
全シートに対して、
セル結合を解除して、結合されていたセル範囲に同じ値を入れてください。
上記表であれば、処理後の結果は以下のようになります。


B2	C2	D2	E2	F2	G2	H2
B3	C3	D3	D3	F3	G3	H3
B4	C4	D4	E4	F4	G4	H4
B5	C4	D5	E5	E5	E5	H5
B6	C4	D6	E5	E5	E5	H6
B7	C4	D7	E7	F7	G7	H7
B8	C4	D8	E8	F8	G8	H8
B9	C9	D9	E9	F9	G9	H9

では、お考えください。
すぐに解答を見ずに、必ず自力で書けるとこまででも良いので書きましょう。

シンキングタイム

シンキングタイム開始

シンキングタイム終了

当サイトのコンテンツ

ExcelマクロVBA入門

ExcelVBAとはエクセルの操作を自動化するマクロ機能で使われているプログラミング言語です。VBAは「MicrosoftVisualBasicApplications」の略になります。このVBA入門シリーズでは実務で必要とされるVBAの入門として基本から応用までのVBA全般を解説していきます。

書くべきマクロVBAが分からない時は、
ここでじっくり勉強してから再チャレンジしてください。

マクロVBA練習問題解答

では解答のマクロVBAコードです。


  
    
      Sub 練習31()

      　　Dim ws As Worksheet

      　　Dim target As Range

      　　Dim tRange As Range

      　　Dim v As Variant

      　　For Each ws In Worksheets

      　　　　For Each target In ws.UsedRange

      　　　　　　If target.MergeCells Then

      　　　　　　　　v = target.Value

      　　　　　　　　Set tRange = target.MergeArea

      　　　　　　　　tRange.MergeCells = False

      　　　　　　　　tRange.Value = v

      　　　　　　End If

      　　　　Next

      　　Next

      End Sub

VBAコードの個別の解説は不要でしょう。
セル結合に関する、プロパティ・メソッドについては以下を参照してください。

第85回.結合セルの扱い｜マクロVBA入門

セルが結合されていると、マクロでは時に扱いづらい事があります、セル結合されている場合に、VBAでどのように取り扱うかを解説します。そもそも、やたらにセル結合すべきではないのですが、見た目重視で作られたシートでは、セル結合が頻繁に使用されているものです。

セル結合を解除した後では、範囲を把握できなくなってしまいますので、
結合を解除する前に、結合範囲を一旦変数に入れて記憶しています。

セル結合に入っているValueは、先頭セルだけにしか入っていませんので、
target.Value
これだけで済ませていますが、
target.Item(1).Value
このように具体的に記述しておくのも、後で見た時に理解しやすいかもしれません。

同じテーマ「マクロVBA練習問題解答」の記事

学びたい講座がきっとみつかる：AI・データサイエンスなど最先端のIT技術からマクロVBA講座まで

アクセスランキング・・・ランキング一覧を見る

1.最終行の取得（End,Rows.Count）｜VBA入門
2.セルのコピー&値の貼り付け（PasteSpecial）｜VBA入門
3.RangeとCellsの使い方｜ExcelマクロVBA入門
4.Range以外の指定方法（Cells,Rows,Columns）｜VBA入門
5.変数とデータ型（Dim）｜ExcelマクロVBA入門
6.繰り返し処理（For Next)｜ExcelマクロVBA入門
7.マクロって何？VBAって何？｜ExcelマクロVBA入門
8.セルに文字を入れるとは（Range,Value）｜VBA入門
9.ひらがな⇔カタカナの変換｜エクセル基本操作
10.空白セルを正しく判定する方法（IsEmpty,IsError,HasFormula）｜VBA技術解説

トップ >

マクロVBA >

マクロVBA練習問題解答 >

練習問題31（セル結合を解除して値を埋める）解答

このサイトがお役に立ちましたら「シェア」「Bookmark」をお願いいたします。

記述には細心の注意をしたつもりですが、
間違いやご指摘がありましたら、「お問い合わせ」からお知らせいただけると幸いです。
なお、掲載のVBAコードは自己責任で使ってください。万一データ破損等の損害が発生しても責任は負いません。

ExcelマクロVBA練習問題解答
練習問題31（セル結合を解除して値を埋める）解答