麻辣家族討論版版 » Office不分區 » Excel跟據a1格數字自動增加列問題

返回列表下一主題上一主題發帖

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

中學生 Rank: 2

帖子: 19
主題: 5
精華: 0
積分: 69
點名: 0
作業系統: 10
軟體版本: 10
閱讀權限: 20
性別: 男
來自: hk
註冊時間: 2018-6-25
最後登錄: 2022-5-9

1^# 跳轉到 » 正序看帖

字體大小: tT

發表於 2018-6-27 09:22 | 只看該作者

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

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

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

樓主熱帖

收藏

GOOD BOY

中學生 Rank: 2

帖子: 19
主題: 5
精華: 0
積分: 69
點名: 0
作業系統: 10
軟體版本: 10
閱讀權限: 20
性別: 男
來自: hk
註冊時間: 2018-6-25
最後登錄: 2022-5-9

3^#

發表於 2018-6-27 11:25 | 只看該作者

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

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

GOOD BOY

超級版主 Rank: 8 Rank: 8

帖子: 4901
主題: 44
精華: 24
積分: 4916
點名: 301
作業系統: Windows 7
軟體版本: Office 20xx
閱讀權限: 150
性別: 男
來自: 台北
註冊時間: 2010-4-30
最後登錄: 2025-12-10

2024年全勤獎章 2023年全勤獎章 2022虎年全勤獎章 2021牛年全勤獎章 2020鼠年全勤獎章 2019 豬年全勤獎章 2018 狗年全勤獎章 2017 雞年全勤獎章 2016猴年全勤獎章 2015羊年全勤獎章 2014馬年全勤獎章 2013蛇年全勤獎章 2012龍年全勤獎章論壇貢獻勳章熱心公益勳章 2011兔年全勤獎章

2^#

發表於 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

複製代碼

學海無涯_不恥下問

靜思自在 : 【行善要及時】行善要及時，功德要持續。如燒開水一般，未燒開之前千萬不要停熄火候，否則重來就太費事了。

返回列表下一主題上一主題