在excel中如何做到“不定行数批量转置”

Office Excel 中

A列

A1

A2

A3

空单元格

A4

A5

A6

A7

空单元格

A8

A9

A10

A11

A12

A13

空单元格

A14

A15

A16

A17

A18

.

.

.

.上万条，每个单列数据块都是用空单元格隔开（注：每个数据块的行数不一定相同的），我想把每个数据块转置为一行，全部转好后生成一个横向表格，如下

A列 B列 C列 E列 F列 G列

A1 A2 A3

A4 A5 A6 A7

A8 A9 A10 A11 A12 A13

A14 A15 A16 A17 A18

……

.

.

.

.

假如你的数据在SHEET1

运行一下以下代码

Sub aa()
Dim i, j, k, l As Integer
i = Sheet1.[a65536].End(xlUp).Row
k = 1
l = 2
For j = 1 To i
If Cells(j, 1) = "" Then
k = k + 1
l = 2
End If
Cells(k, l) = Cells(j, 1)
l = l + 1
Next
End Sub

代码窗进入ALT+F11