请问EXCEL如何把列转换到行？？？ 谢谢啊

自己顶一下

说下我的方法，在B列最后输入"结束"(或者其他东东），D2自己输下，D3=IF(B3=B2,"",B3)往下填充，E2=IF(INDIRECT("D"&(COLUMN()+ROW()-4))="",D2,"")，往右往下拉，右拉超过最大重复数。

模拟数据及结果如图：

代码如下：
Sub Test529()
Dim arr, i&, n&
r = Cells(Rows.Count, 2).End(xlUp).Row
arr = Range("b1:b" & r + 1)
For i = 2 To r
If arr(i - 1, 1) <> arr(i, 1) Then
Do
n = n + 1
Loop Until arr(i + n - 1, 1) <> arr(i + n, 1) _
Or i + n = r + 1
Cells(i, "d").Resize(, n) = arr(i, 1)
End If
n = 0
Next
End Sub

继续一下楼上各位，我要想统计一下空白格以上的D列连续数据，还要怎么操作呢？？
（就是图中绿色的部分）
把D列每组空白的单元格的第一个空白格，填充上空白格以上的数据个数。比如空白格上面有"双、单、双"连续的3个数，空白格内的数字就为 3

还是位置关系计数，以8楼数据为例，再运行一段代码：
Sub test_530()
Dim arr, i&, r&, n&
r = Cells(Rows.Count, 2).End(xlUp).Row
arr = Range("d1:d" & r + 1)
For i = 2 To r
If arr(i, 1) <> "" And arr(i + 1, 1) = "" Then
Do
n = n + 1
Loop Until arr(i - n, 1) = "" Or i - n = 1
Cells(i + 1, "d") = n
End If
n = 0
Next
End Sub