Excel VBA 自动填充和源是单元格范围

Question

我已经为我的数据定义了一个名称，所以当我在我的单元格中放入一个新数据时，它也将包含在我的自动填充代码中

单元格的名称是 ident

=OFFSET(DataSource!$A:$A,1,0,COUNTA(DataSource!$A:$A)-1,1)

这是我在组合框上自动填充的代码

Private Sub UserForm_Initialize()
UserForm1.Label1 = Date
For Each blah In [ident]
    UserForm1.ComboBox4.AddItem blah
Next blah

End Sub

我收到一个错误，变量未定义并突出显示“等等”

Answer 1

克里斯尼尔森可能是对的。 您很可能在用户表单模块的顶部有Option Explicit ，这需要blah进行贴标。

Private Sub UserForm_Initialize()
    Dim blah As Variant
    UserForm1.Label1 = Date
    For Each blah In [ident]
        UserForm1.ComboBox4.AddItem blah
    Next blah

End Sub

您可以通过以下两种方式定义范围：

For Each blah In [OFFSET(DataSource!$A:$A,1,0,COUNTA(DataSource!$A:$A)-1,1)]

For Each blah In Range("OFFSET(DataSource!$A:$A,1,0,COUNTA(DataSource!$A:$A)-1,1)")