ошибка при фильтрации - Microsoft Office Excel

Screame · 12.08.2009, 23:58

При нажатии кнопки "скрыть" должны скрываться все пустые строки, но почемуто одна строка под номером 4 не скрывается, как можно с этим справится? В примере все станет понятно!

motorway · 13.08.2009, 01:13

Потому что фильтр оставляет уникальные строки, а пустая - тоже уникальная. Можно сделать так (после применения фильтра идет проверка на пустоту ячейки в колонке Артикул и скрывается найденная пустая строка):

Код:

Sub Макрос1()
    Range("B1:J1066").AdvancedFilter Action:=xlFilterInPlace, Unique:=True
    Range("A1").Select
    
    lastrow = ActiveSheet.UsedRange.Row + ActiveSheet.UsedRange.Rows.Count - 1
    For i = 2 To lastrow
    If (Cells(i, 2) = "") Then
    Rows(i).Select
    Selection.EntireRow.Hidden = True
    GoTo LAB
    End If
    Next i
LAB:
    
End Sub

SAS888 · 13.08.2009, 06:26

Можно чуть проще:

Код:

Sub Макрос1()
    Application.ScreenUpdating = False: On Error Resume Next
    [B1:J1066].AdvancedFilter Action:=xlFilterInPlace, Unique:=True
    Intersect(ActiveSheet.UsedRange, [B:B].SpecialCells(xlCellTypeBlanks)).EntireRow.Hidden = True
End Sub

Пример во вложении.

Screame · 13.08.2009, 10:37

скажите есть какой нибудь способ после того как скрыты пустые строки, скопировать оставшиеся для вставки на другой лист? только скопировать уже без пустых строк!

The_Prist · 13.08.2009, 10:48

Код:

ActiveSheet.UsedRange.Cells.SpecialCells(xlVisible).Copy

SAS888 · 13.08.2009, 10:53

Если этот вопрос связан с предыдущим, то метод .AdvancedFilter позволяет сразу поместить отфильтрованные данные в нужный лист в нужный диапазон.

Screame · 13.08.2009, 12:34

Цитата:

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

Если этот вопрос связан с предыдущим

Да это относится именно к этой таблице, после того как убраны ненужные строки она должна скопироватся и вставится на лист "залишок"! пожалуйста если можно поподробней об AdvancedFilter, если можно напишите как ей воспользоваться?

SAS888 · 13.08.2009, 13:35

Посмотрите пример во вложении. Нажмите кнопку "Старт".

Screame · 13.08.2009, 22:44

попробовал пример из "книга4.xls" если я в эту книгу сбрасываю свои данные появляется таже проблема, строчка 2 и строчка 4 никуда не убираются, попробуйте файл из моего вложения нажмите на кнопку "старт" и сами все увидите, быть может все таки есть возможность както с ними справится?

motorway · 13.08.2009, 23:40

А почему 4-ая должна убираться?

13.08.2009, 01:13	#2
motorway Участник клуба Регистрация: 28.06.2009 Сообщений: 1,950	Потому что фильтр оставляет уникальные строки, а пустая - тоже уникальная. Можно сделать так (после применения фильтра идет проверка на пустоту ячейки в колонке Артикул и скрывается найденная пустая строка): Код: `Sub Макрос1() Range("B1:J1066").AdvancedFilter Action:=xlFilterInPlace, Unique:=True Range("A1").Select lastrow = ActiveSheet.UsedRange.Row + ActiveSheet.UsedRange.Rows.Count - 1 For i = 2 To lastrow If (Cells(i, 2) = "") Then Rows(i).Select Selection.EntireRow.Hidden = True GoTo LAB End If Next i LAB: End Sub` Скрипты PHP, VBA. Skype:ktmtramway Расписание электричек Быстрый проверенный хостинг.

13.08.2009, 10:48	#5
The_Prist Участник клуба Регистрация: 17.07.2009 Сообщений: 1,088	Код: `ActiveSheet.UsedRange.Cells.SpecialCells(xlVisible).Copy` WebMoney - R298726502453; Яндекс.Деньги - 41001332272872 www.excel-vba.ru

13.08.2009, 10:53	#6
SAS888 Старожил Регистрация: 05.12.2007 Сообщений: 4,180	Если этот вопрос связан с предыдущим, то метод .AdvancedFilter позволяет сразу поместить отфильтрованные данные в нужный лист в нужный диапазон. Чем шире угол зрения, тем он тупее.

13.08.2009, 23:40	#10
motorway Участник клуба Регистрация: 28.06.2009 Сообщений: 1,950	А почему 4-ая должна убираться? Скрипты PHP, VBA. Skype:ktmtramway Расписание электричек Быстрый проверенный хостинг.

Похожие темы
Тема	Автор	Раздел	Ответов	Последнее сообщение
Excel ослеп или я "в лыжи обутый"? (при фильтрации не видна часть таблицы)	palabrador	Microsoft Office Excel	21	19.05.2016 13:33
ОШИБКА ПРИ ЗАГРУЗКЕ	Костян Пират	Операционные системы общие вопросы	5	21.02.2009 12:14
Создание проги для фильтрации списка слов за разными критериями	Makoto-kun	Помощь студентам	1	10.01.2009 04:37
ошибка фильтрации	Dozent	Общие вопросы Delphi	5	25.06.2008 22:52
Ошибка при фильтрации!	Markus	БД в Delphi	0	05.05.2007 17:28

13.08.2009, 10:37	#4
Screame Форумчанин Регистрация: 27.05.2009 Сообщений: 170	скажите есть какой нибудь способ после того как скрыты пустые строки, скопировать оставшиеся для вставки на другой лист? только скопировать уже без пустых строк!