Mēs esam redzējuši transponēšanas funkciju Excel darblapā, kad darblapā ielīmējat jebkuru datu tabulu. Transponēšana ir tāda, ka tā maina rindu un kolonnu pozīciju, ti, rindas kļūst par kolonnām un kolonnas kļūst par rindām datu tabulā, jo tagad tā ir darblapa funkciju VBA mēs to izmantojam ar VBA Application.worksheet metodi.
Kā transponēt VBA?
Rindu un kolonnu pārslēgšana ir viena no datu manipulācijas metodēm, ko gandrīz visi lietotāji veic Excel. Procesu, kas konvertē horizontālos datus uz vertikālajiem un vertikālajiem datiem uz horizontālo, programmā Excel sauc par “Transponēt”. Esmu pārliecināts, ka jums ir jāpārzina transponēšana parastā darblapā. Šajā rakstā mēs parādīsim, kā izmantot transponēšanas metodi VBA kodēšanā.
Mēs varam transponēt VBA, izmantojot divas metodes.
- Transponējiet, izmantojot TRANSPOSE Formula.
- Transponējiet, izmantojot īpašo ielīmēšanas metodi.
Transponējot, mēs mainām rindas uz kolonnām un kolonnas uz rindām. Piemēram, ja dati atrodas 4 X 3 masīvā, tad tie kļūst par 3 X 4 masīvu.
Apskatīsim dažus piemērus kolonnas transponēšanai VBA.
# 1 - VBA transponēšana, izmantojot TRANSPOSE formulu
Tāpat kā tas, kā mēs izmantojam TRANSPOSE excel līdzīgi, mēs varam izmantot TRANSPOSE formulu arī VBA. Mums VBA nav TRANSPOSE formulas, tāpēc mums tā jāizmanto zem klases Worksheet Function.
Piemēram, apskatiet zemāk redzamo datu attēlu.
Mēs centīsimies transponēt šo vērtību masīvu. Lai transponētu datus, veiciet tālāk norādītās darbības.
1. darbība: sāciet apakšprocedūru.
Kods:
Sub Transpose_Example1 () Beigas Sub
2. solis: Pirmkārt, mums jāizlemj, kur mēs transponēsim datus. Tajā es esmu izvēlējies transponēt no šūnas D1 uz H2. Tātad ievadiet VBA kodu kā diapazonu (“D1: H2”). Vērtība =
Kods:
Sub Transpose_Example1 () diapazons ("D1: H2"). Vērtība = End Sub
3. solis: Tagad iepriekš minētajā diapazonā mums ir nepieciešama diapazona A1 līdz B5 vērtība. Lai nokļūtu šajā atvērtajā “Darblapas funkciju” klasē un atlasiet formulu “Transponēt”.
Step 4: In Arg 1, sniegt datu avotu klāstu, ti, Range ( "A1: D5") .
Kods:
Sub Transpose_Example1 () Range ("D1: H2"). Vērtība = WorksheetFunction.Transpose (Range ("A1: D5")) Beigas Sub
Labi, mēs esam paveikuši TRANSPOSE formulu kodēšanu. Tagad palaidiet kodu, lai redzētu rezultātu no D1 līdz H2 šūnu diapazonā.
Kā mēs redzējām iepriekš redzamajā attēlā, tas ir pārveidojis šūnu diapazonu no kolonnām uz rindām.
# 2 - VBA transponēšana, izmantojot īpašo ielīmēšanas metodi
Mēs varam transponēt arī, izmantojot Paste Special metodi. Apsveriet tos pašus datus arī šim piemēram.
Pirmā lieta, kas mums jādara, lai transponētu, ir datu kopēšana. Tāpēc uzrakstiet kodu kā diapazonu (“A1: B5”). Kopējiet
Kods:
Sub Transpose_Example2 () diapazons ("A1: B5"). Kopēt End Sub
Nākamā lieta ir mums jāizlemj, kur mēs ielīmēsim datus. Šajā gadījumā par vēlamo mērķa šūnu esmu izvēlējies D1.
Kods:
Sub Transpose_Example2 () diapazons ("A1: B5"). Kopēšanas diapazons ("D1"). Beigu apakšnodaļa
Kad ir atlasīta vēlamā mērķa šūna, mums jāizvēlas “Īpašās metodes ielīmēšana”.
Izmantojot īpašu ielīmēšanu, darblapā mēs varam veikt visas darbības, kas mums ir, izmantojot parastās īpašās ielīmēšanas metodes.
Ignorējiet visus parametrus un atlasiet pēdējo parametru, ti, Transponēt, un padariet to par TRUE.
Kods:
Sub Transpose_Example2 () diapazons ("A1: B5"). Kopēšanas diapazons ("D1"). PasteSpecial Transponēt: = True End Sub
Tādējādi dati tiks transponēti tāpat kā iepriekšējā metode.
Tāpat mēs varam izmantot TRANSPOSE formulu vai Paste Special metodi, lai datus transponētu, lai rindas pārslēgtu uz kolonnām un kolonnas uz rindām.
Atceramās lietas
- Ja mēs izmantojam darblapas TRANSPOSE funkciju, datu transponēšanai obligāti jāaprēķina rindu un kolonnu skaits. Ja mums ir 5 rindas un 3 kolonnas, tad, transponējot, tas kļūst par 3 rindām un 5 kolonnām.
- Ja vēlaties izmantot tādu pašu formatējumu, izmantojot īpašo ielīmēšanu, jums jāizmanto arguments Ielīmēt veidu kā “xlPasteFormats”.
Šo VBA Transpose Excel veidni varat lejupielādēt šeit - VBA Transpose Excel Template.
