Conas cealla a thrasuí i gcolún amháin bunaithe ar luachanna uathúla i gcolún eile?

Ag ceapadh, tá raon sonraí agat ina bhfuil dhá cholún, anois, ba mhaith leat cealla a thrasuí i gcolún amháin go sraitheanna cothrománacha bunaithe ar luachanna uathúla i gcolún eile chun an toradh seo a leanas a fháil. An bhfuil aon smaointe maithe agat chun an fhadhb seo a réiteach in Excel?

Trasuí cealla i gcolún amháin bunaithe ar luachanna uathúla le foirmlí

Trasuí cealla i gcolún amháin bunaithe ar luachanna uathúla le cód VBA

Trasuí cealla i gcolún amháin bunaithe ar luachanna uathúla le Kutools for Excel

Trasuí cealla i gcolún amháin bunaithe ar luachanna uathúla le foirmlí

Leis na foirmlí eagar seo a leanas, is féidir leat na luachanna uathúla a bhaint agus a gcuid sonraí comhfhreagracha a thrasuí i sraitheanna cothrománacha, déan mar a leanas le do thoil:

1. Iontráil an fhoirmle eagar seo: = INDEX ($ A $ 2: $ A $ 16, MATCH (0, COUNTIF ($ D $ 1: $ D1, $ A $ 2: $ A $ 16), 0)) isteach i gcill bhán, D2, mar shampla, agus brúigh Shift + Ctrl + Iontráil eochracha le chéile chun an toradh ceart a fháil, féach an scáileán:

nótaí: San fhoirmle thuas, A2: A16 an colún ar mhaith leat na luachanna uathúla a liostáil uaidh, agus D1 an cill os cionn na cille foirmle seo.

2. Ansin tarraing an láimhseáil líonta síos go dtí na cealla chun na luachanna uathúla uile a bhaint, féach an scáileán:

3. Agus ansin lean ar aghaidh leis an bhfoirmle seo a iontráil i gcill E2: =IFERROR(INDEX($B$2:$B$16, MATCH(0, COUNTIF($D2:D2,$B$2:$B$16)+IF($A$2:$A$16<>$D2, 1, 0), 0)), 0), agus cuimhnigh brú Shift + Ctrl + Iontráil eochracha chun an toradh a fháil, féach an scáileán:

nótaí: San fhoirmle thuas: B2: B16 an bhfuil na sonraí colúin is mian leat a thrasuí, A2: A16 an colún ar mhaith leat na luachanna a thrasuí bunaithe ar, agus D2 tá an luach uathúil atá bainte agat i gCéim 1.

4. Ansin tarraing an láimhseáil líonta ar thaobh na láimhe deise de na cealla ar mhaith leat na sonraí trasuite a liostáil go dtí taispeántais 0, féach an scáileán:

5. Agus ansin lean ort ag tarraingt an láimhseála líonta síos go dtí raon na gcealla chun na sonraí trasuite a fháil mar a thaispeántar an pictiúr a leanas:

Trasuí cealla i gcolún amháin bunaithe ar luachanna uathúla le cód VBA

B’fhéidir go bhfuil na foirmlí casta duit a thuiscint, anseo, is féidir leat an cód VBA seo a leanas a rith chun an toradh inmhianaithe a theastaíonn uait a fháil.

1. Coinnigh síos an ALT + F11 eochracha a oscailt Microsoft Visual Basic d’Fheidhmchláir fhuinneog.

2. Cliceáil Ionsáigh > Modúil, agus greamaigh an cód seo a leanas sa Modúil Fuinneog.

Cód VBA: Trasuí cealla i gcolún amháin bunaithe ar luachanna uathúla i gcolún eile:

Sub transposeunique()
'updateby Extendoffice
    Dim xLRow As Long
    Dim i As Long
    Dim xCrit As String
    Dim xCol  As New Collection
    Dim xRg As Range
    Dim xOutRg As Range
    Dim xTxt As String
    Dim xCount As Long
    Dim xVRg As Range
    On Error Resume Next
    xTxt = ActiveWindow.RangeSelection.Address
    Set xRg = Application.InputBox("please select data range(only two columns):", "Kutools for Excel", xTxt, , , , , 8)
    Set xRg = Application.Intersect(xRg, xRg.Worksheet.UsedRange)
    If xRg Is Nothing Then Exit Sub
    If (xRg.Columns.Count <> 2) Or _
       (xRg.Areas.Count > 1) Then
        MsgBox "the used range is only one area with two columns ", , "Kutools for Excel"
        Exit Sub
    End If
    Set xOutRg = Application.InputBox("please select output range(specify one cell):", "Kutools for Excel", xTxt, , , , , 8)
    If xOutRg Is Nothing Then Exit Sub
    Set xOutRg = xOutRg.Range(1)
    xLRow = xRg.Rows.Count
    For i = 2 To xLRow
        xCol.Add xRg.Cells(i, 1).Value, xRg.Cells(i, 1).Value
    Next
    Application.ScreenUpdating = False
    For i = 1 To xCol.Count
        xCrit = xCol.Item(i)
        xOutRg.Offset(i, 0) = xCrit
        xRg.AutoFilter Field:=1, Criteria1:=xCrit
        Set xVRg = xRg.Range("B2:B" & xLRow).SpecialCells(xlCellTypeVisible)
        If xVRg.Count > xCount Then xCount = xVRg.Count
        xRg.Range("B2:B" & xLRow).SpecialCells(xlCellTypeVisible).Copy
        xOutRg.Offset(i, 1).PasteSpecial Paste:=xlPasteAll, Operation:=xlNone, SkipBlanks:=False, Transpose:=True
        Application.CutCopyMode = False
    Next
    xOutRg = xRg.Cells(1, 1)
    xOutRg.Offset(0, 1).Resize(1, xCount) = xRg.Cells(1, 2)
    xRg.Rows(1).Copy
    xOutRg.Resize(1, xCount + 1).PasteSpecial Paste:=xlPasteFormats
    xRg.AutoFilter
    Application.ScreenUpdating = True
End Sub

3. Ansin brúigh F5 eochair chun an cód seo a rith, agus tiocfaidh bosca pras amach le cur i gcuimhne duit an raon sonraí a theastaíonn uait a úsáid a roghnú, féach an scáileán:

4. Agus ansin cliceáil OK cnaipe, popfaidh bosca pras eile amach le cur i gcuimhne duit cill a roghnú chun an toradh a chur, féach an scáileán:

6. Cliceáil OK cnaipe, agus rinneadh na sonraí i gcolún B a thrasuí bunaithe ar luachanna uathúla i gcolún A, féach an scáileán:

Trasuí cealla i gcolún amháin bunaithe ar luachanna uathúla le Kutools for Excel

Má tá tú Kutools le haghaidh Excel, ag comhcheangal an Sraitheanna Comhcheangail Casta agus Cealla Scoilt fóntais, is féidir leat an tasc seo a chríochnú go tapa gan aon fhoirmlí ná cód.

Tar éis a shuiteáil Kutools le haghaidh Excel, déan mar a leanas le do thoil:

1. Roghnaigh an raon sonraí a theastaíonn uait a úsáid. (Más mian leat na sonraí bunaidh a choinneáil, déan na sonraí a chóipeáil agus a ghreamú go suíomh eile ar dtús.)

2. Ansin cliceáil Kutools > Cumaisc & Scoilt > Sraitheanna Comhcheangail Casta, féach ar an scáileán:

3. Sa an Comhcheangail Sraitheanna Bunaithe ar an gColún bosca dialóige, déan na hoibríochtaí seo a leanas le do thoil:

(1.) Cliceáil ainm an cholúin ar mhaith leat sonraí a thrasuí bunaithe air, agus roghnaigh Eochair Bhunscoile;

(2.) Cliceáil colún eile ar mhaith leat a thrasuí, agus cliceáil Chomhcheangail ansin roghnaigh deighilteoir amháin chun na sonraí comhcheangailte a scaradh, mar shampla spás, camóg, leathchlón.

4. Ansin cliceáil Ok cnaipe, tá na sonraí i gcolún B curtha le chéile i gcill amháin bunaithe ar cholún A, féach an scáileán:

5. Agus ansin roghnaigh na cealla comhcheangailte, agus cliceáil Kutools > Cumaisc & Scoilt > Cealla Scoilt, féach ar an scáileán:

6. Sa an Cealla Scoilt dialóg, roghnaigh Scoilt go Colúin faoi ​​na cineál rogha, agus ansin roghnaigh an deighilteoir a scarann ​​do chuid sonraí comhcheangailte, féach an scáileán:

7. Ansin cliceáil Ok cnaipe, agus roghnaigh cill chun an toradh scoilte a chur sa bhosca dialóige popped amach, féach an scáileán:

8. Cliceáil OK, agus gheobhaidh tú an toradh de réir mar is gá duit. Féach an pictiúr:

Íoslódáil agus triail saor in aisce Kutools le haghaidh Excel Now!

Taispeántas: Déan cealla a thrasuí i gcolún amháin bunaithe ar luachanna uathúla le Kutools le haghaidh Excel

---

Na hUirlisí Táirgiúlachta Oifige is Fearr

Réitíonn Kutools for Excel an chuid is mó de do chuid Fadhbanna, agus Méadaíonn sé do Tháirgiúlacht 80%

• Athúsáid: Cuir isteach go tapa foirmlí casta, cairteacha agus aon rud a d'úsáid tú roimhe seo; Cealla a Chriptiú le pasfhocal; Cruthaigh Liosta Ríomhphoist agus seol ríomhphoist ...
• Barra Foirmle Super (cuir línte iolracha téacs agus foirmle in eagar go héasca); Leagan Amach Léitheoireachta (líon mór cealla a léamh agus a chur in eagar go héasca); Greamaigh go dtí an Raon Scagtha...
• Cumaisc Cealla / Sraitheanna / Colúin gan Sonraí a chailleadh; Ábhar Cealla Scoilt; Comhcheangail Sraitheanna / Colúin Dúblacha... Cill Dúblach a Chosc; Déan comparáid idir Ranganna...
• Roghnaigh Dúblach nó Uathúil Sraitheanna; Roghnaigh Blank Rows (tá na cealla uile folamh); Aimsigh Super agus Fuzzy Aimsigh i go leor Leabhar Oibre; Roghnaigh go randamach ...
• Cóip Díreach Cealla Il gan tagairt fhoirmle a athrú; Tagairtí Cruthaigh Auto chuig Bileoga Il; Cuir Urchair isteach, Boscaí Seiceála agus go leor eile ...
• Sliocht Téacs, Cuir Téacs leis, Bain de réir Poist, Bain Spás; Subtotals Paging a chruthú agus a phriontáil; Tiontaigh Idir Ábhar Cealla agus Tráchtanna...
• Scagaire Super (scéimeanna scagaire a shábháil agus a chur i bhfeidhm ar bhileoga eile); Ard-Sórtáil de réir míosa / seachtaine / lae, minicíocht agus níos mó; Scagaire Speisialta le cló trom, iodálach ...
• Comhcheangail Leabhair Oibre agus Bileoga Oibre; Cumaisc Táblaí bunaithe ar eochaircholúin; Roinn Sonraí i Ilbhileoga; Baisc Tiontaigh xls, xlsx agus PDF...
• Níos mó ná 300 gné chumhachtach. Tacaíonn Office / Excel 2007-2021 agus 365. Tacaíonn sé le gach teanga. Imscaradh éasca i d'fhiontar nó d'eagraíocht. Gnéithe iomlána triail saor in aisce 30-lá. Ráthaíocht airgid ar ais 60-lá.

Leigh Nios mo... Íoslódáil saor in aisce ... Ceannach ... 

---

Tugann Tab Oifige comhéadan Tabbed chuig Office, agus Déan Do Obair i bhfad Níos Éasca

• Cumasaigh eagarthóireacht agus léamh tabbed i Word, Excel, PowerPoint, Foilsitheoir, Rochtain, Visio agus Tionscadal.
• Oscail agus cruthaigh cáipéisí iolracha i gcluaisíní nua den fhuinneog chéanna, seachas i bhfuinneoga nua.
• Méadaíonn do tháirgiúlacht 50%, agus laghdaíonn sé na céadta cad a tharlaíonn nuair luch duit gach lá!

Leigh Nios mo... Íoslódáil saor in aisce ... Ceannach ...