Üldiselt on TRANSPOSE funktsiooni võib sageli kasutada ridade konverteerimiseks veergudeks. Siiski ei tagastata teatud kriteeriumidest, näiteks unikaalsetest väärtustest, sõltuvaid tulemusi. Selles õpetuses näitame, kuidas saab ridade ümberpaigutamine veergudeks Exceli kriteeriumide alusel.

Lae alla praktiline töövihik

Lae alla see harjutusvihik, et seda artiklit lugedes harjutada.

2 praktilist lähenemist ridade ümberpaigutamiseks veergudeks Exceli kriteeriumide põhjal

Oleme lisanud alloleval joonisel mitme toote ja nende koguste andmekogumi. read transponeeritakse seejärel veergudeks. Me ridade ümberpaigutamine veergudeks kriteeriumide alusel unikaalsetest väärtustest, sest eraldi lahtris on mõned dubleerivad kirjed. Kõigepealt kasutame funktsiooni INDEX , MATCH , COUNTIF , IF ja IFERROR funktsioonid valemite loomiseks. Samuti teostame me ühe VBA kood sama asja saavutamiseks.

1. Rakendage valemit funktsioonidega INDEX, MATCH ja COUNTIF, et Exceli ridade ümberpaigutamine veergudeks kriteeriumide alusel

Alguses rakendame valemeid, mis on seotud INDEX , MATCH , COUNTIF , IF ja IFERROR funktsioonid massiividega.

Samm 1: Sisestage funktsioonid INDEX, MATCH ja COUNTIF.

• Kärgis E5 , sisestage järgmine valem, et saada unikaalsed tooted.

2. samm: Rakendage array

• Valemi kohaldamiseks massiivi abil vajutage Ctrl + Vahetus + Sisesta

• Seetõttu saate esimese unikaalse tulemuse.

Samm 3: Automaatne lahtrite täitmine

• Kõikide unikaalsete väärtuste saamiseks kasutage funktsiooni AutoFill Käepideme tööriist, et täita veerg automaatselt.

Samm 4: Sisestage IFERROR funktsioonid

• Koguste ridade väärtuse transponeerimiseks veergudeks kirjutage järgmine valem.

5. samm: Rakendage massiivi

• Massiivi sisestamiseks vajutage Ctrl + Vahetus + Sisesta .

• Selle tulemusena on rakkude F5 näitab esimest transponeeritud väärtust, nagu allpool esitatud pildil.

• Lohistage allapoole koos AutoFill Handle Tool veergu automaatseks täitmiseks.

• Lõpuks täitke ridade automaatne täitmine koos AutoFill Handle Tool .
• Seetõttu muutuvad kõik transponeeritud read veergudeks, nagu allpool esitatud pildil.

Loe edasi: Mitme rea transponeerimine grupis Exceli veergudeks

Sarnased lugemised

• Kuidas transponeerida dubleerivad read Exceli veergudeks (4 viisi)
• Excel VBA: Mitme rea transponeerimine rühmas veergudeks
• Mitme veeru transponeerimine ühte veergu Excelis (3 praktilist meetodit)
• Kuidas Excelis ümber pöörata (3 lihtsat meetodit)

2. Käivita VBA-kood, et Exceli ridade ümberpaigutamine veergudeks põhineb kriteeriumidel

Samm 1: Mooduli loomine

• Esiteks vajutage Alt + F11 alustamiseks VBA makro .
• Klõpsake nuppu Sisesta .
• Et luua Moodul , valige Moodul võimalus.

Samm 2: Kirjutage VBA koodid

• Sisestage järgmine tekst VBA

 Sub TransposeRows() 'Define Variables Dim RowsNumber As Long Dim p As Long Dim xColCr As String Dim xColumn As New Collection Dim InputRng As Range Dim OutputRng As Range Dim RngText As String Dim CountRow As Long Dim xRowRg As Range On Error Resume Next 'Set values and Input Box fot Input Range RngText = ActiveWindow.RangeSelection.Address Set InputRng = Application.InputBox("Select Your InputRange for 2 columns:", "ExcelWIKI", RngText, , , , , , 8) Set InputRng = Application.Intersect(InputRng, InputRng.Worksheet.UsedRange) 'Rakenda tingimus, et lugeda ainult 2 veergu ja näidata msg box hoiatuse jaoks, et valida ainult kaks veergu If InputRng Is Nothing Then Exit Sub If (InputRng.Columns.Count 2) Or _ (InputRng.Areas.Count> 1) Then MsgBox "The specified range is only area for 2 columns ",, "ExcelWIKI" Exit Sub End If 'Määrake väärtused ja sisendikast fot Input Range Set OutputRng = Application.InputBox("Select Your Output Range (one cell):", "ExcelWIKI", RngText, , , , , , 8) If OutputRng Is Nothing Then Exit Sub Set OutputRng = OutputRng.Range(1) 'Ridade loendamine RowsNumber = InputRng.Rows.Count 'Apply For loop For p = 2 To RowsNumber xColumn.Add InputRng.Cells(p, 1).Value, InputRng.Cells(p,1).Value Next Application.ScreenUpdating = False For p = 1 To xColumn.Count xColCr = xColumn.Item(p) OutputRng.Offset(p, 0) = xColCr InputRng.AutoFilter Field:=1, Criteria1:=xColCr Set xRowRg = InputRng.Range("B2:B" & RowsNumber).SpecialCells(xlCellTypeVisible) If xRowRg.Count> CountRow Then CountRow = xRowRg.Count 'Copy and paste with transpose InputRng.Range("B2:B" &RowsNumber).SpecialCells(xlCellTypeVisible).Copy OutputRng.Offset(p, 1).PasteSpecial Paste:=xlPasteAll, Operation:=xlNone, SkipBlanks:=False, Transpose:=True Application.CutCopyMode = False Next OutputRng = InputRng.Cells(1, 1) OutputRng.Offset(0, 1).Resize(1, CountRow) = InputRng.Cells(1, 2) InputRng.Rows(1).Copy OutputRng.Resize(1, CountRow + 1).PasteSpecial Paste:=xlPasteFormatsInputRng.AutoFilter Application.ScreenUpdating = True End Sub 

3. samm: Programmi käivitamine

• Esiteks, Salvesta ja vajutage F5 programmi käivitamiseks.
• Valige oma andmekogum pealkirjaga.
• Klõpsake nuppu OK .

• Valige lahter, et saada väljund
• Seejärel klõpsake nuppu OK .

• Selle tulemusena saate tulemused, mis on ridade ümberpaigutamine veergudeks, nagu on näidatud alloleval pildil.

Loe lisaks: Kuidas Exceli VBA abil ridu veergudeks transponeerida (4 ideaalset näidet)

Kokkuvõte

Ma loodan, et see artikkel on andnud teile õpetuse, kuidas ridade ümberpaigutamine veergudeks Exceli kriteeriumide alusel . Kõik need protseduurid tuleks ära õppida ja rakendada oma andmestiku suhtes. Vaadake harjutuste töövihikut ja pange need oskused proovile. Me oleme motiveeritud jätkama selliste õpetuste tegemist tänu teie väärtuslikule toetusele.

Kui teil on küsimusi - Küsige julgelt. Samuti võite vabalt jätta kommentaare allolevasse lahtrisse.

Me, meie, kes me oleme Exceldemy meeskond, vastab alati teie päringutele.

Jääge meiega & jätkake õppimist.