Вывод данных в массивы на новые листы

@SNIeie · Регистрация: 29.11.2011

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

Доброго времени суток!

У меня есть код, написанный для скрытия строк с одинаковыми названиями.
Вопрос следующий, как можно сделать вывод результатов в массивы на новый лист?
Логика :
1)Определяем область с записями True - помещаем в массив-выводим на лист;
2)Определяем область с записями False - помещаем во второй массив - выводим на лист.
Код:

Visual Basic

Sub SNIeie()
    Dim lngI As Long
    Dim objC As Range
    Dim blA As Boolean
    Application.ScreenUpdating = False
    For lngI = Cells(Rows.Count, 1).End(xlUp).Row To 2 Step -1
        blA = False
        For Each objC In Range(Cells(lngI, 3), Cells(lngI, 13)).Cells
            If objC <> Cells(lngI, 3) Then blA = True
        Next
        If blA = False Then Rows(lngI).EntireRow.Hidden = True
    Next lngI
    Application.ScreenUpdating = True
End Sub
Sub SNIeie2()
 
    Rows("1:" & [a1].CurrentRegion.Rows.Count).EntireRow.Hidden = False
End Sub

@kuklp · 13.12.2011, 13:59

Visual Basic

1
2
3

...
[a1].CurrentRegion.SpecialCells(12).Copy Лист2.[a1]
End Sub

@SNIeie · 13.12.2011, 14:03 **[ТС]**

не совсем понятно

@kuklp · 13.12.2011, 14:08

Вам нужно скопировать видимые строки на другой лист?

@SNIeie · 13.12.2011, 14:12 **[ТС]**

Практически, 1) Вывести видимые ячейки на новый лист 2) Вывести невидимые ячейки на новый лист

@kuklp · 13.12.2011, 14:22

Ну так я показал как. Копируете видимые, потом меняете видимые на невидимые и опять копируете.

@SNIeie · 13.12.2011, 14:34 **[ТС]**

что означает 12 ?

Visual Basic

1	[a1].CurrentRegion.SpecialCells(12).Copy Лист2.[a1]

@kuklp · 13.12.2011, 14:38

Означает видимые.

@SNIeie · 13.12.2011, 14:42 **[ТС]**

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

Означает видимые.

а невидимые тогда как?

@kuklp · 13.12.2011, 14:45

Никак. См. мой пост от Сегодня, 12:22.

@kuklp 1702 / 189 / 19 Регистрация: 20.11.2011 Сообщений: 281
	13.12.2011, 14:45	10
	Никак. См. мой пост от Сегодня, 12:22. 0

@SNIeie 0 / 0 / 0 Регистрация: 29.11.2011 Сообщений: 7
	13.12.2011, 14:03 [ТС]	3
	не совсем понятно 0

@SNIeie 0 / 0 / 0 Регистрация: 29.11.2011 Сообщений: 7
	13.12.2011, 14:12 [ТС]	5
	Практически, 1) Вывести видимые ячейки на новый лист 2) Вывести невидимые ячейки на новый лист 0

@kuklp 1702 / 189 / 19 Регистрация: 20.11.2011 Сообщений: 281
	13.12.2011, 14:22	6
	Ну так я показал как. Копируете видимые, потом меняете видимые на невидимые и опять копируете. 0

@kuklp 1702 / 189 / 19 Регистрация: 20.11.2011 Сообщений: 281
	13.12.2011, 14:38	8
	Означает видимые. 0

@SNIeie 0 / 0 / 0 Регистрация: 29.11.2011 Сообщений: 7
	13.12.2011, 14:42 [ТС]	9
	Сообщение от kuklp Означает видимые. а невидимые тогда как? 0