Excel VBA problems with combined cells [duplicate] - excel

Question

This question already has answers here:
Get value of a merged cell of an excel from its cell address in vba
(4 answers)
Closed 1 year ago.
I am writing a Excel VBA program to generate text.
I am using IF statements to find out if some specific text is in in a cell and concatenate a string based on that.
I have a problem with combined cells:
IF Cells(1,1) Like "A" and Cells(1,2) Like "---" Then
concatenate something
end if
The above works
IF Cells(2,1) Like "B" and Cells(2,2) Like "---" Then
concatenate something
end if
This does not work, because the Cell(2,2) is empty according to
MsgBox (Cells(2, 2).Value) instead of the "---".
Is it possible to get the code to work, without splitting the cells again?
I would like to go row by row concatenating text, the VBA code should recognize the cellvalue one cell right to "B" as "---".

Answer 1

Cells(1,1).Value is "A". Cells(1,2).Value is "---".
Cells(2,1).Value is empty. Cells(3,2).Value is empty.
Cells(3,1).Value is "B". Cells(3,2).Value is empty.
Just because you merge the cells above, doesn't change that the cell is in Row 3. Only the top-left cell in a Merged Range has a value. (Although, there are ways around that.)
You can check if a cell is merged using Range.MergeCells. You can get the value of a Merged Cell using Range.MergeArea
For example:
Cells(1,1).MergeArea.Cells(1,1) is "A". Cells(2,2).MergeArea.Cells(1,1) is "---". Cells(1,1).MergeCells is True.
Cells(2,1).MergeArea.Cells(1,1) is "A". Cells(2,2).MergeArea.Cells(1,1) is "---". Cells(2,1).MergeCells is True.
Cells(3,1).MergeArea.Cells(1,1) is "B". Cells(3,2).MergeArea.Cells(1,1) is "---". Cells(3,1).MergeCells is False.
If you are using a loop to run through the cells, consider using a While or Do instead of a For, since you can increment by different numbers for each iteration:
Dim rowCurrent AS Long
rowCurrent = 1
While Cells(rowCurrent,1).Value <> ""
If Cells(rowCurrent,2).MergeArea.Cells(1,1).Value = "---" Then
Select Case Cells(rowCurrent,1).MergeArea.Cells(1,1).Value
Case "A"
'concatenate something
Case "B"
'concatenate something else
Case "C"
'concatenate a third thing
Case Else
'throw an error?
End Select
End If
'Skip the rest of the merged cell
rowCurrent = rowCurrent + Cells(rowCurrent,1).MergeArea.Rows.Count
Wend