Как автоматически заполнить ячейки в 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