[Shades]

Czy wie ktoś w jaki sposób mogę uzyskać taki efekt na matrycy w excel, chciałbym by matryca pokazywała tylko te kolumny oraz komórki w których wartość jest większa od 0. Mam do zrobienia jakieś 200 takich matryc więc usuwanie ręcznie kolumn i wierszy to nie jest chyba najlepszy pomysł :D
#excel

[bart_212]

@Shades: formatowanie warunkowe

[bart_212]

@Shades: czy chcesz #!$%@?ć tylko puste?

[Shades]

Chce uzyskać efekt jak na tej matrycy na dole którą zrobiłem ręcznie po przez wycinanie tych wierszy i kolumn w których nie było wartości

[Shades]

@bart_212: efekt finalny chciałbym uzyskać taki jak na tej mniejszej

[bart_212]

@Shades: daj nie zrobiony 1 przykład jako plik

[bart_212]

@Shades: tego sobie spróbuj:
https://www.youtube.com/watch?v=jeYaiEEyiZA

[matti05]

@Shades: suma, jeżeli, czy.pusta, filtrowanie i transpozycja pomogą Ci

[Shades]

@bart_212: @matti05: tak wygląda plik surowy, wiec metoda z pustymi nie będzie chyba działać.
https://drive.google.com/open?id=1VGqJVGtaRCViKGqHv9XAY17nSLhNoVPq

[bart_212]

@Shades: tych zer możesz się szybko pozbyć

1) ctrl +a
2) ctr + f
3) zamień
4) 0
5) zamień na pozostawiasz puste i dajesz zamień
6) spróbuj potem #!$%@?ć kolumny tak jak na wideo

[Shades]

@bart_212: i usuwa mi całość gdyż w każdym wierszu oraz kolumnie mam coś pustego

[DwaNiedzwiedzie]

@Shades: Sprawdź coś takiego:

Sub usun()

Set zakr = [a1].CurrentRegion

k = zakr.Columns.Count
w = zakr.Rows.Count

Application.ScreenUpdating = False

For i = k To 2 Step -1
 If WorksheetFunction.Sum(zakr.Columns(i)) = 0 Then zakr.Columns(i).Delete
Next

For i = w To 2 Step -1
 If WorksheetFunction.Sum(zakr.Rows(i)) = 0 Then zakr.Rows(i).Delete
Next

Application.ScreenUpdating = True

End Sub

[Shades]

@DwaNiedzwiedzie: widzę że to już jest wyższy poziom excel'a bo nie wiem nawet gdzie to wpisać, mogę Cię prosić o instrukcje gdzie to wstawić?

[DwaNiedzwiedzie]

@Shades: Otwórz w excelu arkusz, w którym chcesz usunąć wiersze i kolumny, naciśnij alt+F11, Insert->Module, wklej powyższy kod (bez apostrofów) w oknie edytora, F5.

[Shades]

@DwaNiedzwiedzie: muszę spróbować na windows, na osx chyba nie chcę działać

[DwaNiedzwiedzie]

2) ctr + f

3) zamień

@bart_212: ctrl+H :)

[bart_212]

@DwaNiedzwiedzie: no to krótsza droga ;)

[Shades]

@bart_212: @DwaNiedzwiedzie: @matti05: jak dotąd nie udało mi się tego zrobić więc chyba nie tedy droga, albo muszę się podszkolić albo znaleźć inną metodę by uzyskać to czego potrzebuje :D Tak czy inaczej dzięki za pomoc (ʘ‿ʘ)

[matti05]

@Shades: https://drive.google.com/file/d/1afVHs6NwAEGeYSZDEab7VMNDeAUTnIgC/view?usp=sharing
Pewnie da się to zrobić szybciej przez VBA, ale na piechotę można to zrobić formułą.
1. arkusz ma dodany wiersz i kolumnę, które oznaczają te zawierające coś poza 0.
2. arkusz odsiewa puste wiersze
3. arkusz wykonuje transpozycję i usuwa puste kolumny
4. przywraca pierwotny wygląd tabeli
Oczywiście poszczególne kroki są wykonywane ręcznie.