在Excel公式中返回.cells範圍

Question

我試圖找到一個腳本來找到適當的列，並創建一個包含該單元格「名稱」的公式。這是腳本：

'Search for value 
Dim i As Integer 
i = 4 
    Do Until Cells(9, i).Value = ddLeveranciers.Value Or Cells(9, i).Value = "" 
     i = i + 1 
    Loop 

'Add formulas 
Range("D5").Formula = "=IF(" & Cells(15, i) & "<>"""",D4*" & Cells(15, i) & ","""")" 

這現在返回式"=IF(1.23<>"",D4*1.23,"")"，1.23是的cells(15,i)值。我希望腳本返回（例如）"=IF(D15<>"",D4*D15,"")"。我怎麼做？

Answer 1

您可以使用.Address屬性。

Range("D5").Formula = "=IF(" & Cells(15, i).Address & "<>"""",D4*" & Cells(15, i).Address & ","""")" 

例如：

MsgBox(Cells(1,1).Address)

將返回$A$1