Страницы: 1
RSS
Как разделить текст в строке и размножить эту строку
 
А возможно ли разделить текст и размножить строку? Всю голову сломал )))
Скрытый текст
Изменено: giza - 28.04.2015 00:23:06 (Добавлен файл)
 
Код
Sub bb()
Dim i&, j&, s$()
For i = Cells(Rows.Count, 1).End(xlUp).Row To 2 Step -1
  s = Split(Replace$(Cells(i, 2), " ", ""), "/")
  j = UBound(s)
  If j Then
    Rows(i + 1).Resize(j).Insert
    Cells(i, 1).Copy Cells(i + 1, 1).Resize(j)
    Cells(i, 3).Resize(, 6).Copy Cells(i + 1, 3).Resize(j)
    Cells(i, 2).Resize(j + 1).Value = Application.Transpose(s)
  End If
Next
End Sub
 
Казанский, Спасибо! Все как надо работает
 
а подскажите пожалуйста какой макрос будет вот для этого формата?

размножить нужно размеры
 
Разберитесь!!! как работает код Казанского и примените к своей таблице
 
могла бы, так и сделала!!!

не понимаю в макросах ничего
 
Екатерина Александрова, для ваших данных можно так
Код
Sub bb()
Dim i&, j&, s$()
For i = Cells(Rows.Count, 1).End(xlUp).Row To 2 Step -1
  s = Split(Replace$(Cells(i, 24), " ", ""), ",")
  j = UBound(s)
  If j Then
    Rows(i + 1).Resize(j).Insert
    Cells(i, 1).Resize(, 23).Copy Cells(i + 1, 1).Resize(j)
    Cells(i, 25).Resize(, 28).Copy Cells(i + 1, 25).Resize(j)
    Cells(i, 24).Resize(j + 1).Value = Application.Transpose(s)
  End If
Next
End Sub
Изменено: gling - 13.06.2016 12:07:53
 
gling Спасибо большое, то что нужно!
 
gling
Володя!
Зачем в строке Resize(, 28), хватит и Resize(, 5)
Код
Cells(i, 25).Resize(, 28).Copy Cells(i + 1, 25).Resize(j)
 
Здравствуй Kuzmich! Спасибо за подсказку. Не все что пишут в макросах я понимаю, поэтому и получаются такие "ляпы". Главное результат работает.
Страницы: 1
Наверх