Excel VBA проходит через рабочую таблицу, вставляет новую строку, когда для данных есть несколько значений, оставляя остальную информацию одинаковой

Question

У меня в данный момент большой набор информации, ее размер варьируется. Последний фрагмент данных может занимать 1 столбец, 0 столбцов или много столбцов.

Мне нужна строка для каждого отдельного фрагмента данных, и чтобы все данные были в одном столбце.

Понятия не имею, как решить эту проблему.

Answer 1

R=11 'the first row to paste the data 
For each cell in _
     Range(Range("C2"),Range("C2").End(xlDown))
      'cells C2 to last cell down
i=0 
Do 
    Cells(R,1).value=cell.offset(0, -2).value 'Test Data 
    Cells(R,2).value=cell.offset(0, -1).value 'Time Data 
    Cells(R,2).value=cell.offset(0, i).value 'Data
    R=R+1    'add 1 row down if have more data
    i=i+1      'i refer Data value to the right 
 Loop until cell.offset(0,i).value="" 
 Next 

Answer 2

R=11
For each cell in Range(Range("C2"), 
Range("C2").End(xlDown))
i=0
Do
    Cells(R,1).value=cell.offset(0, -2).value
    Cells(R,2).value=cell.offset(0, -1).value
    Cells(R,2).value=cell.offset(0, i).value
    R=R+1
     i=i+1
Loop until cell.offset(0,i).value=""
Next