如何在Excel 2016中使用VBA创建依赖下拉列表？

Sub CreateDependentDropDown()
    Dim ws As Worksheet
    Dim rngSource As Range
    Dim rngTarget As Range
    Dim strSource As String
    Dim strTarget As String
    
    ' 设置源数据和目标单元格的地址
    strSource = "Sheet1!A1:A5" ' 源数据范围
    strTarget = "Sheet1!B1" ' 目标单元格
    
    ' 获取源数据范围和目标单元格的引用
    Set ws = ThisWorkbook.Sheets("Sheet1")
    Set rngSource = ws.Range(strSource)
    Set rngTarget = ws.Range(strTarget)
    
    ' 清除目标单元格的数据验证
    rngTarget.Validation.Delete
    
    ' 设置目标单元格的数据验证为依赖下拉列表
    With rngTarget.Validation
        .Add Type:=xlValidateList, AlertStyle:=xlValidAlertStop, Operator:=xlBetween, Formula1:="=" & rngSource.Address
        .InCellDropdown = True
        .ShowInput = True
        .ShowError = True
    End With
End Sub