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