Выборка данных с листа содержащего одну или несколько таблиц

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

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

Мир MS Excel » Вопросы и решения » Вопросы по VBA » Выборка данных с листа содержащего одну или несколько таблиц (Макросы/Sub)

tot

Дата: Вторник, 14.02.2017, 22:10 | Сообщение № 1

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

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

Сообщений: 2

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

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

Excel 2003

Доброго времени суток! Помогите, пожалуйста, реализовать... Новичек в этом деле, жизнь заставила

)
В общем есть выгрузка в формате Excel. Форма выгрузки стандартизирована, за исключением количества таблиц на одном листе.
Когда на листе таблица одна я нашел выход, но когда их две и более у меня проблема.
Первый блок данных всегда начинается с ячейки A15.
Столбец "C", перед выборкой я удаляю он не нужен. Далее в столбце "Реквизиты" оставляю только значение ИНН и разбиваю значение столбца "дата и время поступления" на два столбца. Далее кодом забираю данные
[vba]

Код

Dim S&
S = Range("A" & Rows.Count).End(xlUp).Row
Set iBeginRange = Range("A15:D" & S)
sCopyAddress = iBeginRange.Address

[/vba]
Но это работает только если таблица одна. Как определить начало следующего блока данных и есть ли он? Как произвести форматирование данных? Может как то циклом?

На первом листе примерно то что выгружается. На втором то что нужно получить в другом общем файле

К сообщению приложен файл: 3868839.xls (22.5 Kb)

Сообщение отредактировал tot - Вторник, 14.02.2017, 22:14

Ответить

KuklP

Дата: Вторник, 14.02.2017, 23:01 | Сообщение № 2

Группа: Проверенные

Ранг: Старожил

Сообщений: 2369

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

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

2003-2010

[vba]

Код

    Dim a As Range, S&
    S = Range("A" & Rows.Count).End(xlUp).Row
    For Each a In ActiveSheet.Range("A15:a" & S).SpecialCells(2).Areas
        'тут делаете с каждым блоком что хотите
    Next
и т.д.

[/vba]