作者：乔山办公网日期：
返回目录：excel表格制作
在EXCEL2003中
B1的公式为:
=OFFSET($A$1,ROW()-1+(COLUMN()-2)*10,0)
请向右填充到到100列 CW
再向下填充10行
B1单元格输入=A6，然后右拉公式，下拉公式
截取需要的区域即可！
任选一个空的单元格，输入=TEXTJOIN(",",1,A2:A4)就行了
Sub 数据分百离()
Dim rng As Range, t As Integer, irow As Long
t = 4
For Each rng In Range("A1").Resize(Range("A" & Rows.Count).End(3).Row, 1)
If rng = "NAME" Then t = t + 2
irow = Cells(Rows.Count, t).End(3).Row + 1
If Cells(1, t) = "" Then irow = 1
Cells(irow, t) = rng
Cells(irow, t + 1) = rng.Offset(, 1)
Next
End Sub
代码我度没测问试，答你自己内试一下吧。容