EXCEL2010 利用宏完成下列的表格格式转换,如图:将多行横向数据转换为两列纵向数据

来源:学生作业帮助网 编辑:作业帮 时间:2024/04/29 05:36:10

EXCEL2010 利用宏完成下列的表格格式转换,如图:将多行横向数据转换为两列纵向数据
EXCEL2010 利用宏完成下列的表格格式转换,如图:

将多行横向数据转换为两列纵向数据

EXCEL2010 利用宏完成下列的表格格式转换,如图:将多行横向数据转换为两列纵向数据
Sub a()
r1 = 1
r2 = 1
Do Until Cells(r1, 1) = ""
For c = 1 To 4
Cells(r2, 9) = Cells(r1, 2 * c - 1)
Cells(r2, 10) = Cells(r1, 2 * c)
r2 = r2 + 1
Next c
r1 = r1 + 1
Loop
End Sub