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

835
AltTabsen

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

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

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

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

Спасибо!

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

0

1 ответ на вопрос

0
Engineer Toast

You can do this with VBA. You'll need to modify the constants at the top if your sheets aren't all the same. It uses the currently active sheet so select the one you want before running the macro.

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

Похожие вопросы