< návrat zpět

MS Excel


Téma: Výmaz řádku podle hodnoty v konkrétním sloupci rss

Zaslal/a 17.3.2021 13:27

AlfanDobrý den, mohl byste mi, prosím, někdo poradit s makrem, které by vymazalo na listu "data" všechny řádky, ve kterých je ve sloupci "R" hodnota "0" (nula)?
Děkuji.

Zaslat odpověď >

Strana:  1 2 3   další »
#050130
elninoslov
Vymazalo hodnoty a riadku ostanú, alebo odstránilo celé riadky?
Je to tabuľka alebo Tabuľka (lebo pri Tabuľke treba myslieť na ponechanie posledného ostávajúceho riadku napr. kvôli vzorcom)?
Od ktorého riadku sa má začať?citovat
#050131
Alfan
Je to Tabulka, zdroj pro konti tabulku.
Začíná se od 2. řádku a počet řádků může být proměnlivý.
Vždycky tam zůstane nějaký řádek, protož ve sloupci "R" jsou hodnoty "0" nebo "A".
Děkujicitovat
#050133
elninoslov
prkld
Sub Zmaz_radky(Tabulka As ListObject, Sloupec As String, Hodnota)
Dim Hodnoty(), Radku As Long, i As Long, Oblast As Range

With Tabulka.ListColumns("abc").DataBodyRange
Radku = .Rows.Count
If Radku = 1 Then
ReDim Hodnoty(1 To 1, 1 To 1)
Hodnoty(1, 1) = .Value
Else
Hodnoty = .Value
End If

For i = 1 To Radku
If Not IsEmpty(Hodnoty(i, 1)) And Hodnoty(i, 1) = Hodnota Then
If Oblast Is Nothing Then Set Oblast = .Rows(i) Else Set Oblast = Union(Oblast, .Rows(i))
End If
Next i
End With

If Not Oblast Is Nothing Then Oblast.Delete Shift:=xlUp
End Sub


Sub Vymaz()
Zmaz_radky Worksheets("Hárok1").ListObjects("Tabuľka1"), "abc", 0
End Sub
Příloha: zip50133_vymaz-radky-s-hodnotou.zip (19kB, staženo 14x)
citovat
#050141
Alfan
To elninoslov:
Děkuji. Zeditoval jsem to, ale po spuštění se stále "točí" kolečko. Když kouknu do Správce úloh, tak mám u excel neodpovídá.
Ten můj soubor má 34 MB a na tom listu "data" je 305 tisíc řádků.
Mám to nechat proběhnout nebo se to dá nějak zrychlit?
Děkuji.citovat
#050142
elninoslov
Nemohol by ste poslať na ukážku súbor s vymyslenými 5 riadkami dát a zachovanými vzorcami ? Ja by som si z toho už tých 300K odvodil a skúsil odkrokovať, čo trvá najdlhšie. Koľko asi riadkov sa takto maže? Tisícky? Desaťtisícky? Stotisícky? Lebo aj pridávanie oblasti k celku postupne spomaľuje, a značne, tak by sa to spravilo po častiach.citovat
#050144
Alfan
Já třeba vyhodnocuji rok 2019 - 2020.
Těch cca 300 tisíc řádků jsou tyto roky, 6 let
Náš IMS nemá žádnou nadstavbu pro controlling :-(
A tak to potřebuji dělat takto.
Ještě si tam pak dodělám import z *.csv. Ale ten mám a používám.
Děkuji.
Příloha: zip50144_elninoslov.zip (32kB, staženo 13x)
citovat
#050152
elninoslov
To by som dal cez PQ do dátového modelu, a ten ako zdroj pre KT. urobil som si skúšobnú tbl s 300K a akýkoľvek spôsob mazania náhodných cca 160K riadkov je utópia. Problém je dostať sa čo i len cez blok 2K riadkov. Ten posun ostatných buniek je ohromne náročný. Teda by som to spravil cez PQ.
Dokonca ak máte ten CSV importovať, tak to by som urobil rovnako cez PQ.

Ak tomu teda rozumiem správne. Máte nejaký exportovaný CSV z Vášho systému, ktorý potrebujete spracovať. Tak nechajte ten CSV spracovať rovno cez PQ, a na ten PQ dotaz napojte KT s už odfiltrovanými "0" (to urobí to PQ). Ak je to tak, a ak môžete, tak upravte ten Váš CSV na napr. 3 dátové riadky s vymyslenými údajmi, ale so zachovaním formátu dát. A spravíme na to PQ.
Příloha: zip50152_elninoslov.zip (107kB, staženo 11x)
citovat
#050156
elninoslov
príklad bez makra (ale csv som si vymyslel!)
Příloha: zip50156_csv-pq-kt.zip (124kB, staženo 17x)
citovat
#050167
Alfan
Děkuji.
To PQ je power query?
Já mám v excelu jen Power Pivot.
Pak je ještě Power query a Power BI.
A ani s jedním z těch 3 jsem nikdy nedělal. Kdysi jsem dělal v access.
Musím si to načít a trochu se do toho podívat a hlavně taky zjistiti, jaký je mezi nimi rozdíl a co umí, abych tady neměl zbytečné dotazy.
Jen pro doplnění.
Když jsem si srovnal ten list "data", formát tabulky podle sloupce "rok" a podle sloupce "Aktivace", obojí trvalo dlouho, tak jsem pak dal zobrazit jen všechny "Aktivace" rovno nula a pak ještě k tomu "rok" 2015.
Tímto rokem jsem začal a dal jsem standardně odstranit řádky.
Tento první rok (2015) trval dost dlouho. Ale další roky se odstranily ihned.
Zkoušel jsem to 2x a vždycky se stejným výsledkem.citovat
#050171
elninoslov
PQ je od Office 2016 vrátane priamo integrovaný, a do v. 2010 a 2013 je origo free doplnok. Mrknite na menu Údaje - Dotazy a pripojenia, potom vpravo musíte vidieť dotaz PQDataTab - dvojklik - môžete ho upravovať buď tlačítkami alebo v Domov - Rozšírený editor, priamo editáciou M-kódu.
Tento PQ dotaz naťahá data z CSV (cesta je uvedená v oranžovej Tabuľke na liste "zak") do dátového modulu. Dátový modul už používa tá KT. V dátovom module som ešte urobil reláciu na tú Tabuľku ZakTab.
Použitie je jednoduché:
1. Podľa potreby zmeníte cestu v súboru CSV v oranžovej Tabuľke.
2. Aktualizujete KT.

Samozrejme predpokladom je, aby som vedel ten PQ dotaz správne nastaviť, potrebujem vidieť datovú štruktúru CSV. Môžeme to skúsiť, len potrebujem CSV aspoň s 1-2 riadkami dát (vymyslených, ale zachované typy dát).

Snáď uvažujem správne...citovat

Strana:  1 2 3   další »

Uživatelské menu

Nejste přihlášen(a)
avatar\n

Menu

On-line nástroje

Formulář Faktura

Formulář Faktura IV

Oblíbený formulář Faktura byl vylepšen a rozšířen.
Více se dočtete zde.

Aktivní diskuse

odpocet a storno tl.

PavDD • 28.3. 8:53

odpocet a storno tl.

Začátečník • 26.3. 14:39

odpocet a storno tl.

PavDD • 26.3. 10:22

odpocet a storno tl.

elninoslov • 26.3. 7:50

odpocet a storno tl.

PavDD • 26.3. 7:26

odpocet a storno tl.

elninoslov • 25.3. 22:34

odpocet a storno tl.

Začátečník • 25.3. 15:09