» Poradna » Programy

Pomoc s makrem v excelu

 |   |  Microsoft Windows 7 Chrome 34.0.1847.131

Ahoj,mám takový problém s excelem, se kterým si nevím rady. Možná to bude trochu komplikované vysvětlit, ale je to vlastně docela jasná věc. Takže o co jde...Mám tabulku, kde v jednotlivých řádcích mám roky a ve sloupcích měsíce. Pro každý řádek je tedy první sloupec s daným rokem a v následujících 12 buňkách jsou hodnoty ve sloupcích označených nahoře jako "Jan", "Feb", atd. Jedná se o data pro jednu konkrétní zemi. No a teď co potřebuju. Podobný soubor mám pro všechny země světa a potřeboval bych je dát dohromady do jednoho souboru. To už si pak vyřeším makrem a pomocí CMD, ale s čím si nevím rady je, jak docílit následujícího:Tu tabulku s rokama a měsícema potřebuju roztříštit tak, aby byl sloupec pro každou hodnotu zvlášť a tím vlastně vznikl jeden řádek. Jinými slovy, abych měl sloupce třeba 1900Jan 1900Feb 1900Mar.... atd. až do konce. V daném souboru by tak vznikl jeden jediný dlouhý řádek, no a pokud bych pak měl takovýto řádek, mohl bych je dávat dohromady a jednotlivé řádky by tvořily ty různé země. Problémem je, že těch let je víc než 100, tzn. nevím jak nějak zautomatizovat ten proces uspořádání. Transformace je v tomto případě k ničemu. Manuálně by to samozřejmě šlo, ale znamenalo by to vytvořit napřed napravo od každého roku 11 prázdných sloupců a do nich potom data kopírovat... vzhledme k tomu, že roků je víc než 100 byla by to práce na dny... každý nápad uvítám.

Odpovědi na otázku

 | Microsoft Windows 8 Opera 9.80

Nejsem si jistý, jestli jsem to pochopil správně. Zkus poslat odkazy na obrázky, jak to vypadá a co z toho chceš...

Souhlasím  |  Nesouhlasím  |  Odpovědět
 | Microsoft Windows 8 Opera 9.80

Pokud jsem to pochopil správně, tak vstup je něco jako http://i.imgur.com/7hLZ9KK.pngA výstup http://i.imgur.com/i7NYiF5.pngPotom by se to dalo dělat makrem podobným tomuto:Sub radkuj() Dim oblast As Range, mesice As Range, roky As Range Dim a As Long, j As Long, i As Long, radku As Long, sloupcu As Long 'je long správný typ pro buňky (stačí?) Dim list As Worksheet Set oblast = ActiveSheet.Range("A1", "M15") radku = oblast.Rows.Count sloupcu = oblast.Columns.Count Set list = Sheets.Add a = 1 With oblast For i = 2 To radku Set mesice = .Range(.Cells(i, 2), .Cells(i, sloupcu)) For j = 1 To sloupcu - 1 list.Cells(1, a).Value = mesice.Cells(1, j).Value a = a + 1 Next Next End WithEnd SubKde dosadit za A1 první buňku tabulky, za M15 poslední buňku tabulky. Spouštět v listu s tabulkou - vytvoří nový list, kde bude vše v prvním řádku.(Není to napsané nejlépe, ale bude funguje to.)

Souhlasím  |  Nesouhlasím  |  Odpovědět
 | Microsoft Windows 8 Opera 9.80

Čitelnější kód: http://www.clipboard.cz/8krpz

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

Související témata: Země, Jasná věc, Transformace, Uspořádání


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

10 věcí, které jste odkládali „na jindy“, ale teď je konečně můžete udělat

10 věcí, které jste odkládali „na jindy“, ale teď je konečně můžete udělat

** Karanténní opatření nás drží doma a mnozí mají více času navíc ** Připomeneme proto často odkládané činnosti uživatelů počítačů ** Právě teď je ten správný okamžik, kdy se do nich pustit

Karel Kilián | 75

17 užitečných tipů a triků pro Mapy Googlu, které byste měli znát

17 užitečných tipů a triků pro Mapy Googlu, které byste měli znát

** Mapy Googlu mají spoustu funkcí, které jsou často přehlíženy ** Využijte například podrobnější možnosti plánování cest ** Hodit se mohou i tipy na sdílení nebo pohledy do minulosti

Karel Kilián | 25

Jak funguje kontroverzní program, který ženám krade plavky. Mají se čeho bát?

Jak funguje kontroverzní program, který ženám krade plavky. Mají se čeho bát?

** Strojové učení ještě nepřitáhlo takový zájem jako na začátku prázdnin ** Ne, umělá inteligence nenašla lék na rakovinu ** Naučila se svlékat ženy nejen z plavek

Jakub Čížek | 35

Biblická potopa Česka: Jak bychom dopadli, kdyby nás zatopil oceán

Biblická potopa Česka: Jak bychom dopadli, kdyby nás zatopil oceán

** Představte si biblickou potopu ** Nejprve zaniknou Děčín a Břeclav, pak i Brno a Praha ** Hlavním městem se stane Jihlava a zbytky Čechů přežijí na Kvildě

Jakub Čížek | 94



Aktuální číslo časopisu Computer

Velký test autokamer

Test ATX skříní

Jak surfovat pohodlně

Sportovní aplikace

Jak funguje procesor