Строки в столбцы в MS Excel 2007

Question

У меня есть количество строк с некоторыми нулевыми ячейками. Я хочу, чтобы преобразовать строки в столбцы с помощью MS Excel 2007.

Пример:

Я имеющий следующие строки.

Ожидаемый результат:

Я хочу показать, как как:

Answer 1

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

Dim rw As Long 
With ActiveSheet 
    For rw = 2 To .Cells(Rows.Count, 1).End(xlUp).Row 
     .Cells(rw, 1).Resize(1, .Cells(rw, Columns.Count).End(xlToLeft).Column).Copy _ 
      Destination:=.Cells(1, Columns.Count).End(xlToLeft).Offset(0, 1) 
     .Rows(rw).Clear 
    Next rw 
End With 

Я удалил исходные данные из строк 2 до 7. Вероятно, лучше всего, если вы проверить это на копии вашей исходной книги.