» Poradna » Programy

EXCEL

 |   | 

Potreboval bych poradit, mam soubor se dvema listy a ja potrebuju data z prvniho listu zredit a ulozit na druhy list. Na prvnim listu bude třeba 10000 radku a na druhem liste se bude zapisovat jen kazdy desaty. Tzn. na druhm liste bude napsano neco jako:=List1!A1=List1!A10=List1!A20Jenze nejak netusim, jak roztahnout tuto posloupnost, abych ziskal cely sloupec az po =List1!A10000Potrebuji dat zredit a netusim jak toho docilit.

Odpovědi na otázku

 |   | 

netusite nikdo? prijde mi to jako banalita, ale ja s tim nepohnu

Souhlasím  |  Nesouhlasím  |  Odpovědět
 |   | 

Což takhle použít např. makro s čítačem (counter) a vyhodit si ho do tlačítka do listu a to pak spouštět, lze je spouštět i i při startu toho souboru. Dá se to najít v nápovědě, nebo si najdi tady odkazy, už tu byly podobné věci řešeny, dá se to odvodit.

Souhlasím  |  Nesouhlasím  |  Odpovědět
 |   | 

napadá mě jenom něco jako:=INDEX(List1!$A$1:$A$1000;C1;1)=INDEX(List1!$A$1:$ A$1000;C2;1)=INDEX(List1!$A$1:$A$1000;C3;1)ve sloupci C je posloupnost 1 11 21 31 41 (řádky, který chci vybírat)

Souhlasím  |  Nesouhlasím  |  Odpovědět
 |   | 

treba takovato procedura ve VBA:Sub KazdyNtyRadek()Dim MyCell As Range, i As Long, j As Long, Target As Range, Redit As Long Set Target = Worksheets("cil").Range("a1") Redit = 10 ' redeni 'vychozi hodnota i: i=9 -> 1.;11.;21.;... radek, i=8 -> 2.;12.;22.;... radek,.... 'i=0 -> 10.;20.;30.;... radek i = 0 j = 0 ' pocitadlo radku na cilovem listu For Each MyCell In Worksheets("zdroj").UsedRange.Cells i = i + 1 If i Mod 10 = 0 Then Target.Offset(j, 0).Value = MyCell.Value: j = j + 1 Next MyCellEnd Sub

Souhlasím  |  Nesouhlasím  |  Odpovědět
 |   | 

doplnuji: na zdrojovem listu je predpokladan pouze jeden sloupec, jak naznacuje zadani

Souhlasím  |  Nesouhlasím  |  Odpovědět

Související témata: Posloupnost


Určitě si přečtěte

10 věcí, které nás štvou na Windows 10 a bohužel asi jen tak nepřestanou

10 věcí, které nás štvou na Windows 10 a bohužel asi jen tak nepřestanou

** Windows 10 je na trhu 5 let, ale pořád má velké rezervy ** Ani desátá velká aktualizace, která vyjde na podzim, je nevyřeší ** Štvou nás Windows Update, Store, Nastavení atd.

Lukáš Václavík | 146

Podívejte se, co dokáže vyrobit jedna z nejexotičtějších 3D tiskáren v Česku

Podívejte se, co dokáže vyrobit jedna z nejexotičtějších 3D tiskáren v Česku

** Na jaře tiskla unikátní české respirátory ** Používá ji třeba Škoda Auto, a.s. ** Zajeli jsme se podívat do pražského showroomu 3Dees

Jakub Čížek | 12

Porovnání deseti cloudových disků: kam a za kolik uložit 100 GB, 1 TB a 10 TB dat?

Porovnání deseti cloudových disků: kam a za kolik uložit 100 GB, 1 TB a 10 TB dat?

** Zjistili jsme, kam do cloudu nejvýhodněji uložíte data ** Vytvořili jsme žebříček cen deseti cloudových úložišť ** Ceny se liší - často i velice výrazně!

Karel Kilián | 102

Co přijde po Netflixu a Amazonu? Tohle jsou streamovací služby, na které v Česku čekáme

Co přijde po Netflixu a Amazonu? Tohle jsou streamovací služby, na které v Česku čekáme

** Rozhodujete se mezi Netflixem a HBO Go? Věřte, bude hůř ** Na trhu je mnohem víc ambicióznějších streamovacích služeb ** Některé by mohly do ČR zamířit ještě letos

Lukáš Václavík | 45

Jak se žije s telefonem bez Googlu: Čerstvé zkušenosti s telefony Honor a Huawei

Jak se žije s telefonem bez Googlu: Čerstvé zkušenosti s telefony Honor a Huawei

** Honor u nás přichází s prvním telefonem bez Google Mobile Services ** Současný stav je lepší než na začátku, ideální ale není ** Zkusili jsme i hack s ručním přidáním služeb Googlu

Tomáš Holčík | 162


Aktuální číslo časopisu Computer

Megatest mobilů do 8 000 Kč

Test bezdrátových headsetů

Linux i pro začátečníky

Jak surfovat anonymně