Помогите с макросом

[OJIdu]

Есть соединенный столбец, в котором записаны города,
Мне требуется разъединить его, и сделать чтобы в каждой строчке был записан город , причем нужно сделать чтобы он автоматом записывал вначале один потом 2-й и т.д.
Кто может подскажите КАк записывать города
Заранее очень благодарен

[EducatedFool]

Без примера файла с пояснениями Вы вряд ли дождётесь ответа.

Кто может подскажите КАк записывать города

Как-как... руками при помощи клавиатуры. Разве есть ещё варианты?

[mc-black]

Если я правильно понимаю Ваш вопрос, вот одно из возможных решений:

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

Option Explicit

Sub Test()
    Call UnMergeCells(Лист1.Cells(1, 1))
End Sub

Private Sub UnMergeCells(mcl As Range)
    Dim s1 As String, s2() As String
    Dim rma As Range, cel As Range, i As Long
    If mcl.MergeCells Then
        s1 = mcl.Cells(1).Value
        s2 = Split(s1, Chr(10))
        Set rma = mcl.MergeArea
        mcl.MergeArea.MergeCells = False
        i = 0
        For Each cel In rma.Cells
            If i <= UBound(s2) Then cel.Value = s2(i)
            i = i + 1
        Next cel
        Set rma = Nothing
    End If
End Sub

[ATTACH]1201[/ATTACH]
Рабочий пример в прикрепленном файле.
[ATTACH]1202[/ATTACH]

[OJIdu]

Спасибо "mc-black ". Ваш код навел меня на нужную мысль.