Домашняя страница Undo Do New Save Карта сайта Обратная связь Поиск по форуму
МИР MS EXCEL - Гость.xls

Вход

Регистрация

Напомнить пароль

 

= Мир MS Excel/Макрос для преобразования в сводную таблицу обрезает таблицу - Мир MS Excel

  • Страница 1 из 1
  • 1
Модератор форума: китин, _Boroda_, DrMini  
Макрос для преобразования в сводную таблицу обрезает таблицу
annabanana Дата: Четверг, 16.11.2017, 16:51 | Сообщение № 1
Группа: Пользователи
Ранг: Прохожий
Сообщений: 1
Репутация: 0 ±
Замечаний: 0% ±

Excel 2010
[sub]Добрый день! Создала при помощи рекордера макрос, который преобразует таблицу в сводную и на листе сводной таблицы производит некоторые расчеты. Таблица, по которой создавался макрос, была размером A1:BH2220. Но этот макрос необходимо применять к таблицам, которые могут быть гораздо длиннее. И сейчас этот макрос «обрезает» все более длинные таблицы ровно до 2220 строк. Подскажите, пожалуйста, как переписать Range и SourceData (полагаю, проблема в них), чтобы макрос не ограничивался 2220 строками, а брал столько, сколько действительно есть в таблице? Большое спасибо! Прикрепляю кусок макроса,в котором, как мне кажется, кроется ошибка.
К сообщению приложен файл: 4809163.jpg (67.5 Kb)


Сообщение отредактировал annabanana - Четверг, 16.11.2017, 16:53
 
Ответить
Сообщение[sub]Добрый день! Создала при помощи рекордера макрос, который преобразует таблицу в сводную и на листе сводной таблицы производит некоторые расчеты. Таблица, по которой создавался макрос, была размером A1:BH2220. Но этот макрос необходимо применять к таблицам, которые могут быть гораздо длиннее. И сейчас этот макрос «обрезает» все более длинные таблицы ровно до 2220 строк. Подскажите, пожалуйста, как переписать Range и SourceData (полагаю, проблема в них), чтобы макрос не ограничивался 2220 строками, а брал столько, сколько действительно есть в таблице? Большое спасибо! Прикрепляю кусок макроса,в котором, как мне кажется, кроется ошибка.

Автор - annabanana
Дата добавления - 16.11.2017 в 16:51
Nic70y Дата: Четверг, 16.11.2017, 17:08 | Сообщение № 2
Группа: Друзья
Ранг: Экселист
Сообщений: 9223
Репутация: 2478 ±
Замечаний: 0% ±

Excel 2010
[vba]
Код
u = Cells(Rows.Count, 1).End(xlUp).Row
[/vba]
[vba]
Код
Range("A1:BH" & u)
[/vba]


ЮMoney 41001841029809
 
Ответить
Сообщение[vba]
Код
u = Cells(Rows.Count, 1).End(xlUp).Row
[/vba]
[vba]
Код
Range("A1:BH" & u)
[/vba]

Автор - Nic70y
Дата добавления - 16.11.2017 в 17:08
sboy Дата: Четверг, 16.11.2017, 17:12 | Сообщение № 3
Группа: Друзья
Ранг: Участник клуба
Сообщений: 2566
Репутация: 724 ±
Замечаний: 0% ±

Excel 2010
[offtop] Nic70y, Поленился фотку сделать? :) а ведь ТС старался


Яндекс: 410016850021169
 
Ответить
Сообщение[offtop] Nic70y, Поленился фотку сделать? :) а ведь ТС старался

Автор - sboy
Дата добавления - 16.11.2017 в 17:12
  • Страница 1 из 1
  • 1
Поиск:

Яндекс.Метрика Яндекс цитирования
© 2010-2026 · Дизайн: MichaelCH · Хостинг от uCoz · При использовании материалов сайта, ссылка на www.excelworld.ru обязательна!