MS Excel

Dobrý 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ší »

elninoslov(17.3.2021 13:45)#050130

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

Alfan(17.3.2021 13:50)#050131

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

elninoslov(17.3.2021 15:06)#050133

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: zip

50133_vymaz-radky-s-hodnotou.zip (19kB, staženo 15x)

citovat

Alfan(18.3.2021 8:42)#050141

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

elninoslov(18.3.2021 9:01)#050142

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

Alfan(18.3.2021 13:09)#050144

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: zip

50144_elninoslov.zip (32kB, staženo 14x)

citovat

elninoslov(18.3.2021 15:44)#050152

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: zip

50152_elninoslov.zip (107kB, staženo 12x)

citovat

elninoslov(18.3.2021 17:14)#050156

príklad bez makra (ale csv som si vymyslel!)

Příloha: zip

50156_csv-pq-kt.zip (124kB, staženo 18x)

citovat

Alfan(19.3.2021 7:16)#050167

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

elninoslov(19.3.2021 11:59)#050171

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ší »

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

Uživatelské menu

Menu

Formulář Faktura

Formulář Faktura IV

Helios iNuvio

On-line nástroje