Вложенный оператор WITH для копирования текста - PullRequest
Новая
       9

Вложенный оператор WITH для копирования текста

0 голосов
/ 24 апреля 2019

Я новичок в VBA и пытаюсь написать некоторый код VBA, чтобы сделать следующее: 

Sub test()
    With Range("AD:AD")
        .Offset(, -24).Value = Evaluate("if(isnumber(match(" & .Address & ",{""UK""},0)),""Bob's Team"","""")")
        With Range("AD:AD")
            .Offset(, -24).Value = Evaluate("if(isnumber(match(" & .Address & ",{""German""},0)),""Xavier's Team"","""")")
            With Range("AD:AD")
                .Offset(, -24).Value = Evaluate("if(isnumber(match(" & .Address & ",{""France""},0)),""John's Team"","""")")
            End With
        End With
    End With

End Sub

Если диапазон AD: AD = UK Добавить текст «Команда Боба» в той же строке в столбце F

Существует множество разных команд. Пока после некоторого исследования мне удалось создать приведенный ниже код, но он дает только 1 результат.

Понятия не имею, является ли вложенный WITH правильным подходом или есть ли более простой или более эффективный способ использования вложенного IF ELSE?

Буду очень признателен за любую помощь.

...