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

Question

EXCEL2010 利用宏完成下列的表格格式转换,如图：

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

Answer 1

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