返回列表 上一主題 發帖

Excel跟據a1格數字自動增加列問題

Excel跟據a1格數字自動增加列問題

本帖最後由 tangandchun3 於 2018-6-27 09:23 編輯

跟據A列所示數值增加列,
如A1=12增加12  列,
A2=10增加10列
如此類推

圖片

73E011B8-952E-47FC-AEF0-6B227EABC070.png
2018-6-27 09:21
GOOD BOY

回復 1# tangandchun3
  1. Sub ex()
  2. r = [A65536].End(xlUp).Row
  3. For i = r To 2 Step -1
  4. k = Cells(i, "A")
  5. Cells(i, "A").Offset(1).Resize(k, 5).Insert Shift:=xlDown
  6. Next
  7. End Sub
複製代碼
學海無涯_不恥下問

TOP

回復  tangandchun3
Hsieh 發表於 2018-6-27 09:54



    謝謝你。但是我想問下是否一定要vba才能完成?
GOOD BOY

TOP

        靜思自在 : 做該做的事是智慧,做不該做的事是愚癡。
返回列表 上一主題