Страница 1 из 1
Помогите с макросом
Добавлено: 28 янв 2010, 12:34
OJIdu
Есть соединенный столбец, в котором записаны города,
Мне требуется разъединить его, и сделать чтобы в каждой строчке был записан город , причем нужно сделать чтобы он автоматом записывал вначале один потом 2-й и т.д.
Кто может подскажите КАк записывать города
Заранее очень благодарен
Re: Помогите с макросом
Добавлено: 29 янв 2010, 06:33
EducatedFool
Без примера файла с пояснениями Вы вряд ли дождётесь ответа.
Кто может подскажите КАк записывать города
Как-как... руками при помощи клавиатуры. Разве есть ещё варианты?
Re: Помогите с макросом
Добавлено: 31 янв 2010, 17:17
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]
Re: Помогите с макросом
Добавлено: 04 фев 2010, 11:42
OJIdu
Спасибо "mc-black ". Ваш код навел меня на нужную мысль.