Использование CurrentRegion и диапазон с формулами

Старая форма входа

Страница 1 из 1 1
Модератор форума: китин, _Boroda_

Использование CurrentRegion и диапазон с формулами (Макросы/Sub)

5881323

Дата: Воскресенье, 28.08.2022, 15:58 | Сообщение № 1

Группа: Пользователи

Ранг: Прохожий

Сообщений: 1

Репутация: 0 ±

Замечаний: 0% ±

Добрый день!

Помогите советом.
У меня есть таблица с данными(формулами).

Размер таблицы каждый раз должен быть разным, исходя из заполненности. Использую CurrentRegion для формирования нужного размера таблицы и уперся в то, что если по результатам выполнения формулы(например из- за ошибки) подставляется "" , то CurrentRegion всё равно считает это данными и добавляет эту строку в диапазон.

Во вложении выделил желтым ячейку с формулой.

Подскажите, как можно обойти эту проблему.

Заранее спасибо!

К сообщению приложен файл: Current_region.xlsm (14.4 Kb)

Сообщение отредактировал 5881323 - Воскресенье, 28.08.2022, 16:08

Ответить

NikitaDvorets

Дата: Понедельник, 29.08.2022, 11:44 | Сообщение № 2

Группа: Авторы

Ранг: Ветеран

Сообщений: 610

Репутация: 142 ±

Замечаний: 0% ±

Excel 2019

5881323, добрый день!
Вариант: можно попробовать скорректировать целевой диапазон за счет вычета 1 из номера строки с ошибкой в формуле.
См. макрос в прилагаемом файле (адрес скорректированного диапазона).

К сообщению приложен файл: TEST-199___29-0.xlsm (19.9 Kb)

Ответить

Nic70y

Дата: Понедельник, 29.08.2022, 16:53 | Сообщение № 3

Группа: Друзья

Ранг: Экселист

Сообщений: 9005

Репутация: 2369 ±

Замечаний: 0% ±

Excel 2010

вдруг правильно
[vba]

Код

Sub Test1()
    'MsgBox Range("A1").CurrentRegion.Address
    u = Range("A1").CurrentRegion.Address
    v = Evaluate("=MAX((" & u & "<>"""")*ROW(" & u & "))")
    w = Evaluate("=MAX((" & u & "<>"""")*COLUMN(" & u & "))")
    MsgBox Range(Cells(1, 1), Cells(v, w)).Address
End Sub

[/vba]

ЮMoney 41001841029809

Ответить

Использование CurrentRegion и диапазон с формулами (Макросы/Sub)

Страница 1 из 1
1