电子表格excel的组转置问题

1.excel的组转置问题

给你个vba方法.

假设原数据在sheet1的A:B列，且数据已按A列排序

按住ALT，依次按F11,I,M，粘贴代码后按F5，即可得到你要的结果.

Sub test()

With Sheets("sheet1")

Sheets.Add

C = -1

For R = 1 To .[A65536].End(xlUp).Row

X = Application.WorksheetFunction.CountIf(.Columns(1), .Cells(R, 1))

C = C + 2

Cells(1, C).Resize(X, 2) = .Cells(R, 1).Resize(X, 2).Value

R = R + X - 1

Next

End With

End Sub

BTW：如果你用03,300组数据是会出错的，因为03工作表只有256列，只能容纳128组数据.