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

[Kravets]

Нашол такой макрос:

Sub Splitcellc()
Dim arrS() As String
Dim i&
For i = Cells(Rows.Count, "c").End(xlUp).Row To 1 Step -1
arrS = Split(Cells(i, "c").Value, "&" & vbLf)
If UBound(arrS) > 0 Then
Range(Rows(i + 1), Rows(i + UBound(arrS))).Insert
Cells(i, "c").Resize(UBound(arrS) + 1).Value = Application.Transpose(arrS)
End If
Next i
End Sub

Он переносит данные по строкам, но делает это по одному столбцу который указан в макросе, подскажите что там нужно дописать чтоб он одновременно работал по нескольким столбцам.

[IgorGO]

там нужно дописать код, который будет обрабатывать еще несколько столбцов

[Kravets]

Это понятно, что нужно дописать код который обробатывает ещё несколько столбцов, да что то не получается. С макросами раньше дела не имел.

[IgorGO]

С людми-то Вы имели дело раньше?

Вы полагаете что "несколько столбцов" - это все знают сколько и каких именно (на листе ексель2007 - 16 тыс.столбцов)

[Kravets]

Сообщение от IgorGO

С людми-то Вы имели дело раньше?

Вы полагаете что "несколько столбцов" - это все знают сколько и каких именно (на листе ексель2007 - 16 тыс.столбцов)

Обычные столбцы с текстовыми данными, разделенные разделителем "&".

[IgorGO]

оказалось - дописать надо все:

Sub SplitCells()
  Dim c As Long, r As Long
  For c = 2 To 6
    Cells(2, c).Resize(UBound(Split(Cells(1, c), "&"), 1)).Value = WorksheetFunction.Transpose(Split(Cells(1, c), "&"))
  Next
End Sub

[Kravets]

Сообщение от IgorGO

оказалось - дописать надо все:

Sub SplitCells()
  Dim c As Long, r As Long
  For c = 2 To 6
    Cells(2, c).Resize(UBound(Split(Cells(1, c), "&"), 1)).Value = WorksheetFunction.Transpose(Split(Cells(1, c), "&"))
  Next
End Sub

Получается не совсем то что нужно. Макрос который я приводил в примере, заменяет или удаляет не разделенные по строкам значения. В вашем варианете остаются два варианта значений.

[Kravets]

Но все ранво спасибо за предложенный вариант.

[IgorGO]

перечитайте свои сообщения и найдите хоть слово о том, как должен отображаться результат.
а) строку с исходными - межете удалить ручками
б) в коде, который я написал, можете 1 раз заменить 2 на 1 и будет по-вашему (какую из 2-х присутствующих в макросе двоек заменить -решите экспериментальным путем))
удачи!

и все равно, пожалуйста!

[Kravets]

Сообщение от IgorGO

перечитайте свои сообщения и найдите хоть слово о том, как должен отображаться результат.
а) строку с исходными - межете удалить ручками
б) в коде, который я написал, можете 1 раз заменить 2 на 1 и будет по-вашему (какую из 2-х присутствующих в макросе двоек заменить -решите экспериментальным путем))
удачи!

и все равно, пожалуйста!

Большое спасибо, все работает!