標題: [發問] VBA內函數使用 [打印本頁]

---

作者: missbb    時間: 2015-8-19 21:26     標題: VBA內函數使用

請問在VBA內如何將下列程式擴展至D2:last row:


Range("D2").Formula = Application.Evaluate("INDEX('Attendance Report'!$A:$AZ,MATCH($B2,'Attendance Report'!$O$4:$O$100,0)+10,MATCH($C2,'Attendance Report'!$3:$3,0))")

請賜教!

---

作者: ikboy    時間: 2015-8-20 06:44

本帖最後由 Hsieh 於 2015-8-20 09:09 編輯

Range("D2")= "=INDEX('Attendance Report'!$A:$AZ,MATCH($B2,'Attendance Report'!$O$4:$O$100,0)+10,MATCH($C2,'Attendance Report'!$3:$3,0))

---

作者: Hsieh    時間: 2015-8-20 09:24

回復 1# missbb
last row的取得要看如何判斷的到
以範圍內輸入公式，其參數的參照使用R1C1形式會好一些
Range("D2:D" & last row).FormulaR1C1 = "=INDEX('Attendance Report'!C1:C52,MATCH(RC2,'Attendance Report'!R4C15:R100C15,0)+10,MATCH(RC3,'Attendance Report'!R3,0))"

---

作者: missbb    時間: 2015-8-20 22:08

回復 3# Hsieh


        感謝賜教!

---

作者: ikboy    時間: 2015-8-20 23:12

多謝版大Hsieh指導
我的方法為求能與直接入公式於儲存格接近而做, 然後要做 [範圍].Filldown 來填滿公式,實在是冗長了。

---

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