行到MS Excel 2007中的列

我有一些空单元格的行数。 我想要使​​用MS Excel 2007将行转换为列。

例如 ：

我有以下几行。

预期成果 ：

我想显示它像：

Answer 1

这个macros片段应根据您的示例图像重组您的数据行。

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行删除了原始数据。如果您在原始工作簿的副本上进行testing，可能是最好的select。