VBAの質問です。

質問

VBAの質問です。
A列に結合したセルがあり、
B列に結合セルの何番目かを出力する、という関数を作成したいです。
呼び元は、1行ごとにこの関数を呼び出します。
呼び元は他の処理も行っていて、機能追加の意味で別関数を用意したいです。
どうすればB列に番号を振れるでしょうか。
宜しくお願いします。

| A | B |
--+-------+-------+
1 | | 1 |
--+ +-------+
2 | | 2 |
--+ +-------+
3 | | 3 |
--+-------+-------+
4 | | 1 |
--+-------+-------+
5 | | 1 |
--+ +-------+
6 | | 2 |
--+-------+-------+

イメージ書いて見ました。
Dim r As Integer

Sub 呼び元()
For i = 1 To 6
r = 1
Call 結合番号出力
Next
End Sub

Sub 結合番号出力()
Cells(r, "B").Value = ●●●
End Sub

回答No.1

Wendy02 · ベストアンサー

こんばんは。

>呼び元は他の処理も行っていて、機能追加の意味で別関数を用意したいです。
なぜ、そんなに難しく考えなくてはならないのか、私には良く分かりません。
一応、ユーザー定義関数を作ってみました。た。

'原則的に、標準モジュール用
'-------------------------------------------
Sub 呼び元()
　　Dim i As Long
　　For i = 1 To 6
　　　　Call 結合番号出力(Cells(i, 1), i)
　　Next
End Sub
Function 結合番号出力(rng As Range, ByRef i As Long)
　　Dim j As Long
　　With rng
　　　　For j = 1 To .MergeArea.Count
　　　　　　.Cells(j, 1).Offset(, 1).Value = j
　　　　Next j
　　End With
　　i = i + j - 2
End Function

'=========================================
'私なら、このように考えます。

Sub Test1()
　　Dim i As Long
　　Dim j As Long
　　j = 1
　　For i = 1 To 6
　　　　If Cells(i, 1).MergeArea.Count > 1 Then
　　　　　　Cells(i, 2).Value = j
　　　　　　j = j + 1
　　　　Else
　　　　　　j = 1
　　　　　　Cells(i, 2).Value = 1
　　　　End If
　　Next i
End Sub

お礼

ご回答ありがとうございました。
教えて頂いたコードを参考にして、やりたいことができました。
大変助かりました。
ありがとうございました。

------
説明不足のところがありました。
実際やりたかったことを今後の参考にメモしておきます。

呼び元は1行ごとに複数関数を呼んでいて、結合番号出力も
1行ごとに処理します。（うまくお伝えできそうにないので
作ったコードをメモします。

Sub 呼び元()

Dim i As Long
Dim j As Long

j = 1
For i = 1 To 6 '←行カウンタ
' Call 処理1
Call 結合番号出力(i, j)
' Call 処理2
Next
End Sub

Sub 結合番号出力(i, j)
With Cells(i, 1)
If .MergeArea.Count > 1 Then
.Offset(, 1).Value = j
j = j + 1
Else
j = 1
.Offset(, 1).Value = j
End If
If .MergeArea.Count < j Then
j = 1
End If
End With
End Sub

回答No.2

hige_082

こんな感じ？

Sub test()
Dim i, j
j = 1
For i = 1 To Cells(Rows.Count, 1).End(xlUp).Row
If Cells(i, 1).MergeCells Then
Cells(i, 2).Value = j
j = j + 1
Else
Cells(i, 2).Value = 1
j = 1
End If
Next i
End Sub

以上参考まで

お礼

ご回答ありがとうございました。とても参考になり、やりたいことができました。