Скопировать выделенный диапазон без пустых строк

@izvne · Регистрация: 06.08.2012

Студворк — интернет-сервис помощи студентам

Нужно в Exel 2010 копировать данные в буфер обмена без пустых ячеек. Для Select. не могу найти способа такого.

@The_Prist · 04.08.2013, 11:06

Фильтруете по непустым и копируете.

@Igor_Tr · 04.08.2013, 15:09

Или я б еще попробовал Range(...).Specialcells(xlcelltypeblanks)

@The_Prist · 04.08.2013, 15:20

Сообщение от Igor_Tr

Или я б еще попробовал Range(...).Specialcells(xlcelltypeblanks)

Так это выделение пустых. А вроде как просят не пустые...
Тогда уж так:

Visual Basic

1	Union(Cells.SpecialCells(2), Cells.SpecialCells(-4123)).Select

@izvne · 04.08.2013, 15:36 **[ТС]**

Visual Basic

1	Selection.SpecialCells(xlCellTypeConstants).Copy

Всё равно метод SpecialCells не решает проблему, т. к. нужно копировать именно строки (в них могут быть пустые ячейки), но не копировать строки, состоящие только из пустых ячеек.

@Igor_Tr · 04.08.2013, 16:11

Его можно крутить по разному. Что значит пустых? Полностью? Есть строки с каким-то кол-вом пустых ячеек? Их считать как нужные? etc. Поэтому я и вставил 5 коп. В общем вид был бы где-то такой (грубо):

Visual Basic

   set mrng=.usedrange
      mrng.specialcells(xlcelltypeblanks).rows.hidden=true
   set mrng=mrng.specialcells(xlcelltypevisible)
' ну и для проверки (!!! только !!!)
   mrng.select

Очень сильно я разочаровался в AutoFilter.

Добавлено через 4 минуты
To Prist. В #3 нет выделения - только определение чего-то, нам нужного. Выделение (select) в #6, и то только как демо.

@The_Prist · 04.08.2013, 17:23

Не по теме:

Igor_Tr, я знаком с синтаксисом. И я видел, что нет выделения. Да и вообще никакого действия. Разьве это важно? Мне казалось, что это не может послужить причиной для дальнейшего развития темы. Я-то лишь хотел указать на то, что ТС хочет определить не пустые строки. Вы же предложили совершенно обратную операцию. Вот и все. Если мой ответ Вас чем-то задел - извиняюсь, хотя не вижу за что.

@Igor_Tr · 04.08.2013, 19:08

To The_Prist. Мы как-то не туда...

Мне наоборот нравится контраргументация, и я ее очень ценю. Честно. Поэтому люблю, когда в ветке много народа - всегда что-то интересное. И у меня негативный опыт с AutoFilter - на большом тормоз просто ужас. Для чего-то подобного, как у ТС, здесь Hugo121 предложил использовать ColumnDifferences. Сказал, что тоже быстрее. Пробовал - правда (хотя и так не верить ему нет смысла, всегда у него толково). А у меня еще появилась теперь идея - использовать RemoveDuplicates. Очень быстро работает, и на очень больших, и с кучей форматирования, и с удалением всего этого мусора. А пустые ряды - это ведь тоже дубликаты. Но останется один пустой ряд как оригинальный. Придумать, как его легко и быстро вычислить (если еще и куча просто пустых ячеек) - и тоже будет решение. Еще пару своих доков подготовлю на завтра, и поиграюсь. Что-то получится - скину.

Добавлено через 44 минуты

Вот игрушка получилась. В принцыпе - должна убивать два зайца. Убираем "случайные" дубликаты (по ходу), и удаляем все пустые строки. Так, на взгляд, должна работать быстро на больших массивах. Но пока не проверял.

. Проверил только, что работает на 100%.

Visual Basic

Sub sasd()
'Remove Empty via RemoveDublicate & SpecialCells
Dim mrng As Range, r1 As Range, marr(), n&, j&, i&
   With ActiveSheet
      Set mrng = .UsedRange:    n = mrng.Columns.Count
      ReDim marr(0 To n - 1):    j = 0
         For i = 1 To n:      marr(j) = i:   j = j + 1:   Next 'i
      mrng.RemoveDuplicates (marr), xlNo:  Set mrng = .UsedRange
      Set r1 = mrng.SpecialCells(xlCellTypeBlanks)
         For i = 1 To r1.Areas.Count
            If Application.CountA(mrng.Rows(r1.Areas(i).Row)) = 0 Then
               mrng.Rows(r1.Areas(i).Row).Delete Shift:=xlUp
               Exit For
            End If
         Next 'i
   End With
End Sub

Добавлено через 18 минут
Не так. Набор Areas может "пошутить" - он тоже умеет.

Исправлено (в коде выше).

Добавлено через 11 минут
И забыл добавить. Сначала существующий нужный диапазон, вместе в пустыми, загнать одним движением в массив mARR (все равно потом для него будет Redim без сохранения). Массив выложить в нужном месте (в любом случае быстрее чем Copy, если не нужно Paste special). Все это укладывается в две строки где-то сверху. И дальше это мое творчество. Но если честно, это цикл For i.... Что-то бы попроще сюда.

@izvne 0 / 0 / 0 Регистрация: 06.08.2012 Сообщений: 35
		1
	Скопировать выделенный диапазон без пустых строк 04.08.2013, 10:06. Показов 7258. Ответов 7 Метки нет (Все метки) Нужно в Exel 2010 копировать данные в буфер обмена без пустых ячеек. Для Select. не могу найти способа такого. 0

@The_Prist 1358 / 323 / 82 Регистрация: 13.11.2008 Сообщений: 669
	04.08.2013, 11:06	2
	Фильтруете по непустым и копируете. 0

@Igor_Tr 4377 / 661 / 36 Регистрация: 17.01.2010 Сообщений: 2,134
	04.08.2013, 15:09	3
	Или я б еще попробовал Range(...).Specialcells(xlcelltypeblanks) 0

@The_Prist
	04.08.2013, 17:23 #7
	Не по теме: Igor_Tr, я знаком с синтаксисом. И я видел, что нет выделения. Да и вообще никакого действия. Разьве это важно? Мне казалось, что это не может послужить причиной для дальнейшего развития темы. Я-то лишь хотел указать на то, что ТС хочет определить не пустые строки. Вы же предложили совершенно обратную операцию. Вот и все. Если мой ответ Вас чем-то задел - извиняюсь, хотя не вижу за что. 0

Опции темы