请问excel怎样把两例数据变成如下效果,将图1变成图2的效果。

发布网友发布时间：2024-10-22 06:07

共3个回答

热心网友时间：2024-11-17 23:52

=OFFSET($A$1,INT((ROW(A1)-1)/2)*4+COLUMN(A1)-1,MOD(ROW(A1)-1,2))
如果在其他工作表引用
=OFFSET(Sheet1!$A$1,INT((ROW(A1)-1)/2)*4+COLUMN(A1)-1,MOD(ROW(A1)-1,2))

热心网友时间：2024-11-17 23:53

这个要用VBA来实现
你试试这段代码
Sub test()
Application.ScreenUpdating = False

ThisWorkbook.Sheets("sheet1").Select
MaxLine = [A65536].End(xlUp).Row
For CurLine = 1 To MaxLine
ThisWorkbook.Sheets("sheet2").Cells(Int(CurLine / 4 - 0.1) * 2 + 1, ((CurLine - 1) Mod 4) + 1) = Application.Cells(CurLine, 1)
ThisWorkbook.Sheets("sheet2").Cells(Int(CurLine / 4 - 0.1) * 2 + 2, ((CurLine - 1) Mod 4) + 1) = Application.Cells(CurLine, 2)
Next CurLine
Application.ScreenUpdating = True
End Sub

热心网友时间：2024-11-17 23:53

你这个大概只能手工，或VBA来做比较好。