如何将excel里的信息批量转置，有大量数据

Question

将图中左边的数据转成右边的格式

Answer 1

1.M3输入公式：

=INDEX($H$2:$J$20,INT((ROW()-3)/3)*4+MOD((COLUMN()-13),3)+1,MOD((ROW()-3),3)+1)

按需设置参数1 范围

2.M3单元格向右复制到O3，向下复制M3：O3到需要为止。

Answer 2

m3=INDEX($H:$J,ROUNDUP(ROW(A1)/3,0)*4-2+MOD(COLUMN(A1)-1,3),MOD(ROW(A1)-1,3)+1)下拉右拉

Answer 3

用代码
Sub 转换()
Dim I%
For I = 2 To Range("G65536").End(xlUp).Row Step 4
X = Range("M65536").End(xlUp).Row
Range(Cells(I, "H"), Cells(I + 2, "J")).Select
Selection.Copy
Cells(X + 1, "M").Select
Selection.PasteSpecial Paste:=xlPasteAll, Operation:=xlNone, SkipBlanks:= _
False, Transpose:=True
Application.CutCopyMode = False
Next
End Sub本回答被网友采纳

Answer 4

发表过来帮你做。3327161443QQ追答

3271614433