如何在一張紙上的Excel單元格中轉換值以在另一張紙上顯示為下拉列表

Question

我的C＃代碼為我返回了一個在Sheet1下的塊A中顯示的值。 在sheet2中，我需要將數據顯示為下拉列表，如塊B所示。是否有Excel公式可以實現此目的？

Answer 1

這是VBA宏。

它使用Sheet1中的單元格A1和Sheet2中的單元格B9

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中的值更改，則必須重新運行該子程序。