返回列表 上一主題 發帖

請問excel vba 的自動填入

niceshot

帖子
2 
主題
1 
精華
0 
積分
8 
點名
0  
作業系統
ms xp 
軟體版本
sp3 
閱讀權限
10 
註冊時間
2013-4-28 
最後登錄
2013-4-28 
1# 跳轉到 » 倒序看帖
打印
tT
發表於 2013-4-28 18:15 | 只看該作者

請問excel vba 的自動填入

excel, vba
請問各位前輩
以下這段 vba
    Range("B2").Select
    ActiveCell.FormulaR1C1 = "=""9A95""&RC[2]"
    Range("B2").Select
    Selection.AutoFill Destination:=Range("B2:B236")
    Range("B2:B236").Select

小妹想讓它自動填入
可是每次檔案的筆數有可能會不一樣
譬如說  這次的檔案  有236筆
但下次要處理的筆數可能變280筆
如何把它改成變數
依照每次要處理的筆數去自動填入公式呢??
謝謝
收藏 分享

Hsieh

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

2023年全勤獎章2022虎年全勤獎章2021牛年全勤獎章2020鼠年全勤獎章2019 豬年全勤獎章2018 狗年全勤獎章2017 雞年全勤獎章2016猴年全勤獎章2015羊年全勤獎章2014馬年全勤獎章2013蛇年全勤獎章2012龍年全勤獎章論壇貢獻勳章熱心公益勳章2011兔年全勤獎章
2#
發表於 2013-4-28 21:38 | 只看該作者
回復 1# niceshot
Selection.AutoFill Destination:=Range("B2:B" & [A2].End(xldown).Row)
學海無涯_不恥下問

TOP

niceshot

帖子
2 
主題
1 
精華
0 
積分
8 
點名
0  
作業系統
ms xp 
軟體版本
sp3 
閱讀權限
10 
註冊時間
2013-4-28 
最後登錄
2013-4-28 
3#
發表於 2013-4-28 23:19 | 只看該作者
回復 2# Hsieh


    謝謝版大
    問題解決了

TOP

        靜思自在 : 脾氣嘴巴不好，心地再好也不能算是好人。
返回列表 上一主題