Jak wypisać dane za pomocą pętli VBA, zmergowane komórki

Cześć, jestem dość nowy w VBA, potrzebuję w ramach ćwiczeń zrobić poniższe zadanie:
Muszę wypisać w okienku immediate za pomocą Debug.Print dane z tego arkusza. Trudność stanowią dla mnie zmergowane komórki, jeżeli chodzi o kolory.
Efekt końcowy ma wyglądać mniej więcej tak, żeby za pomocą pętli lub dwóch pętli wypisać dane w ten sposób:
can, kg, green, pea, 24.79
can, kg, green, lettuce, 34,23

Możesz użyć MergeArea na kolejnych adresach komórek.

Karolcio napisał(a):

Cześć, jestem dość nowy w VBA, potrzebuję w ramach ćwiczeń zrobić poniższe zadanie:
Muszę wypisać w okienku immediate za pomocą Debug.Print dane z tego arkusza. Trudność stanowią dla mnie zmergowane komórki, jeżeli chodzi o kolory.
Efekt końcowy ma wyglądać mniej więcej tak, żeby za pomocą pętli lub dwóch pętli wypisać dane w ten sposób:
can, kg, green, pea, 24.79
can, kg, green, lettuce, 34,23

Najpierw je rozdziel. pozniej sobie poradzisz z pętlą.
Kod:

Sub UnMergeFill()

Dim cell As Range, joinedCells As Range

For Each cell In ThisWorkbook.ActiveSheet.UsedRange
    If cell.MergeCells Then
        Set joinedCells = cell.MergeArea
        cell.MergeCells = False
        joinedCells.Value = cell.Value
    End If
Next

End Sub