在VBA公式中使用聲明變量

Question

Dim LastRowC As Long 
Dim LastRowE As Long 
Dim Deelnemernr As Long 
    LastRowC = Range("C1048576").End(xlUp).Row + 1 
    Deelnemernr = Cells(LastRowC, 3).Offset(0, 4).Select 

我可以設法在下面的公式中選擇要使用的變量單元格。所以上面的代碼工作。

LastRowE = Range("E1048576").End(xlUp).Row + 1 
Cells(LastRowE, 5).Formula = "=Index(E:E,Match(Deelnemernr,G:G,0))" 

我似乎無法做的是使用上面聲明的變量作爲我的匹配公式中的Deelnemernr。當我使用固定細胞（例如G12）代替Deelnemernr時，該公式確實有效。任何人都可以告訴我如何在公式中引用已聲明的變量？

Answer 1

您需要在雙引號"以外獲得Deelnemernr變量。

而且，沒有必要在這裏使用Select：

Deelnemernr = Cells(LastRowC, 3).Offset(0, 4).Select 

剛剛獲得由該單元格的值：

Deelnemernr = Cells(LastRowC, 3).Offset(0, 4).Value 

嘗試下面的代碼：

LastRowC = Range("C1048576").End(xlUp).Row + 1 
Deelnemernr = Cells(LastRowC, 3).Offset(0, 4).Value 

LastRowE = Range("E1048576").End(xlUp).Row + 1 
Cells(LastRowE, 5).Formula = "=Index(E:E,Match(" & Deelnemernr & ",G:G,0))"