MS Excel

@David123
Jakou máte verzi excelu. Tohle totiž úplně jednoduše zvládne Power query (Sloučit dotazy a použít Levé Anti)

Jinak, komentáře nepíšu. On je to jednoduchý kód a nejlépe to stejně pochopíte, když na to přijdete sám (jé, tohle dělá tohle, ahá...)citovat

Opravené v príspevku s prílohou, bola tam ešte jedna chyba, ktorá vznikla premenovávaním mojich názvov polí na Vaše (D1 vs. Day1). To len potvrdzuje to, že samotné porovnanie je pár riadkov, ale desiatky sú kontrola rôznych nechcených stavov.

Keď ale píšete, že až 17K vs. 20K riadkov, tak Vám snáď ešte urobím tú, čo to robí cez reťazec, tá bude možno najrýchlejšia. A možno to aj otestujem

EDIT: No teraz keď je tam už toľko podmienok, ošetrujúcich všakovaké možné stavy a ich kombinácie, už sa mi to veru nepáči. Postupne ako to človek ladí, prichádzajú stále nové a nové komplikácie, až sa Vám nakoniec znepáči samotný návrh. Sú tam opakujúce sa časti pre obe polia, tak by sa to dalo spracovať procedúrou s parametrami, bolo by to snáď kratšie. Uvidím, ako večer dopadne 2. verzia.citovat

Včera som sa k ďalšiemu variantu nedostal.
Keď ste ešte len na riadku
Day1 = .Cells(2, 1).Resize(R1).Value2
tak pole nieje naplnené, len je vytvorené, teda má veľkosť
riadky 1-5
stĺpce 1-1
každá hodnota je Empty (prázdna hodnota)
keď dáte ešte raz F8 a prejdete na ďalší riadok, až potom sa riadok vykoná a pole dostane hodnoty z patričných buniek. Ožltnutý riadok v kóde pri krokovaní je len označenie riadka, ktorý sa bude najbližšie vykonávať, nieje ešte vykonaný.

Tých podmienok je tam preto toľko, lebo ak je napr meno iba jedno, tak ho Excel do VBA nevráti ako pole 1x1 ale ako jednu hodnotu. Ďalej napr. ak jedno pole je prázdne, tak je zbytočná kontrola, lebo to znamená, že všetky z neprázdneho v prázdnom chýbajú, tak sa iba skopírujú, samozrejme iba v prípade, že nieje prázdne aj jedno aj druhé, a samozrejme s ošetrením ak by to nebolo pole ale iba jedna hodnota (viď vyššie), a kombinácie týchto podmienok. Skoro to isté vypodmienkovanie stavov platí aj pri následnom zápise. A tým sa stáva kód dlhý, a čo je dlhé, je zložité, a čo je zložité je náchylné k chybám.
...

PS: Inak vidíte našiel ste ďalšiu nepresnosť v poznámke:
Day1 = .Cells(2, 1).Resize(R1).Value2 'načítanie mien do poľa Day2
a
Day2 = .Cells(2, 4).Resize(R2).Value2 'načítanie mien do poľa Day2
majú rovnaký popisok, ale samozrejme pri kopírovaní riadkov kde sa mení iba R1 na R2 a Day1 na Day2 som zabudol zmeniť popisok na
'načítanie mien do poľa Day1
v prvom prípade.

EDIT: Inak pre programátora je jedna z najťažších vecí ošetriť všetky možné veci, čo dokáže užívateľ vo svojej vynaliezavosti vyparatiť. Nadáva sa tomu blbuvzdornosť. A je to začarovaný kruh. Preto aj často veľmi zložité veci, ako napr. Windows, majú veľa chýb, lebo ich univerzálnosť tlačí pred sebou nepredstaviteľnú komplikovanosť, previazanosť, závislosť a robustnosť kódov. Vývojári nemajú šancu, ešte že majú užívateľov, ktorý ich upozornia (niekedy aj pár rokov v kuse). citovat

Ahoj Pole není nutné plnit postupně cyklem, ale je možné naplnit ho "hromadně". Udělal sem video, kde sem doplnil kód o funkci select jen z toho důvodu, aby bylo vidět co se děje na listu. Koukni co se děje na listu a v okně Locals v editoru VBA.

Ještě odkaz na video
http://leteckaposta.cz/902336012citovat

Stalker:

chápu nyní, že se pole naplní hromadně, bez nutnosti cyklu. Toto naplnění způsobí funkce Resize?
Sub test_pole()

Dim pole()
Dim x As Integer
Dim Data_count As Integer

i = Rows.Count

Data_count = ThisWorkbook.Worksheets("List1").Cells(i, 1).End(xlUp).Row

'ThisWorkbook.Worksheets("List1").Range(Cells(1, 1), Cells(Data_count, 1)).Copy

ReDim pole(1 To Data_count)

pole = ThisWorkbook.Worksheets("List1").Cells(1, 1).Resize(Data_count).Value2


Nyní je v "pole" uložené vše, so začíná A1 a končí Data_count. Proč ale? Co přesně toto zařídilo?

A ještě prosím dotaz.

Když by si chtěl data co jsou v poli "pole" vypsat pod sebe do sloupce. Jak by si to udělal?

Díkycitovat