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

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

多项横列数据转换为一纵列数据
焦作55 1年前 已收到1个回答 举报
赞

心灵感应 幼苗

共回答了13个问题采纳率：84.6% 举报

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 Su

1年前 追问

10

焦作55 举报

请问n就是原数据的列数么？按第一张图就是H？

举报 心灵感应

如果你固定8列,将UBound(arr, 2)改为8
可能相似的问题

你能帮帮他们吗

精彩回答

Copyright © 2024 YULUCN.COM - 雨露学习互助 - 17 q. 0.022 s. - webmaster@yulucn.com