Как создать несколько именованных диапазонов с фиксированным размером из одного столбца?

0

Мне интересно, есть ли способ создать именованные диапазоны с фиксированным размером (252 ячейки) из одного столбца.

У меня есть 51 156 номеров в столбце B. Я хочу первые 252 номера ( B1:B252 ) стать именованным диапазоном RANGE1,

Тогда я хочу B253-B504 стать именованным диапазоном RANGE2, И так далее.

Кто-нибудь знает способ? Обычно я просто выбираю диапазоны и набираю имя, но теперь я должен сделать это в течение ок. 200 диапазонов на листе в 25 листов.

Спасибо!

Я, возможно, сделал задачу немного проще. У меня сейчас в колонке С ( C1:C202 ) имена, которые я хочу, чтобы именованные диапазоны становились, и в столбце D ввод для массивов, как их читает меню именованных диапазонов ( D1 содержит =first14!L1:L252 , D2 содержит =first14!L253:L504 и так далее).

AltTabsen
источник

Ответы:

0

Вы можете сделать это с VBA. Вам нужно изменить константы вверху, если ваши листы не одинаковы. Он использует текущий активный лист, поэтому выберите тот, который вы хотите, прежде чем запускать макрос.

Option Explicit
Sub AddNamedRanges()
    Const NumberOfRanges As Long = 202      'How many ranges to create
    Const HeightOfRanges As Long = 252      'How tall to make each range
    Const RefersToColumn As Integer = "B"   'Which column to reference
    Dim r As Long
    For r = 1 To NumberOfRanges
        ActiveWorkbook.Names.Add "RANGE" & r, ActiveSheet.Range(RefersToColumn & (r - 1) * HeightOfRanges + 1 & ":" & RefersToColumn & r * HeightOfRanges)
    Next
End Sub
Engineer Toast
источник