如何在一个工作表的Excel单元格中转换值以在另一个工作表中显示为下拉列表

这是VBA宏。

它使用电池A1在工作表Sheet1和细胞B9在Sheet2中

Sub demo()
    Dim r1 As Range, r2 As Range
    Set r1 = Sheets("Sheet1").Range("A1")
    Set r2 = Sheets("Sheet2").Range("B9")
    With r2.Validation
        .Delete
        .Add Type:=xlValidateList, AlertStyle:=xlValidAlertStop, Operator:= _
        xlBetween, Formula1:=r1.Value
        .IgnoreBlank = True
        .InCellDropdown = True
        .InputTitle = ""
        .ErrorTitle = ""
        .InputMessage = ""
        .ErrorMessage = ""
        .ShowInput = True
        .ShowError = True
    End With

End Sub

它不是函数，如果A1中的值更改，则必须重新运行该子程序。