如何根据另一个单元格中的信息自动填充Excel中的单元格

Question

我正在尝试在工作中的Excel注册中更改某些内容。 我有2个带下拉菜单的单元格。 当我从另一个下拉菜单中选择一个选项时，我希望其中一个可以自动选择一个选项。

例如：第一个下拉菜单是办公室名称-我选择英国的办公室。 另一个下拉菜单使用不同的地址。 当我在第一个下拉列表中选择英国时，我希望它自动选择英国办事处的地址。

我可以访问每个下拉菜单的术语。 我怎么做？

Answer 1

您可以尝试：

Option Explicit

Sub Insert()

    Dim LastRow As Long, i As Long, y As Long
    Dim str As String
    Dim arr As Variant, element As Variant

    With ThisWorkbook.Worksheets("Sheet1")

        LastRow = .Cells(.Rows.Count, "A").End(xlUp).Row

        For i = 1 To LastRow

            str = .Range("A" & i).Value

            arr = Split(.Range("B" & i).Validation.Formula1, ",")

            For y = LBound(arr, 1) To UBound(arr, 1)

                If InStr(1, arr(y), str) > 0 Then
                    .Range("B" & i) = arr(y)
                    Exit For
                Else
                    .Range("B" & i).ClearContents
                End If

            Next y

        Next i

    End With

End Sub