在EXCEL2003中
B1的公式为:
=OFFSET($A$1,ROW()-1+(COLUMN()-2)*10,0)
请向右填充到到100列 CW
再向下填充10行
B1中输入
=OFFSET($A$1,ROW()+COLUMN(A1)*3-4,)
用自动填充柄下拉两格,再右拉。
看你数据量应该挺大的 用vba吧
要是不理解不会用可以再问我
Sub test()
Dim i%, j%, n%
n = 3
j = Len([a1])
For i = 0 To j / n - 1
Cells(1, i + 2) = Left(Right([a1], j - n * i), n)
Next i
End Sub
在B1中输入公式:
=INDEX($A$1:$A$9,ROW(A1)-3+3*COLUMN(A1),)
右拉三列,下拉三行,复制公式。
B1输入公式
=INDEX($A:$A,(COLUMN(A1)-1)*10+ROW(A1))
向下填充10列 向右填充,