返回列表 上一主題 發帖

公式填滿

ayubbs

帖子
31 
主題
10 
精華
0 
積分
45 
點名
0  
作業系統
WinXP 
軟體版本
OFFICE2007 
閱讀權限
10 
性別
女 
註冊時間
2013-8-2 
最後登錄
2016-12-9 

論壇榮譽勳章論壇贊助勳章
1# 跳轉到 » 倒序看帖
打印
tT
發表於 2013-8-22 14:28 | 只看該作者

公式填滿

有一問題請教大大們，常常在使用公式填滿使用巨集去完成
但常會發生一個問題是資料內容經常會所含的數量不同需修改填滿的範圍
可有辦法可直接給予自動判斷出資料所含列數給予填滿到列
因很笨~小妹常都只用這種方式去修改區間，~.~ 謝謝大家了
  1. Sub test2()
  2.     Range("C1").Select
  3.     ActiveCell.FormulaR1C1 = "=IF(RC[-2]<>"""",(RC[-2]*RC[-1]),"""")"
  4.     Range("C1").Select
  5.     Selection.AutoFill Destination:=Range("C1:C18")
  6.     Range("C1:C18").Select
  7. End Sub
複製代碼
收藏 分享

Hsieh

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

2023年全勤獎章2022虎年全勤獎章2021牛年全勤獎章2020鼠年全勤獎章2019 豬年全勤獎章2018 狗年全勤獎章2017 雞年全勤獎章2016猴年全勤獎章2015羊年全勤獎章2014馬年全勤獎章2013蛇年全勤獎章2012龍年全勤獎章論壇貢獻勳章熱心公益勳章2011兔年全勤獎章
2#
發表於 2013-8-22 16:20 | 只看該作者
回復 1# ayubbs
  1. Sub test2()
  2.     [C1].FormulaR1C1 = "=IF(RC[-2]<>"""",(RC[-2]*RC[-1]),"""")"
  3.     [C1].AutoFill Destination:=Range([C1], [A1].End(xlDown).Offset(, 2)) '以A欄判斷資料區
  4. End Sub
複製代碼
學海無涯_不恥下問

TOP

ayubbs

帖子
31 
主題
10 
精華
0 
積分
45 
點名
0  
作業系統
WinXP 
軟體版本
OFFICE2007 
閱讀權限
10 
性別
女 
註冊時間
2013-8-2 
最後登錄
2016-12-9 

論壇榮譽勳章論壇贊助勳章
3#
發表於 2013-8-22 16:56 | 只看該作者
回復 2# Hsieh


    版大如我資料內容有很多需套用公式,是否能將開始與結束的區間設成變數來套用
在各個不同的函數使用,因資料列數區間不一定，可以判斷的出來嗎？

謝謝快速回覆，人不在家中尚未測試晚點測試後會再回報

TOP

Hsieh

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

2023年全勤獎章2022虎年全勤獎章2021牛年全勤獎章2020鼠年全勤獎章2019 豬年全勤獎章2018 狗年全勤獎章2017 雞年全勤獎章2016猴年全勤獎章2015羊年全勤獎章2014馬年全勤獎章2013蛇年全勤獎章2012龍年全勤獎章論壇貢獻勳章熱心公益勳章2011兔年全勤獎章
4#
發表於 2013-8-22 21:55 | 只看該作者
回復 3# ayubbs

那就要看你判斷列數的依據是甚麼?
請上傳檔案說明你的需求
學海無涯_不恥下問

TOP

        靜思自在 : 好事要提得起，是非要放得下，成就別人即是成就自己。
返回列表 上一主題