Excel VBA。結合されたセルの行数を取得しその行内の列単位で検索する方法をご教授ください。

B列がところどころ結合されているデータがあります。
※ 結合されていない行もあります。

例として、B１～B４（４行）が結合されていた場合、
１行目から４行目までの範囲で列検索を行ないたいと思っています。

Dim i As Long
If Cells(i, "B").MergeCells Then

一部分のみですみません。
行検索を行ない、Ｂ列が結合セルだったら、
Rows(i)（１～４行目）の、「列単位」で検索し（列はＤ列以降が検索対象）、
D列（D1～D４）に一箇所でも「○」が入力されていたら、D1に「○」と入力し、
Ｅ列以降の列にも同じ処理を繰り返したいです。

いろいろ試してみたのですがうまくいきませんでした。
検索方法を教えていただけたら幸いです。よろしくお願いします。

質問者からの補足コメント

• ユーザー定義関数でも大丈夫です。
  できるだけシンプルな方が助かります。
  よろしくお願いします。

  No.1の回答に寄せられた補足コメントです。 補足日時：2016/06/05 11:51

No.3 ベストアンサー 回答者： ママチャリ 回答日時： 2016/06/05 12:20

質問を読み違えていました。

ユーザ定義関数ではできませんので、マクロでの実装です。

Sub sample()
Dim I As Long
Dim J As Long
Dim M As Long
Dim R As Range
I = 1
Do While I <= Cells.SpecialCells(xlCellTypeLastCell).Row
If Cells(I, "B").MergeCells Then
M = Cells(I, "B").MergeArea.Rows.Count
For J = 4 To Cells.SpecialCells(xlCellTypeLastCell).Column
Set R = Range(Cells(I, J), Cells(I + M - 1, J))
If WorksheetFunction.CountIf(R, "○") > 0 Then
Cells(I, J).Value = "○"
End If
Next J
I = I + M
Else
I = I + 1
End If
Loop
End Sub

この回答へのお礼

ママチャリさんいつもありがとうございます。
実行してみたところ、列用変数Ｊの開始番号が４だとうまくいかず
４→１に変更したところ、うまくいきました。
これであっているのか若干不安です。。

お礼日時：2016/06/05 17:58

No.4 回答者： ママチャリ 回答日時： 2016/06/05 18:34

変数Jは、最初にD列を指すので、4で良いはずなのですが…。

ちなみに、どこで、どんなエラーがでましたか？

この回答へのお礼

できました！4でOKでした。
（さっきはなぜうまくいかなかったのか‥）
セル検索は基礎の基礎なのに、
プロパティがなかなか使いこなせません。
コードを熟読して、もっと勉強します。

本当にありがとうございました。
これからもよろしくお願いいたします。

お礼日時：2016/06/05 20:43

No.1 回答者： ママチャリ 回答日時： 2016/06/05 11:33

マクロで良いのでしょうか？ユーザ定義関数でも可能ですが、どちらがニーズに合ってますか？