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

时间:2019-02-28 11:49:10

标签: excel

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

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

我可以访问每个下拉菜单的名称。我该怎么办?

1 个答案:

答案 0 :(得分:0)

您可以尝试:

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