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

来源:学生作业帮助网 编辑:六六作业网 时间:2024/11/23 13:29:11
EXCEL2010利用宏完成下列的表格格式转换,如图:多项横列数据转换为一纵列数据EXCEL2010利用宏完成下列的表格格式转换,如图:多项横列数据转换为一纵列数据EXCEL2010利用宏完成下列的表

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

多项横列数据转换为一纵列数据

EXCEL2010 利用宏完成下列的表格格式转换,如图:多项横列数据转换为一纵列数据
Sub test()
Dim arr
Dim r As Long,c As Integer,n As Long
arr = ActiveSheet.UsedRange.Value
Sheets.Add
For r = 1 To UBound(arr)
For c = 1 To UBound(arr,2)
n = n + 1
Cells(n,1) = arr(r,c)
Next
Next
End Sub