Skenaario
Oletetaan, että sinulla on Excel -työkirja. Siinä on 3 arkkia. Arkki sisältää 5 saraketta. Jokaisessa sarakkeessa on eri kaupungin tiedot. Jokainen taulukko sisältää samanlaisia 5 saraketta, joissa on erilaisia tietoja samoista kaupungeista.
Haaste:
Meidän on luotava tiedosto, joka sisältää erilaisia arkkeja jokaiselle ainutlaatuiselle sarakkeelle. Jokaisen taulukon tulee sisältää sarakkeen tiedot. Lopulta meillä on 5 arkkia, joissa on 3 saraketta. Tavallaan se siirtää sarakkeita arkeiksi.
Logiikka:
Ensinnäkin meidän on luotava työkirja, joka sisältää eri taulukot kullekin sarakkeelle. Voimme tehdä tämän katsomalla alkuperäisen tiedoston ensimmäisen arkin otsikoita.
Seuraavaksi meidän on kierrettävä läpi kaikki alkuperäisen arkin arkit kopioidaksemme jokainen sarake uuden työkirjan vastaaville arkeille.
VBA -koodi sarakkeiden saattamiseksi taulukkoihin.
Katsotaan ensin VBA -koodi, jolla levyt siirretään. Selitän sen alla.
Sub TransposeColsToSheets () 'muuttujat Dim wb Kuten työkirja Dim twb Kuten työkirja Dim lstRw Kuten kokonaisluku Dim lstCl Kuten kokonaisluku Dim cols As Range with Application .DisplayAlerts = False .ScreenUpdating = False End With "uuden tiedoston luominen Set wb = Workbooks.Add" save tiedosto. Vaihda polku määränpäähän. wb.SaveAs "C: \ Users \ Manish Singh \ Desktop \ Excel Tip \ result.xlsx" Aseta twb = ThisWorkbook twb.Sheets (1) .Activate lstCl = Solut (1, Columns.Count) .End (xlToLeft) .Column 'kaupunkien nimien otsikoiden määrittäminen Aseta cols = Range (Solut (1, 1), Solut (1, lstCl))' -silmukka arkkien luomiseksi x = 1 To cols.Count wb.Sheets.Add.Name = "page" & x Seuraava '-silmukka sarakkeiden siirtämiseksi arkkeihin Jokaiselle sh In twb.Sheets For x = 1 Cols.Count sh.Activate lstRw = Solut (Rows.Count, 1) .End (xlUp) .Row Range (Solut (1, x), Solut (lstRw, x)). Kopioi wb.Sheets ("sivu" & x) .Aktivoi lstCl = Solut (1, Columns.Count) .End (xlToLeft) .Sarake + 1 -alue (Solut (1, lstCl) ), Solut (1, lstCl)).
Voit ladata tiedoston belove käyttääksesi sitä välittömästi tai kopioida koodin muokataksesi sitä tarpeidesi mukaan.
Kun olet suorittanut koodin, se luo välittömästi Excel -tiedoston, jossa on 5 arkkia, ja jokainen arkki sisältää 3 saraketta saman kaupungin tietoja.
Siirrä sarake arkeiksi
Kuinka se toimii?
Yllä olevassa esimerkkikoodissa oletamme, että tiedosto alkaa kunkin arkin ensimmäisestä solusta ja jokainen arkki sisältää saman määrän sarakkeita.
Olen ensimmäiset koodirivit, olemme ilmoittaneet muuttujat, joita tarvitsemme menettelyssä. Olemme tallentaneet sarakkeiden otsikot muuttujalle nimeltä cols.Olemme myös luoneet .xlsx -tiedoston nimeltä tulos. xlsx.
Seuraavaksi olemme käyttäneet silmukkaa luodaksemme saman määrän arkkeja tuloksessa. Xlsx kuin otsikossacols.
'silmukka arkkien luomiseen x = 1 cols.Count wb.Sheets.Add.Name = "page" & x Next
Seuraavaksi olemme käyttäneet sisäkkäistä silmukkaa. Ensimmäinen silmukka on iteroida arkit alkuperäisessä tiedostossa. Seuraava silmukka jokaisen sarakkeen kopioimiseksi ja liittämiseksi jokaiseen taulukkoon result.xlsx -tiedostossa.
Lopulta tallennamme työkirjan tuloksen. Xlsx ja suljemme sen. Ja se on tehty.
Joten kyllä kaverit, näin voit kopioida jokaisen sarakkeen uudelle taulukolle Excelissä VBA: n avulla. Tätä kysyi käyttäjämmeMahmood kommenttiosiossa. Mielestäni se ansaitsi artikkelin, jotta se olisi saatavana meille kaikille. Tässä se on. Toivottavasti se oli tarpeeksi selittävä. Jos sinulla on edelleen epäilyksiä tai muita kysymyksiä, kysy alla olevasta kommenttiosasta.
Jaa Excel -taulukko useisiin tiedostoihin sarakkeen perusteella VBA: n avulla | Tämä VBA -koodijako Excel -taulukko perustuu yksilöllisiin arvoihin tietyssä sarakkeessa. Lataa työtiedosto.
Poista varoitusviestit käytöstä VBA: n avulla Microsoft Excel 2016 | Sammuttaaksemme varoitusviestit, jotka keskeyttävät käynnissä olevan VBA -koodin, käytämme sovellusluokkaa.
Lisää ja tallenna uusi työkirja VBA: n avulla Microsoft Excel 2016: ssa | Työkirjojen lisäämiseen ja tallentamiseen VBA: n avulla käytämme Työkirjat -luokkaa. Työkirjat.Add lisää uuden työkirjan helposti…
Suosittuja artikkeleita:
50 Excel -pikanäppäintä tuottavuuden lisäämiseksi | Nopeuta tehtävääsi. Nämä 50 pikanäppäintä tekevät työskentelystäsi entistä nopeampaa Excelissä.
VLOOKUP -toiminto Excelissä | Tämä on yksi eniten käytetyistä ja suosituimmista Excel -toiminnoista, jota käytetään arvon etsimiseen eri alueilta ja arkeilta.
COUNTIF Excel 2016: ssa | Laske arvot olosuhteilla käyttämällä tätä hämmästyttävää toimintoa. Sinun ei tarvitse suodattaa tietojasi tietyn arvon laskemiseksi. Laskutoiminto on välttämätön kojelaudan valmistelemiseksi.
SUMIF -toiminnon käyttäminen Excelissä | Tämä on toinen kojelaudan olennainen toiminto. Tämä auttaa sinua laskemaan yhteen arvot tietyissä olosuhteissa.