標題:
Excel跟據a1格數字自動增加列問題
[打印本頁]
作者:
tangandchun3
時間:
2018-6-27 09:22
標題:
Excel跟據a1格數字自動增加列問題
本帖最後由 tangandchun3 於 2018-6-27 09:23 編輯
跟據A列所示數值增加列,
如A1=12增加12 列,
A2=10增加10列
如此類推
[attach]28894[/attach]
作者:
Hsieh
時間:
2018-6-27 09:54
回復
1#
tangandchun3
Sub ex()
r = [A65536].End(xlUp).Row
For i = r To 2 Step -1
k = Cells(i, "A")
Cells(i, "A").Offset(1).Resize(k, 5).Insert Shift:=xlDown
Next
End Sub
複製代碼
作者:
tangandchun3
時間:
2018-6-27 11:25
回復 tangandchun3
Hsieh 發表於 2018-6-27 09:54
謝謝你。但是我想問下是否一定要vba才能完成？
歡迎光臨 麻辣家族討論版版 (http://forum.twbts.com/)
