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

Вход

Регистрация

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

 

= Мир MS Excel/Копирование части таблицы на другой лист - Мир MS Excel

Регистрация · Логин: · Пароль: · · Забыли пароль?
Страница 1 из 11
Модератор форума: _Boroda_, Pelena, Manyasha, SLAVICK 
Мир MS Excel » Вопросы и решения » Вопросы по VBA » Копирование части таблицы на другой лист (Макросы/Sub)
Копирование части таблицы на другой лист
Vinney Дата: Четверг, 14.01.2016, 09:01 | Сообщение № 1
Группа: Пользователи
Ранг: Новичок
Сообщений: 13
Репутация: 0 ±
Замечаний: 0% ±

Excel 2010
Подскажите, пожалуйста. Нужно скопировать часть таблицы в другой лист. Не могу задать область копирования, т.к. в процессе выполнения макрос удаляет ненужные столбцы и я не могу знать координаты конца таблицы вправо. Допустим, мне нужен фрагмент, заканчивающийся колонкой "Мин. уп". Во вложении пример, область копирования выделена красным цветом
К сообщению приложен файл: .xls.xlsx(14Kb)
 
Ответить
СообщениеПодскажите, пожалуйста. Нужно скопировать часть таблицы в другой лист. Не могу задать область копирования, т.к. в процессе выполнения макрос удаляет ненужные столбцы и я не могу знать координаты конца таблицы вправо. Допустим, мне нужен фрагмент, заканчивающийся колонкой "Мин. уп". Во вложении пример, область копирования выделена красным цветом

Автор - Vinney
Дата добавления - 14.01.2016 в 09:01
_Boroda_ Дата: Четверг, 14.01.2016, 09:04 | Сообщение № 2
Группа: Модераторы
Ранг: Экселист
Сообщений: 10334
Репутация: 4357 ±
Замечаний: 0% ±

2003; 2007; 2010; 2013 RUS
А почто макроса-то в файле нет?
Ну да ладно. номер столбца с "Мин. уп" можно узнать так
[vba]
Код
c_ = WorksheetFunction.Match("Мин. уп", Range("1:1"), 0)
[/vba]
целиком код так
[vba]
Код
    c_ = WorksheetFunction.Match("Мин. уп", Range("1:1"), 0)
    r_ = Range("A" & Rows.Count).End(xlUp).Row
    Cells(2, 1).Resize(r_ - 1, c_).Copy
[/vba]


Скажи мне, кудесник, любимец ба’гов...
Платная помощь:
Boroda_Excel@mail.ru
Яндекс-деньги: 41001632713405 | Webmoney: R289877159277; Z102172301748; E177867141995
 
Ответить
СообщениеА почто макроса-то в файле нет?
Ну да ладно. номер столбца с "Мин. уп" можно узнать так
[vba]
Код
c_ = WorksheetFunction.Match("Мин. уп", Range("1:1"), 0)
[/vba]
целиком код так
[vba]
Код
    c_ = WorksheetFunction.Match("Мин. уп", Range("1:1"), 0)
    r_ = Range("A" & Rows.Count).End(xlUp).Row
    Cells(2, 1).Resize(r_ - 1, c_).Copy
[/vba]

Автор - _Boroda_
Дата добавления - 14.01.2016 в 09:04
Vinney Дата: Четверг, 14.01.2016, 09:16 | Сообщение № 3
Группа: Пользователи
Ранг: Новичок
Сообщений: 13
Репутация: 0 ±
Замечаний: 0% ±

Excel 2010
Сейчас попробую, спасибо!


Сообщение отредактировал Vinney - Четверг, 14.01.2016, 09:17
 
Ответить
СообщениеСейчас попробую, спасибо!

Автор - Vinney
Дата добавления - 14.01.2016 в 09:16
Мир MS Excel » Вопросы и решения » Вопросы по VBA » Копирование части таблицы на другой лист (Макросы/Sub)
Страница 1 из 11
Поиск:

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