Объединеннные ячейки

[corgi]

у меня на листе распологается форма, ну и соответственно некоторые ячейки объеденены в целях красивости формы, тут появилась поблема как пройтись по всем ячейкам, только объединенные должны проходится тоже только один раз

[Ilya Vasilyev]

Допустим объединены A1 и B1, значение = "Тест"
смотрим
msgbox cells(1,1).value 'тест
msgbox cells(1,2).value 'тест
отсюда мораль: если значение следующей ячейки равно предыдущей - ячейки объединены

[alibek]

Коряво и не 100%

Код: Выделить всё

Set ma = Range("a3").MergeArea
If Range("a3").MergeCells Then
    ma.Cells(1, 1).Value = "42"
End If

[corgi]

2Ilya Vasilyev ты не прав могу тебе сказать точно, в объединенных ячейках данные хранятся в левой верхней , т.е.
msgbox cells(1,1).value ="тест"
msgbox cells(1,2).value =""
2alibek честно говоря не понял идею

[Tanya]

Если я правильно поняла, и если это еще нужно

Код: Выделить всё

Sub nnn()
Dim Rng As Range, i As Integer, j As Byte
Set Rng = ActiveSheet.UsedRange
With Rng
  For i = .Row To .Rows.Count + .Row - 1
    For j = .Column To .Columns.Count + .Column - 1
      If Cells(i, j).MergeCells Then 'объединенная ячейка
        With Cells(i, j).MergeArea
          If j = .Column Then
            If i = .Row Then
              'обработка содержимого ячейки, допустим
              Debug.Print Cells(i, j).Address
            End If
            j = .Column + .Columns.Count - 1
          End If
        End With
      Else
        'обработка содержимого ячейки, допустим
        Debug.Print Cells(i, j).Address
      End If
    Next j
  Next i
End With
End Sub


[corgi]

оно самое Спасибо