Копирование видимых ячеек - Microsoft Office Excel

mephist · 16.05.2009, 02:14

Думаю знающие люди мне сразу смогут помочь.
Есть длинный столбец данных, он сгруппирован, я хочу скопировать из него только те данные, которые в данный момент отображаются на экране, а он мне копирует весь столбец целиком.
Как это сделать??? это ведь так просто(я надеюсь что в Excel есть стандартная примочка для этого).
Заранее спасибо!

EducatedFool · 16.05.2009, 08:50

http://www.programmersforum.ru/showthread.php?t=49776

Есть 2 основных варианта кода для копирования видимых строк:

Код:

Sub test()
    Range("4:40").SpecialCells(xlCellTypeVisible).Copy    ' копируем только видимые строки
    Cells(44, 1).Select: ActiveSheet.Paste ' вставка, начиная с 44-й строки
End Sub

Код:

Sub test2()
    For i = 4 To 40
        If Rows(i).Hidden = False Then Rows(i).Copy Worksheets(2).[a65000].End(xlUp).Offset(1).EntireRow
    Next
End Sub

mephist · 16.05.2009, 13:56

Спасибо большое!

IFRSoff · 16.05.2009, 14:02

Стандартный способ Alt+Ж

mephist · 18.05.2009, 11:18

Alt+Ж! Разрази меня гром - Это работает! Спасибо

16.05.2009, 02:14	#1
mephist Форумчанин Регистрация: 01.05.2009 Сообщений: 200	Копирование видимых ячеек Думаю знающие люди мне сразу смогут помочь. Есть длинный столбец данных, он сгруппирован, я хочу скопировать из него только те данные, которые в данный момент отображаются на экране, а он мне копирует весь столбец целиком. Как это сделать??? это ведь так просто(я надеюсь что в Excel есть стандартная примочка для этого). Заранее спасибо! Последний раз редактировалось mephist; 16.05.2009 в 02:17.

16.05.2009, 08:50	#2
EducatedFool Программист VBA СуперМодератор Регистрация: 13.07.2008 Сообщений: 6,858	http://www.programmersforum.ru/showthread.php?t=49776 Есть 2 основных варианта кода для копирования видимых строк: Код: `Sub test() Range("4:40").SpecialCells(xlCellTypeVisible).Copy ' копируем только видимые строки Cells(44, 1).Select: ActiveSheet.Paste ' вставка, начиная с 44-й строки End Sub` Код: `Sub test2() For i = 4 To 40 If Rows(i).Hidden = False Then Rows(i).Copy Worksheets(2).[a65000].End(xlUp).Offset(1).EntireRow Next End Sub` __Полезные надстройки для Excel. Парсинг сайтов и файлов. Макросы любой сложности на заказ. Мониторинг цен конкурентов

Похожие темы
Тема	Автор	Раздел	Ответов	Последнее сообщение
Копирование содержание ячеек и их ширины	tae1980	Microsoft Office Excel	5	14.08.2009 15:25
Загрузка памяти увеличивается без видимых причин	Парсифаль	Операционные системы общие вопросы	20	28.06.2009 01:00
Границы ячеек	AnnNet	Microsoft Office Excel	4	20.02.2009 12:19
Защита ячеек	Levchik	Microsoft Office Excel	1	02.02.2009 08:15

16.05.2009, 13:56	#3
mephist Форумчанин Регистрация: 01.05.2009 Сообщений: 200	Спасибо большое!

16.05.2009, 14:02	#4
IFRSoff Заблокирован Регистрация: 23.02.2009 Сообщений: 306	Стандартный способ Alt+Ж

18.05.2009, 11:18	#5
mephist Форумчанин Регистрация: 01.05.2009 Сообщений: 200	Alt+Ж! Разрази меня гром - Это работает! Спасибо