標題: 公式填滿 [打印本頁]

---

作者: ayubbs    時間: 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    時間: 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

複製代碼

---

作者: ayubbs    時間: 2013-8-22 16:56

回復 2# Hsieh


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

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

---

作者: Hsieh    時間: 2013-8-22 21:55

回復 3# ayubbs

那就要看你判斷列數的依據是甚麼?
請上傳檔案說明你的需求

---

歡迎光臨 麻辣家族討論版版 (http://forum.twbts.com/)