Создание нескольких именованных диапазонов с использованием параметров, найденных в двух столбцах Excel

Question

У меня нет сильного фона в кодировании с использованием sql, поэтому я всегда полагаюсь на stackoverflow и google для ответов.

Поэтому я хотел создать несколько именованных диапазонов с именами, зависящими от значений в столбце A ис "ссылкой на" (диапазон), зависящим от столбца B.

Мне удалось сжать некоторые коды, и они могут создать именованный диапазон для меня, но я не могу найти способ заставить vba делатьэто строка за строкой.

Вот мои столбцы:

А вот мой код VBA:

Sub createNamedRange()

    Dim myWorksheet As Worksheet
    Dim myRangeName As String

    Set myWorksheet = ActiveWorkbook.ActiveSheet
    myRangeName = myWorksheet.Range("A1").Value


    ThisWorkbook.Names.Add Name:=myRangeName, RefersTo:=myWorksheet.Range("B1").Text

End Sub

Answer 1

Итак, что вы хотите сделать - это циклически проходить по всем строкам, верно?

Я настраиваю ваш код с помощью Для цикла .Он проходит по всем строкам с 1 по 4. Если вы хотите выполнить цикл по нескольким строкам, просто отрегулируйте настройки цикла.Надеюсь, что это работает для вас.

Sub createNamedRange()

    Dim myWorksheet As Worksheet
    Dim myRangeName As String
    Dim row         As Long

    Set myWorksheet = ActiveWorkbook.ActiveSheet

        For row = 1 To 4
            myRangeName = myWorksheet.Cells(row, 1).Value
            ThisWorkbook.Names.Add Name:=myRangeName, RefersTo:=myWorksheet.cells(row,2).Text
        Next

End Sub