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

Вход

Регистрация

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

 

= Мир MS Excel/Скопировать данные до последней заполненной строки. - Мир MS Excel

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

Excel 2013
Добрый день, Господа! Подскажите пожалуйста, как можно по проще записать данную строку в коде?
[vba]
Код
.Range("B7:B11999,D7:D11999,H7:H11999,J7:J11999,K7:K11999,P7:P11999").Copy Sh.[A3]
[/vba]
А вообще... было бы хорошо, чтоб копировались данные столбцы до последней заполненной строки. Вот полный код:


Сообщение отредактировал ZatX - Вторник, 06.06.2017, 13:43
 
Ответить
СообщениеДобрый день, Господа! Подскажите пожалуйста, как можно по проще записать данную строку в коде?
[vba]
Код
.Range("B7:B11999,D7:D11999,H7:H11999,J7:J11999,K7:K11999,P7:P11999").Copy Sh.[A3]
[/vba]
А вообще... было бы хорошо, чтоб копировались данные столбцы до последней заполненной строки. Вот полный код:

Автор - ZatX
Дата добавления - 06.06.2017 в 12:35
and_evg Дата: Вторник, 06.06.2017, 14:21 | Сообщение № 2
Группа: Проверенные
Ранг: Форумчанин
Сообщений: 130
Репутация: 29 ±
Замечаний: 0% ±

Excel 2007
ZatX, В этих столбцах по одинаковому количеству строк?
Если да, то номер последней строки в столбце B :
[vba]
Код
Range("B1").End(xlDown).Row
[/vba]


Сообщение отредактировал and_evg - Вторник, 06.06.2017, 14:23
 
Ответить
СообщениеZatX, В этих столбцах по одинаковому количеству строк?
Если да, то номер последней строки в столбце B :
[vba]
Код
Range("B1").End(xlDown).Row
[/vba]

Автор - and_evg
Дата добавления - 06.06.2017 в 14:21
_Boroda_ Дата: Вторник, 06.06.2017, 14:28 | Сообщение № 3
Группа: Модераторы
Ранг: Местный житель
Сообщений: 10830
Репутация: 4473 ±
Замечаний: 0% ±

2003; 2007; 2010; 2013 RUS
[vba]
Код
range("B" & rows.Count).End(xlUp).Row
[/vba]Не будет зависеть от наличия пустых ячеек в середине столбца В
Или
[vba]
Код
r_ = Cells(1).SpecialCells(xlLastCell).Row
[/vba]


Скажи мне, кудесник, любимец ба’гов...
Платная помощь:
Boroda_Excel@mail.ru
Яндекс-деньги: 41001632713405 | Webmoney: R289877159277; Z102172301748; E177867141995
 
Ответить
Сообщение[vba]
Код
range("B" & rows.Count).End(xlUp).Row
[/vba]Не будет зависеть от наличия пустых ячеек в середине столбца В
Или
[vba]
Код
r_ = Cells(1).SpecialCells(xlLastCell).Row
[/vba]

Автор - _Boroda_
Дата добавления - 06.06.2017 в 14:28
ZatX Дата: Вторник, 06.06.2017, 22:03 | Сообщение № 4
Группа: Пользователи
Ранг: Новичок
Сообщений: 17
Репутация: 0 ±
Замечаний: 0% ±

Excel 2013
_Boroda_, and_evg, Спасибо большое)
 
Ответить
Сообщение_Boroda_, and_evg, Спасибо большое)

Автор - ZatX
Дата добавления - 06.06.2017 в 22:03
Мир MS Excel » Вопросы и решения » Вопросы по VBA » Скопировать данные до последней заполненной строки. (Макросы/Sub)
Страница 1 из 11
Поиск:

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