エクセルVBAでセルが結合されているかどうか、またそのセルの数を判定する方法

photo credit: Los Angeles School Police Department LASPD via photopin (license)

みなさん、こんにちは！
タカハシ(@ntakahashi0505)です。

エクセルの表をHTML形式のテーブルしてHTMLファイルに出力する方法というのを前回こちらの記事でお伝えしました。

エクセルの表をHTMLのtableタグに変換して出力するVBAマクロ

HTMLファイルを作るときにtrやtdタグでテーブルを構成するの…面倒ですよね？今回はエクセルVBAでエクセルシート上の表をHTML形式のテーブルに変換して出力する方法をお伝えしたいと思います。

エクセルの表が行と列で理路整然とおとなしく作られていればいいんですが…

セルの結合がされているときはどうすれば良いでしょうか？？

今回はエクセルVBAでセルが結合されているかどうか、またその結合されているセルの数を判定する方法を使って、結合セルがある場合でもHTML形式に出力できるように修正していきたいと思います。

セルの結合を判定するプログラムの概要
MergeCellsでセルが結合されているか判定する
MergeAreaプロパティで結合セルの範囲を取得
セルの結合を判定するVBAプログラム
1. 実行結果
結合セルを含むエクセル表をHTMLで出力するVBAプログラム
1. 実行結果
まとめ
連載目次：エクセルVBAでCSVや様々なテキストファイルを出力する

セルの結合を判定するプログラムの概要

エクセルで例えばこんな表を作ってみました。

この表の各セルについて結合されているかどうか、またその結合されている数を判定するVBAプログラムを作ってみたいと思います。

どのように作れば良いですかね…？

流れとしては

1行目から5行目まで繰り返し
- A1セルから列方向にE1セルまで繰り返し
  - 今いるセルが結合されているセルであれば
    - その結合数を調べて出力
  - 結合セル分列移動（結合なしであれば1）

という流れでいければと思います。

MergeCellsでセルが結合されているか判定する

特定のセルが結合されているかを判定する場合はMergeCellsプロパティを使います。

Rangeオブジェクト.MergeCells

とします。

Rangeオブジェクトが結合セルに含まれている場合にTrue、そうでない場合はFalseが返ります。

使うときの対象は範囲ではなくて単一セルの場合が多いと思いますけどね。

ワークシートwsの行数i、列数jのセルが結合セルに含まれるかどうかを判定するのであれば

If ws.Cells(i, j).mergeCells Then

    （処理）

End If

とすればセルが結合されているかどうかで処理を分けることができますね。

MergeAreaプロパティで結合セルの範囲を取得

いくつのセルが結合をされているかを調べたいと思います。

その場合は、結合セルの範囲を取得するMergeAreaプロパティを使います。

Rangeオブジェクト.MergeArea

とすれば、Rangeオブジェクトが含まれているセル結合の範囲を取得することができます。

Rangeオブジェクトが単体セルで、かつセル結合もされていない場合は、そのセル自体が返ります。

取得した範囲について、Rows.Countプロパティで列数を取得すれば、いくつのセルが結合されているかを知ることができますね。

例えばワークシートwsの行数i、列数jが含まれる結合セルの列数を取得するのであれば

colSpan = ws.Cells(i, j).MergeArea.Columns.Count

とすればOKです。

この場合、Cells(i,j)が結合されていない単体セルであれば、colSpanには1が返ります。

MergeAreaプロパティを使うと列数以外にも

Countプロパティ：セル数
Rows.Countプロパティ：行数
Addressプロパティ：範囲のアドレス

などが取得できます。

セルの結合を判定するVBAプログラム

以上を使って、与えられたシートの表について結合セルの判定をするプログラムを作ってみました。

'結合セルの調査
Sub mergeCells()

Dim ws As Worksheet
Set ws = ThisWorkbook.Worksheets(1)
Dim colSpan As Long

Dim i, j As Long
i = 1
Do While ws.Cells(i, 1).Value <> ""

    j = 1
    Do While ws.Cells(i, j).Value <> ""

        Debug.Print "行:" & i, "列:" & j
        colSpan = 1

        If ws.Cells(i, j).mergeCells Then

            colSpan = ws.Cells(i, j).MergeArea.Columns.Count
            Debug.Print "結合セル数:" & colSpan & vbLf

        End If

        j = j + colSpan

    Loop

    i = i + 1

Loop
End Sub

表のサイズが可変でも動作するように行方向、列方向の繰り返しにはDo While文を使っています。

実行結果

このプログラムの実行結果は

となります。

セル結合があるセルの位置とその結合数をイミディエイトウィンドウの出力によって知ることができますね。

結合セルを含むエクセル表をHTMLで出力するVBAプログラム

さらにこのプログラムを活用して、結合セルを含むエクセル表をHTMLに変換するVBAプログラムを作ります。

列数が複数の場合のHTML文はtdタグを

～

とすれば良いですね。

作ったプログラムはこちらです。

Sub convertHTML()

Dim ws As Worksheet
Set ws = ThisWorkbook.Worksheets(1)

Dim htmlFile As String
htmlFile = ActiveWorkbook.Path & "table.html"

Open htmlFile For Output As #1

Dim colSpan As Long
Dim i, j As Long
i = 1

Print #1, ""

Do While ws.Cells(i, 1).Value <> ""

    Print #1, vbTab & "";

    j = 1
    Do While ws.Cells(i, j).Value <> ""

        colSpan = 1

        If ws.Cells(i, j).mergeCells Then

            colSpan = ws.Cells(i, j).MergeArea.Columns.Count
            Print #1, "";

        Else

            Print #1, "";

        End If

        j = j + colSpan

    Loop

    Print #1, "" & vbCr;
    i = i + 1

Loop

Print #1, "" & ws.Cells(i, j).Value & " " & ws.Cells(i, j).Value & ""

Close #1

MsgBox htmlFile & "に書き出しました"

End Sub

先のセルの結合を判定するVBAプログラムmergeCellsとほとんど流れとしては変わりませんね。

ちなみに、本プログラムは行方向のセル結合には対応をしていません。

行方向も対応をしようと思うと、プログラムとしてはなかなかに複雑になりそうですよね…機会をみてチャレンジしてみてください。