Karolina Sławińska

Karolina Sławińska Kierownik
administarcji
sprzedaży,
Frigoglass Sp. z
o.o.

Temat: tabela przestawna- usuwanie pól z zerami, filtr

Witam,

Mam problem, pewnie banalny, ale nie moge sobie poradzić. Szukałam takiego tematu ale niestety nie znalazłam
W tabeli przestawnej mam kilka kolumn zawierających dane, w pewnych z nich są zera. Jak przefiltrować tę tabelę, aby wyrzyciła te wiersze, które zawierają w wszystkich kolumnach"0".
aby lepiej wytłumaczyc podaję prosty przykład:

imie jan feb mar
ola 1 2 3
ola 0 1 2
kasia 1 0 9
kasia 0 0 0
ola 0 0 0
kasia 8 8 0
ala 0 8 8

Chciałabym pozbyc się wiersza 4 i 5, czyli tych , dla których wszystkie wartości są równe 0.

Z góry dziekuję za pomoc

konto usunięte

Temat: tabela przestawna- usuwanie pól z zerami, filtr

Dodaj w źródłowym arkuszu kolumnę z sumą, wrzuć ją na pole strony, kliknij dwa razy i uktryj 0
Karolina Sławińska

Karolina Sławińska Kierownik
administarcji
sprzedaży,
Frigoglass Sp. z
o.o.

Temat: tabela przestawna- usuwanie pól z zerami, filtr

dzieki ale to nie jest takie proste, ponieważ moja tabela ma pola obliczeniowe i chyba muszę zrobić pole obliczeniowe ze wszystkich tych pól, ktore mam w tabeli przestawnej i następnie przefiltrować po zerze.

Myślałam tylko, że jakiś prostszy sposób niż dodawanie kolejnej kolumny
Paweł B.

Paweł B. Capacity Management

Temat: tabela przestawna- usuwanie pól z zerami, filtr

Ja bym na zakresie wejściowym tabeli użył makra, by usunąć wiersze z samymi zerami. Na przykład takie makro:

Public Sub Usuń_wiersze()
' deklaruję użyte zmienne
Dim Kolumna As Integer
Dim Wiersz As Integer
Dim MyRange As Range

' ustalam liczbę kolumn i wierszy - założyłem, że dane są w arkuszu nazwanym "Dane"

Wiersz = Sheets("Dane").UsedRange.Rows.Count
Kolumna = Sheets("Dane").UsedRange.Columns.Count

' przesuwam o jedną kolumnę w prawo

Kolumna = Kolumna + 1

' zaznaczam zakres

Cells(Wiersz, Kolumna).Activate

Range(Selection, Selection.End(xlUp)).Select

' wypełniam zakres formułą sumy założyłem

Selection.FormulaR1C1 = "=Sum(RC[-" & Kolumna - 2 & "]:RC[-1])"

Set MyRange = Range(Cells(2, Kolumna), Cells(Wiersz, Kolumna))

' usuwam wiersze, których suma równa jest zeru

For Each s In MyRange
If s = 0 Then s.EntireRow.Delete
Next s

ActiveCell.EntireColumn.Delete

MsgBox ("Skończyłem")

End SubPaweł B. edytował(a) ten post dnia 06.03.10 o godzinie 11:04
Michał Wójcik

Michał Wójcik IT Project Manager,
argentinian tango
teacher at 'el
abra...

Temat: tabela przestawna- usuwanie pól z zerami, filtr

Kiedy chcę szybko ad-hoc wyczyścić dane źródłowe, do skasowania zbędnych wierszy (dla których konkretna kolumna spełnia zadane kryteria, np wartość = 0) używam ten dodatek:

http://j-walk.com/ss/excel/files/rowdel.htm

Następna dyskusja:

Tabela przestawna - kryteri...




Wyślij zaproszenie do