Šioje pamokoje pateikiami keli greiti būdai, kaip "Excel" lentelėms apversti vertikaliai ir horizontaliai, išsaugant pradinį formatavimą ir formules.

Duomenų apvertimas "Excel" programoje skamba kaip triviali užduotis vienu spustelėjimu, tačiau, kaip bebūtų keista, tokios integruotos parinkties nėra. Tais atvejais, kai reikia apversti abėcėlės tvarka arba nuo mažiausio iki didžiausio stulpelio duomenų eiliškumą, akivaizdžiai galite naudoti "Excel" rūšiavimo funkciją. Tačiau kaip apversti stulpelį su nerūšiuotais duomenimis? Arba kaip apversti lentelės duomenų eiliškumą horizontaliai eilutėmis?Visus atsakymus gausite tuoj pat.

Duomenų apvertimas "Excel" vertikaliai

Pasitelkę šiek tiek kūrybiškumo, "Excel" programoje galite sukurti keletą skirtingų būdų, kaip apversti stulpelį: naudodami integruotas funkcijas, formules, VBA ar specialius įrankius. Toliau pateikiami išsamūs kiekvieno metodo žingsniai.

Kaip apversti stulpelį programoje "Excel

Norėdami pakeisti stulpelio duomenų eiliškumą vertikaliai, atlikite šiuos veiksmus:

1. Pridėkite pagalbinį stulpelį šalia stulpelio, kurį norite apversti, ir užpildykite tą stulpelį skaičių seka, pradedant nuo 1. Šiame patarime parodyta, kaip tai padaryti automatiškai.
2. Surūšiuokite skaičių stulpelį mažėjančia tvarka. Tam pasirinkite bet kurį pagalbinio stulpelio langelį, eikite į Duomenų skirtukas > Rūšiuoti ir filtruoti grupę ir spustelėkite Rūšiuoti nuo didžiausio iki mažiausio mygtuką (ZA).

Kaip parodyta toliau pateiktoje ekrano kopijoje, taip bus surūšiuoti ne tik B stulpelyje esantys skaičiai, bet ir pirminiai A stulpelyje esantys elementai, pakeičiant eilučių tvarką:

Dabar galite saugiai ištrinti pagalbinį stulpelį, nes jis jums nebereikalingas.

Patarimas: Kaip greitai užpildyti stulpelį serijos numeriais

Greičiausias būdas užpildyti stulpelį skaičių seka - naudoti "Excel" automatinio užpildymo funkciją:

• Į pirmąjį langelį įrašykite 1, o į antrąjį - 2 (langeliai B2 ir B3 toliau pateiktame paveikslėlyje).
• Pažymėkite ląsteles, kuriose ką tik įvedėte skaičius, ir dukart spustelėkite apatinį dešinįjį pasirinkimo kampą.

Štai ir viskas! "Excel" automatiškai užpildys stulpelį eilės numeriais iki paskutinio langelio su gretimo stulpelio duomenimis.

Kaip apversti lentelę programoje "Excel

Pirmiau aprašytas metodas taip pat tinka duomenų eiliškumui keliuose stulpeliuose pakeisti:

Kartais (dažniausiai tada, kai prieš rūšiuodami pasirenkate visą skaičių stulpelį) "Excel" gali rodyti Rūšiuoti Įspėjimas dialogas. Šiuo atveju patikrinkite Išplėskite pasirinkimą parinktį, tada spustelėkite Rūšiuoti mygtuką.

Patarimas. Jei norite perjungti eilutes ir stulpelius , naudokite "Excel" funkciją TRANSPOSE arba kitus būdus duomenims perkelti "Excel" programoje.

Kaip apversti "Excel" stulpelius naudojant formulę

Kitas būdas apversti stulpelį aukštyn kojomis - naudoti šią bendrą formulę:

INDEKSAS( diapazonas , ROWS( diapazonas ))

Mūsų pavyzdinio duomenų rinkinio formulė yra tokia:

=INDEX($A$2:$A$7,ROWS(A2:$A$7))

...ir nepriekaištingai pakeičia A stulpelį:

Kaip veikia ši formulė

Šios formulės pagrindas yra funkcija INDEX(masyvas, eilutės_numeris, [stulpelio_numeris]), kuri grąžina elemento reikšmę masyvas pagal nurodytus eilučių ir (arba) stulpelių numerius.

Į masyvą įrašykite visą sąrašą, kurį norite apversti (šiame pavyzdyje - A2:A7).

Eilučių skaičius nustatomas naudojant funkciją ROWS. Paprasčiausia forma ROWS(array) grąžina eilučių skaičių masyve. masyvas Mūsų formulėje "apversti stulpelį" padeda gudrus santykinių ir absoliučiųjų nuorodų naudojimas:

• Pirmoje ląstelėje (B2) ROWS(A2:$A$7) grąžina 6, todėl INDEX gauna paskutinį sąrašo elementą (6 elementą).
• Antroje ląstelėje (B3) santykinė nuoroda A2 pasikeičia į A3, todėl ROWS(A3:$A$7) grąžina 5, todėl INDEX turi paimti priešpaskutinį elementą.

Kitaip tariant, ROWS sukuria savotišką mažėjantį INDEX skaitiklį, kad jis judėtų nuo paskutinio elemento link pirmojo elemento.

Patarimas: Kaip pakeisti formules reikšmėmis

Dabar, kai turite du duomenų stulpelius, galbūt norėsite pakeisti formules apskaičiuotomis reikšmėmis, o tada ištrinti papildomą stulpelį. Tam nukopijuokite formulių langelius, pasirinkite langelius, į kuriuos norite įklijuoti reikšmes, ir paspauskite Shift+F10, tada V , tai greičiausias būdas taikyti "Excel" parinktį "Paste Special> Values".

Daugiau informacijos rasite skyriuje Kaip pakeisti formules reikšmėmis "Excel" programoje.

Kaip apversti "Excel" stulpelius naudojant VBA

Jei turite šiek tiek patirties su VBA, galite naudoti toliau pateiktą makrokomandą, kad pakeistumėte duomenų tvarką vertikaliai viename ar keliuose stulpeliuose:

Dim Rng As Range Dim WorkRng As Range Dim Arr As Variant Dim i As Integer , j As Integer , k As Integer On Error Resume Next xTitleId = "Apversti stulpelius vertikaliai" Set WorkRng = Application.Selection Set WorkRng = Application.InputBox("Range" , xTitleId, WorkRng.Address, Type :=8) Arr = WorkRng.Formula Application.ScreenUpdating = False Application.Calculation = xlCalculationManual For j = 1 ToUBound (Arr, 2) k = UBound (Arr, 1) For i = 1 To UBound (Arr, 1) / 2 xTemp = Arr(i, j) Arr(i, j) = Arr(k, j) Arr(k, j) Arr(k, j) = xTemp k = k - 1 Next Next Next WorkRng.Formula = Arr Application.ScreenUpdating = True Application.Calculation = xlCalculationAutomatic End Sub

Kaip naudoti makrokomandą "Apversti stulpelius

1. Atidarykite "Microsoft Visual Basic for Applications" langą ( Alt + F11 ).
2. Spustelėkite Įdėkite > Modulis ir įklijuokite pirmiau pateiktą kodą į langą "Kodas".
3. Paleiskite makrokomandą ( F5 ).
4. Svetainė Apversti stulpelius rodomas dialogo langas, kuriame raginama pasirinkti apverčiamą intervalą:

Pele pasirinkite vieną ar daugiau stulpelių, neįskaitant stulpelių antraščių, spustelėkite GERAI ir po akimirkos gausite rezultatą.

Norėdami išsaugoti makrokomandą, būtinai išsaugokite failą kaip "Excel" darbaknygė su makrokomandomis .

Kaip "Excel" apversti duomenis išsaugant formatavimą ir formules

Taikydami pirmiau nurodytus metodus galite lengvai pakeisti stulpelio ar lentelės duomenų eiliškumą. Tačiau ką daryti, jei norite apversti ne tik reikšmes, bet ir ląstelių formatus? Be to, ką daryti, jei kai kurie lentelės duomenys yra paremti formulėmis ir norite, kad apverčiant stulpelius nebūtų pažeistos formulės? Tokiu atveju galite naudoti Flip funkcija, įtraukta į mūsų "Ultimate Suite for Excel" rinkinį.

Tarkime, kad turite gražiai suformatuotą lentelę, kaip parodyta toliau, kurios kai kuriuose stulpeliuose yra reikšmės, o kai kuriuose - formulės:

Norite apversti lentelės stulpelius, išlaikydami ir formatavimą (pilkas atspalvis eilutėms su nuliniu kiekiu), ir teisingai apskaičiuotas formules. Tai galima padaryti dviem greitais veiksmais:

1. Pasirinkę bet kurią lentelės ląstelę, eikite į Ablebitų duomenys skirtukas> Transformuoti grupę ir spustelėkite Flip > Vertikalus apvertimas .
2. Į Vertikalus apvertimas dialogo lange nustatykite šias parinktis:
   • Į Pasirinkite diapazoną langelį, patikrinkite diapazono nuorodą ir įsitikinkite, kad antraštės eilutė neįtraukta.
   • Pasirinkite Pakoreguokite ląstelių nuorodas parinktį ir patikrinkite Išsaugoti formatavimą dėžutė.
   • Pasirinktinai pasirinkite Sukurti atsarginę kopiją (pasirinkta pagal numatytuosius nustatymus).
   • Spustelėkite Flip mygtuką.

Atlikta! Duomenų tvarka lentelėje pakeista, formatavimas išlaikytas, o langelių nuorodos formulėse atitinkamai pakoreguotos:

Duomenų apvertimas "Excel" programoje horizontaliai

Iki šiol šioje pamokoje stulpelius apvertėme aukštyn kojomis. Dabar panagrinėkime, kaip pakeisti duomenų tvarką horizontaliai, t. y. apversti lentelę iš kairės į dešinę.

Kaip apversti eilutes programoje "Excel

Kadangi "Excel" programoje nėra galimybės rūšiuoti eilutes, pirmiausia turėsite pakeisti eilutes į stulpelius, tada surūšiuoti stulpelius ir vėl perkelti lentelę. Toliau pateikiami išsamūs veiksmai:

1. Naudokite funkciją Paste Special> Transpose, kad paverstumėte stulpelius eilutėmis. Dėl to jūsų lentelė bus transformuota:
2. Pridėkite pagalbinį stulpelį su skaičiais, kaip pirmajame pavyzdyje, ir surūšiuokite pagal pagalbinį stulpelį. Jūsų tarpinis rezultatas atrodys maždaug taip:
3. Naudokite Specialusis įterpimas> Perkelti dar kartą pasukti stalą atgal:

Pastaba. Jei jūsų pradiniuose duomenyse yra formulių, atliekant perkėlimo operaciją jos gali būti pažeistos. Tokiu atveju turėsite atkurti formules rankiniu būdu. Arba galite naudoti "Ultimate Suite" rinkinyje esantį įrankį "Flip" ir jis automatiškai pakoreguos visas nuorodas už jus.

Duomenų eiliškumo keitimas horizontaliai naudojant VBA

Pateikiame paprastą makrokomandą, kuri gali greitai apversti "Excel" lentelės duomenis horizontaliai:

Sub FlipDataHorizontally() Dim Rng As Range Dim WorkRng As Range Dim Arr As Variant Dim i As Integer , j As Integer , k As Integer On Error Resume Next xTitleId = "Flip Data Horizontally" Set WorkRng = Application.Selection Set WorkRng = Application.InputBox( "Range" , xTitleId, WorkRng.Address, Type :=8) Arr = WorkRng.Formula Application.ScreenUpdating = False Application.Calculation =xlCalculationManual For i = 1 To UBound (Arr, 1) k = UBound (Arr, 2) For j = 1 To UBound (Arr, 2) / 2 xTemp = Arr(i, j) Arr(i, j) = Arr(i, k) Arr(i, k) Arr(i, k) = xTemp k = k - 1 Next Next Next WorkRng.Formula = Arr Application.ScreenUpdating = True Application.Calculation = xlCalculationAutomatic End Sub

Norėdami pridėti makrokomandą prie "Excel" darbo knygos, atlikite šiuos veiksmus. Kai tik paleisite makrokomandą, pasirodys šis dialogo langas, kuriame bus prašoma pasirinkti diapazoną:

Pasirinkite visą lentelę, įskaitant antraštės eilutę, ir spustelėkite GERAI . Po akimirkos duomenų eiliškumas eilutėse bus pakeistas:

Apverskite duomenis eilutėse naudodami "Ultimate Suite for Excel

Panašiai kaip ir apverčiant stulpelius, galite naudoti mūsų "Ultimate Suite for Excel", kad pakeistumėte eilutėse esančių duomenų tvarką. Tiesiog pasirinkite norimų apversti ląstelių intervalą, eikite į Ablebitų duomenys skirtukas> Transformuoti grupę ir spustelėkite Flip > Horizontalus apvertimas .

Į Horizontalus apvertimas dialogo lange pasirinkite duomenų rinkiniui tinkamas parinktis. Šiame pavyzdyje dirbame su vertėmis, todėl pasirenkame Tik įklijuoti vertes ir Išsaugoti formatavimą :

Spustelėkite Flip mygtuką, ir jūsų lentelė akimirksniu bus pakeista iš kairės į dešinę.

Taip apverčiate duomenis "Excel" programoje. Dėkoju, kad perskaitėte, ir tikiuosi, kad kitą savaitę susitiksime mūsų tinklaraštyje!