以编程方式将下拉列表添加到特定单元格

我想知道如何使用 VBA 以编程方式将下拉列表添加到 Excel 工作表的特定单元格，例如，我希望能够向单元格 (i,j) 添加下拉列表并定义列表的元素。

以编程方式执行此操作：

With Selection.Validation
        .Delete
        .Add Type:=xlValidateList, AlertStyle:=xlValidAlertStop, Operator:= _
        xlBetween, Formula1:="Value1;Value2;Value3"
        .IgnoreBlank = True
        .InCellDropdown = True
        .InputTitle = ""
        .ErrorTitle = ""
        .InputMessage = ""
        .ErrorMessage = ""
        .ShowInput = True
        .ShowError = True
    End With

Where Formula1列表中的值由;.

更好的方法（动态命名范围）

如果您有要在下拉列表中填充的动态记录列表，请使用以下公式定义命名范围：

=OFFSET(Sheet1!$A$1;1;0;COUNTA(Sheet1!$A:$A)-1)

..假设您的数据位于Sheet1第一行有标题：

A1  Header
A2  Value1
A2  Value2
A3  Value3