動態下拉列表

Question

我正在嘗試從位於工作表（“歷史數據”）中的表中的 A 列創建一個動態下拉列表。

此工作表會不斷更新添加新行，我希望自動更新我的下拉列表。

我制作了一個動態范圍LastRow = Sheets("Historical Data").Range("A3").End(xlDown).Row ，我試圖將其放入公式中。

這是我到目前為止編寫的代碼：

LastRow = Sheets("Historical Data").Range("A3").End(xlDown).Row
Worksheets("Chart").Activate
Range("C1").Select

With Selection.Validation
    .Delete
    .Add Type:=xlValidateList, AlertStyle:=xlValidAlertStop, Operator:= _
        xlBetween, Formula1:="=Historical Data!$A$3:A" & LastRow & ")"        
End With

我想從 header 行做另一個下拉菜單。 我做了另一個動態范圍； 這是代碼，但它不起作用（我對 VBA 很陌生）：

LastColumn = Sheets("Historical Data").Cells(2, Sheets("Historical Data").Columns.Count).End(xlToLeft).Column
Range("G1").Select
    With Selection.Validation
        .Delete
        .Add Type:=xlValidateList, AlertStyle:=xlValidAlertStop, Operator:= _
        xlBetween, Formula1:="='Historical Data'!$T$2:" & LastColumn & "2"

出現應用程序定義或對象定義的錯誤

Answer 1

有2個問題

1. 正如@TimStack 提到的，你最后有一個額外的括號
2. 您在工作表名稱中有一個空格，因此您必須使用單引號填充它。

嘗試這個

Formula1:="='Historical Data'!$A$3:A" & LastRow

注意：由於您已經擁有刪除重復項的代碼，因此我不會解決該查詢。