在VBA公式中使用命名地址

Question

我目前有以下命名地址：

PLVlast = Sheets("Summary").Range("D" & Cells.Rows.Count).End(xlUp).Address

我想按該地址划分一個單元格（N2）。 AB2將得到結果。

Range("AB2") = "=(RC[-14]/PLVlast)"

錯誤：AB2中的Excel公式顯示以下內容

=(N2/PLVlast)

我在這里想念什么？

Answer 1

您要使用PLVlast變量的值，而不是變量名。 如果要在R1C1公式中使用其值，還需要將PLVlast設置為R1C1地址格式：

PLVlast = Sheets("Summary").Range("D" & Sheets("Summary").Rows.Count).End(xlUp).Address(ReferenceStyle:=xlR1C1)

Range("AB2").FormulaR1C1 = "=(RC[-14]/" & PLVlast & ")"

---

或者，如果您想在整個過程中使用A1表示法：

PLVlast = Sheets("Summary").Range("D" & Sheets("Summary").Rows.Count).End(xlUp).Address

Range("AB2").Formula = "=(N2/" & PLVlast & ")"

---

或者，如果要將此公式應用於AB列中的所有單元格，則向下到D列中最后一個單元格之前的行（我假設那是某種總行數）：

Dim lastRow As Long
lastRow = Sheets("Summary").Range("D" & Sheets("Summary").Rows.Count).End(xlUp).Row

Range("AB2").Resize(lastRow - 2, 1).Formula = "=(N2/D$" & lastRow & ")"