Scenārijs
Pieņemsim, ka jums ir Excel darbgrāmata. Tam ir 3 loksnes. Lapā ir 5 kolonnas. Katrā slejā ir dažādi pilsētas dati. Katrā lapā ir līdzīgas 5 slejas ar dažādiem vienas pilsētas datiem.
Izaicinājums:
Mums ir jāizveido fails, kurā katrai unikālajai kolonnai ir dažādas lapas. Katrā lapā jāiekļauj attiecīgās slejas dati. Galu galā mums būs 5 lapas ar 3 kolonnām katrā. Savā ziņā tas pārnes kolonnas lapās.
Loģika:
Pirmkārt, mums ir jāizveido darbgrāmata, kurā katrai kolonnai ir dažādas lapas. Mēs to varam izdarīt, apskatot mūsu sākotnējā faila pirmās lapas virsrakstus.
Tālāk mums ir jāizšķir katra oriģināllapas lapa, lai kopētu katru kolonnu uz jaunās darbgrāmatas atbilstošajām lapām.
VBA kods, lai transponētu kolonnas izklājlapās.
Apskatīsim VBA kodu, lai vispirms transponētu lapas. Es to izskaidroju zemāk.
Sub TransposeColsToSheets () 'mainīgie Dim wb kā darbgrāmata Dim twb kā darbgrāmatas Dim lstRw kā vesels skaitlis Dim lstCl kā vesels skaitlis Dim cols kā diapazons ar lietojumprogrammu .DisplayAlerts = False .ScreenUpdating = False End ar "jauna faila izveide Set wb = Workbooks.Add" ietaupījums fails. Aizstājiet ceļu ar savu galamērķi. wb.SaveAs "C: \ Users \ Manish Singh \ Desktop \ Excel Tip \ result.xlsx" Set twb = ThisWorkbook twb.Sheets (1) .Aktivate lstCl = Cells (1, Columns.Count) .End (xlToLeft) .Column 'Identificējošas galvenes pilsētu nosaukumiem Set cols = Range (Cells (1, 1), Cells (1, lstCl))' cilpa, lai izveidotu lapas x = 1 To cols.Count wb.Sheets.Add.Name = "page" & x Nākamā cilpa, lai transponētu kolonnas lapās Katrai sh In twb. Loksnes x = 1 Lai kolonnas. Saskaitiet sh. Aktivizējiet lstRw = Šūnas (Rows.Count, 1). Beigt (xlUp). Rindas diapazons (Šūnas (1, x), šūnas (lstRw, x)). Kopēt wb.Sheets ("page" & x). Aktivizēt lstCl = Cells (1, Columns.Count) .End (xlToLeft). Kolonna + 1 diapazons (Cells (1, lstCl) ), Šūnas (1, lstCl)).
Jūs varat lejupielādēt failu, lai to nekavējoties izmantotu, vai nokopēt kodu, lai to pielāgotu atbilstoši savām vajadzībām.
Kad esat palaidis kodu, tas nekavējoties izveidos Excel failu, kuram būs 5 lapas, un katrā lapā būs 3 vienas pilsētas datu kolonnas.
Transponēt kolonnu uz lapām
Kā tas darbojas?
Iepriekš minētajā koda piemērā mēs esam pieņēmuši, ka fails sākas no katras lapas pirmās šūnas un katrā lapā ir vienāds kolonnu skaits.
Pirmajās dažās koda rindās mēs esam deklarējuši mainīgos, kas mums būs nepieciešami procedūrā. Mēs esam saglabājuši kolonnu galvenes mainīgajā nosaukumā colsMēs esam izveidojuši arī .xlsx failu ar nosaukumu rezultāts.xlsx.
Tālāk mēs esam izmantojuši cilpu, lai rezultātā.xlsx izveidotu tādu pašu lapu skaitu kā galvenēcols
'cilpa, lai izveidotu lapas x = 1 līdz kolonnām. Skaitīt wb.Sheets.Add.Name = "page" & x Next
Tālāk mēs esam izmantojuši ligzdotu cilpu. Pirmā cilpa ir lapu atkārtošana sākotnējā failā. Nākamā cilpa katras kolonnas kopēšanai un ielīmēšanai katrā lapā result.xlsx failā.
Galu galā mēs saglabājam darbgrāmatas rezultātu.xlsx un aizveram to. Un tas tiek darīts.
Jā, puiši, šādā veidā jūs varat kopēt katru kolonnu uz jaunu Excel lapu, izmantojot VBA. To jautāja mūsu lietotājsMahmood komentāru sadaļā. Es domāju, ka tas ir pelnījis rakstu, lai tas būtu pieejams mums visiem. Šeit jums tas ir. Es ceru, ka tas bija pietiekami izskaidrojošs. Ja jums joprojām ir šaubas vai kāds cits jautājums, jautājiet komentāru sadaļā zemāk.
Sadaliet Excel lapu vairākos failos, pamatojoties uz kolonnu, izmantojot VBA | Šī VBA koda sadalījuma Excel lapas pamatā ir unikālas vērtības noteiktā slejā. Lejupielādējiet darba failu.
Izslēdziet brīdinājuma ziņojumus, izmantojot VBA programmā Microsoft Excel 2016 | Lai izslēgtu brīdinājuma ziņojumus, kas pārtrauc palaisto VBA kodu, mēs izmantojam lietojumprogrammu klasi.
Pievienojiet un saglabājiet jaunu darbgrāmatu, izmantojot VBA programmā Microsoft Excel 2016 | Lai pievienotu un saglabātu darbgrāmatas, izmantojot VBA, mēs izmantojam darbgrāmatu klasi. Workbooks.Add viegli pievieno jaunu darbgrāmatu, tomēr…
Populāri raksti:
50 Excel saīsnes, lai palielinātu produktivitāti | Ātrāk izpildiet savu uzdevumu. Šie 50 īsceļi ļaus jums strādāt vēl ātrāk programmā Excel.
Funkcija VLOOKUP programmā Excel | Šī ir viena no visbiežāk izmantotajām un populārākajām Excel funkcijām, kas tiek izmantota, lai meklētu vērtību no dažādiem diapazoniem un lapām.
COUNTIF programmā Excel 2016 | Saskaitiet vērtības ar nosacījumiem, izmantojot šo apbrīnojamo funkciju. Jums nav jāfiltrē dati, lai uzskaitītu konkrētu vērtību. Skaitītāja funkcija ir būtiska, lai sagatavotu informācijas paneli.
Kā lietot SUMIF funkciju programmā Excel | Šī ir vēl viena būtiska informācijas paneļa funkcija. Tas palīdz apkopot vērtības noteiktos apstākļos.