функция первенствовать или макрос разделить столбец строки

Question

Я хотел бы разделить колонку к новым колонкам, как следует:

http://i.stack.imgur.com/azZM1.png

Как вы можете видеть раскол имеет место Whan есть все текст_ячейки , и между этими ячейками я не всегда имею такое же количество ячеек. Могу ли я сделать это в функции или макросе?

Answer 1

Этот код принимает ваш единственный столбец и разбивает его на несколько столбцов в каждом текстовом заголовке.

Предположение:

• Левый символ каждой соты, отличный от заголовка является числом.

  lastRow = Range("A" & Rows.Count).End(xlUp).Row 
  frst = 1 
  j = 2 
  
  For i = 2 To lastRow + 1 
      If Not IsNumeric(Left(Cells(i, 1).Value, 1)) Then 
       Range(Cells(frst, 1), Cells(i - 1, 1)).Copy 
       Range(Cells(1, j), Cells(i - frst - 1, j)).PasteSpecial 
  
       frst = i 
       j = j + 1 
      End If 
  Next i