Note: The other languages of the website are Google-translated. Back to English

 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?

trasnaíonn doc luachanna uathúla 1

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


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:

trasnaíonn doc luachanna uathúla 2

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:

trasnaíonn doc luachanna uathúla 3

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:

trasnaíonn doc luachanna uathúla 4

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:

trasnaíonn doc luachanna uathúla 5

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:

trasnaíonn doc luachanna uathúla 6


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:

trasnaíonn doc luachanna uathúla 7

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:

trasnaíonn doc luachanna uathúla 8

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:

trasnaíonn doc luachanna uathúla 9


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.

Kutools le haghaidh Excel : le níos mó ná 300 breiseán áisiúil Excel, saor in aisce le triail gan aon teorannú i 30 lá.

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.

trasnaíonn doc luachanna uathúla 11

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:

trasnaíonn doc luachanna uathúla 12

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:

trasnaíonn doc luachanna uathúla 14 14

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:

trasnaíonn doc luachanna uathúla 15

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

trasnaíonn doc luachanna uathúla 16

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


Kutools le haghaidh Excel: le níos mó ná 300 breiseán áisiúil Excel, saor in aisce le triail gan aon teorannú i 30 lá. Íoslódáil agus triail saor in aisce Anois!

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á.
cluaisín kte 201905

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á!
bun officetab
Sórtáil tuairimí de réir
Comments (56)
Níl rátálacha ar bith fós. Bí ar an gcéad duine a rátáil!
Rinne an modhnóir ar an láithreán an trácht seo a íoslaghdú
Conas a rachainn sa treo eile? Ó cholúin iolracha go colún amháin? Go raibh maith agat roimh ré! Tim
Rinne an modhnóir ar an láithreán an trácht seo a íoslaghdú
Bhí sé seo iontach. Bhí barr feabhais agam le timpeall 2000 luach uathúla i ró A agus ní fhéadfainn an cleachtadh seo a bhainistiú gan do chabhair. Míle buíochas.
Rinne an modhnóir ar an láithreán an trácht seo a íoslaghdú
Theipeann ar an gcéad chéim féin =Tugann INDEX($A$2:$A$16, MATCH(0, COUNTIF($D$1:$D1, $A$2:$A$16), 0)) luach nach bhfuil ar fáil earráid
Rinne an modhnóir ar an láithreán an trácht seo a íoslaghdú
Níl uaim ach a mhalairt a dhéanamh. Mar a bhfuil an toradh deiridh agam cheana féin, agus ba mhaith liom an chéad chéim a bhaint amach.
Rinne an modhnóir ar an láithreán an trácht seo a íoslaghdú
Táim ag lorg an rud céanna
Rinne an modhnóir ar an láithreán an trácht seo a íoslaghdú
An bhfuair tú aon réiteach don chás eile? Go raibh maith agat!
Rinne an modhnóir ar an láithreán an trácht seo a íoslaghdú
Ba mhaith liom a mhalairt a dhéanamh freisin. Aon réiteach a fuair tú fir?
Rinne an modhnóir ar an láithreán an trácht seo a íoslaghdú
Dia dhaoibh,
Chun an toradh eile a fháil bunaithe ar shampla an ailt seo, is féidir leat an cód VBA seo a leanas a chur i bhfeidhm: (Nóta:Agus an raon sonraí a theastaíonn uait a thrasuí á roghnú agat, fág as an tsraith ceanntásc)

Fo TransposeUnique_2()
Dim xLRow, xLCunt Chomh fada
Dim xRg Mar Raon
Dim xOutRg Mar Raon
Dim xObjRRg Mar Raon
Dim xTxt Mar Teaghrán
Dim xComhair chomh fada
Dim xVRg Mar Raon
Ar Lean Earráid Aghaidh
xTxt = ActiveWindow.RangeSelection.Address
Socraigh xRg = Application.InputBox ("roghnaigh raon sonraí le do thoil:"", "Kutools le haghaidh Excel", xTxt , , , , , 8)
Socraigh xRg = Application.Intersect(xRg, xRg.Worksheet.UsedRange)
Mura bhfuil xRg ar bith ansin Scoir Fo
Má (xRg.Rows.count < 2) Nó _
(xRg.Areas.count > 1) Ansin
MsgBox "Roghnú neamhbhailí", , "Kutools le haghaidh Excel"
Fo-Scoir
Deireadh Má
Socraigh xOutRg = Application.InputBox("roghnaigh raon aschuir le do thoil (sonraigh cill amháin):", "Kutools for Excel", xTxt, , , , , 8)
Mura rud é xOutRg Ansin Scoir Fo
Application.ScreenUpdating = Bréagach
xLCount = xRg.Columns.count
Le haghaidh xLRow = 1 Go xRg.Rows.count
Socraigh xObjRRg = Raon(xRg.Cells(xLRow, 2), xRg.Cells(xLRow, xLCount)).SpecialCells(xlCellTypeConstants)
xObjRRg.Cóip
xOutRg.Offset(, 1).PasteSpecial Paste:=xlPasteAll, Oibríocht:=xlNone, SkipBlanks:=Bréagach, Trasnaigh:=Fíor
Application.CutCopyMode = Bréagach
Raon (Cealla(xOutRg.Row, xOutRg.Column), Cealla(xOutRg.Row + xObjRRg.count - 1, xOutRg.Column)).Luach = xRg.Cells(xLRow, 1).Luach
Socraigh xOutRg = xOutRg.Offset(RowOffset:=xObjRRg.count)
Ar Aghaidh
Feidhmchlár.ScreenUpdating = Fíor
Fo Deireadh
Rinne an modhnóir ar an láithreán an trácht seo a íoslaghdú
Conas an trasuí a dhéanamh mura bhfuil luachanna uathúla ag colún B ach go dteastaíonn na luachanna sin fós
KTE 100
KTE 100
Ag glacadh leis go bhfuil siad dhá idirbheart difriúil
Rinne an modhnóir ar an láithreán an trácht seo a íoslaghdú
Dia dhaoibh,

An féidir leat d’fhadhb a thabhairt ar bhealach níos soiléire nó níos mionsonraithe?
Is féidir leat seat scáileáin shampla a chur isteach le haghaidh d'fhadhb.
Go raibh maith agat!
Rinne an modhnóir ar an láithreán an trácht seo a íoslaghdú
Dia duit ann,
An bhféadfá cabhrú liom le do thoil leis an riachtanas thíos.
Táirge ----- ordú
KTE ------ 100KTE ------ 200KTO ------ 300KTO ------ 300
aschur ionchais
Táirge ----- ordú ----- ordú ------ ordú
KTE ------ 100 ------ 200
KTO ------ 300 ------ 300







Rinne an modhnóir ar an láithreán an trácht seo a íoslaghdú
Teastaíonn an rud céanna uaimse freisin. Ba mhaith liom a thaispeáint 100 faoi dhó é má tá sna sonraí
Rinne an modhnóir ar an láithreán an trácht seo a íoslaghdú
An féidir leat foirmle a mholadh dó sin
Rinne an modhnóir ar an láithreán an trácht seo a íoslaghdú
An bhfuair tú freagra/réiteach riamh ar an dúshlán seo? Tá an ceann céanna agam.
Rinne an modhnóir ar an láithreán an trácht seo a íoslaghdú
An bhfuil bealach ann chun é seo a dhéanamh droim ar ais? ie sonraí i sraitheanna d'fhaid éagsúla agus mar sin iad a shórtáil ina dhá cholún? Féach faoi iamh.
Rinne an modhnóir ar an láithreán an trácht seo a íoslaghdú
Ba mhaith liom luachanna dúblacha a thrasuí freisin (gach luach - uathúil + dúblach) agus ní luachanna uathúla amháin. An féidir leat an fhoirmle dó sin a thabhairt freisin.
Rinne an modhnóir ar an láithreán an trácht seo a íoslaghdú
Tá an rud céanna ag teastáil uaim
Rinne an modhnóir ar an láithreán an trácht seo a íoslaghdú
An bhfuair tú freagra/réiteach riamh ar an dúshlán seo? Tá an ceann céanna agam.
Rinne an modhnóir ar an láithreán an trácht seo a íoslaghdú
Leis an bhfoirmle thíos:

=IFERROR(INDEX($B$2:$B$45, MATCH(0, COUNTIF($D2:D2,$B$2:$B$45)+IF($A$2:$A$10<>$D2, 1, 0), 0)), 0)

Conas is féidir liom na sonraí a thrasuí ag baint úsáide as neasmheaitseálacha? Abair, ba mhaith liom na luachanna go léir a bhaint as Colún B a mheaitseálann na chéad 9 gcarachtar / dhigit as Colún A? Tá 11 charachtar i gColún B agus níl A ach 9. go raibh maith agat!
Rinne an modhnóir ar an láithreán an trácht seo a íoslaghdú
Ní mór dom a mhalairt a dhéanamh go díreach. Tá go leor colún agam a bhaineann le haitheantas as a chéile agus ba mhaith liom iad a ghreamú ina dhá cholún
mar shampla tá agam
róid, luach, luach1, luach2, luach3, luach4, luach..225
100, Deilf, 255, 9--, sarah, jameson, ....
179, Ródaire, tuile, jason, 89, srón



Ba mhaith liom é breathnú mar seo
100, Deilf
100, 255
100, 9--
100, sarah
100, seafóid
179, Ródaire
179, tuile
179, jason
179, 89
179, srón
Rinne an modhnóir ar an láithreán an trácht seo a íoslaghdú
Dia duit, Dave,
Chun d’fhadhb a réiteach, bain úsáid as an gcód VBA thíos: (Nóta: Nuair a roghnaíonn tú an raon sonraí is mian leat a thrasuí, fág as an tsraith ceanntásc.)

Fo TransposeUnique_2()
Dim xLRow, xLCunt Chomh fada
Dim xRg Mar Raon
Dim xOutRg Mar Raon
Dim xObjRRg Mar Raon
Dim xTxt Mar Teaghrán
Dim xComhair chomh fada
Dim xVRg Mar Raon
Ar Lean Earráid Aghaidh
xTxt = ActiveWindow.RangeSelection.Address
Socraigh xRg = Application.InputBox ("roghnaigh raon sonraí le do thoil:"", "Kutools le haghaidh Excel", xTxt , , , , , 8)
Socraigh xRg = Application.Intersect(xRg, xRg.Worksheet.UsedRange)
Mura bhfuil xRg ar bith ansin Scoir Fo
Má (xRg.Rows.count < 2) Nó _
(xRg.Areas.count > 1) Ansin
MsgBox "Roghnú neamhbhailí", , "Kutools le haghaidh Excel"
Fo-Scoir
Deireadh Má
Socraigh xOutRg = Application.InputBox("roghnaigh raon aschuir le do thoil (sonraigh cill amháin):", "Kutools for Excel", xTxt, , , , , 8)
Mura rud é xOutRg Ansin Scoir Fo
Application.ScreenUpdating = Bréagach
xLCount = xRg.Columns.count
Le haghaidh xLRow = 1 Go xRg.Rows.count
Socraigh xObjRRg = Raon(xRg.Cells(xLRow, 2), xRg.Cells(xLRow, xLCount)).SpecialCells(xlCellTypeConstants)
xObjRRg.Cóip
xOutRg.Offset(, 1).PasteSpecial Paste:=xlPasteAll, Oibríocht:=xlNone, SkipBlanks:=Bréagach, Trasnaigh:=Fíor
Application.CutCopyMode = Bréagach
Raon (Cealla(xOutRg.Row, xOutRg.Column), Cealla(xOutRg.Row + xObjRRg.count - 1, xOutRg.Column)).Luach = xRg.Cells(xLRow, 1).Luach
Socraigh xOutRg = xOutRg.Offset(RowOffset:=xObjRRg.count)
Ar Aghaidh
Feidhmchlár.ScreenUpdating = Fíor
Fo Deireadh
Rinne an modhnóir ar an láithreán an trácht seo a íoslaghdú
Go raibh maith agat, oibríonn sé go foirfe, shábháil tú 2 lá dom! :)
Rinne an modhnóir ar an láithreán an trácht seo a íoslaghdú
Dia duit Skyyang,
le do thoil roinn an cód le haghaidh 3 cholún. Seo thíos an sampla:
Ba mhaith liom na sonraí mar: yogesh@gmail.com pobal 1 amharc ach pobal 2 amharc amháin ...... goyal@gmail.com pobal 1 amharc amháin pobal 2 amharc amháin........

Rinne an modhnóir ar an láithreán an trácht seo a íoslaghdú
Dia duit, ygoyal,

Chun d’fhadhb a réiteach, cuir an cód thíos i bhfeidhm le do thoil:

Fo TransposeUnique_2()

Dim xLRow, xLCunt Chomh fada

Dim xRg Mar Raon

Dim xOutRg Mar Raon

Dim xObjRRg Mar Raon

Dim xTxt Mar Teaghrán

Dim xComhair chomh fada

Dim xVRg Mar Raon

Dim xC, xI, xI1, xI2 Mar Shlánuimhir

Ar Lean Earráid Aghaidh

xTxt = ActiveWindow.RangeSelection.Address

Socraigh xRg = Application.InputBox ("roghnaigh raon sonraí le do thoil:"", "Kutools le haghaidh Excel", xTxt , , , , , 8)

Socraigh xRg = Application.Intersect(xRg, xRg.Worksheet.UsedRange)

Mura bhfuil xRg ar bith ansin Scoir Fo

Má (xRg.Rows.Count < 2) Nó _

(xRg.Areas.Count > 1) Ansin

MsgBox "Roghnú neamhbhailí", , "Kutools le haghaidh Excel"

Fo-Scoir

Deireadh Má

Socraigh xOutRg = Application.InputBox("roghnaigh raon aschuir le do thoil (sonraigh cill amháin):", "Kutools for Excel", xTxt, , , , , 8)

Mura rud é xOutRg Ansin Scoir Fo

Application.ScreenUpdating = Bréagach

xLCount = xRg.Columns.Count

Le haghaidh xLRow = 1 Go xRg.Rows.Count

Socraigh xObjRRg = Raon(xRg.Cells(xLRow, 2), xRg.Cells(xLRow, xLCount)).SpecialCells(xlCellTypeConstants)

Ar Lean Earráid Aghaidh

xC = (xObjRRg.Count Mod 2)

Má xC <> 0 Ansin

xC = Int(xObjRRg.Count/2)+1

Eile

xC = Int(xObjRRg.Count/2)

Deireadh Má

xI1 = 1

xI2 = 2

Le haghaidh xI = 1 Go xC

Raon(xObjRRg.Item(xI1), xObjRRg.Item(xI2)).Cóip

xOutRg.Offset(, 1).PasteSpecial Paste:=xlPasteAll, Oibríocht:=xlNone, SkipBlanks:=Bréagach, Trasnaigh:=Bréagach

Application.CutCopyMode = Bréagach

xOutRg.Value = xRg.Cells(xLRow, 1).Luach

Socraigh xOutRg = xOutRg.Offset(RowOffset:=1)

xI1 = xI1 + (2)

xI2 = xI2 + (2)

Ar Aghaidh

Ar Aghaidh

Feidhmchlár.ScreenUpdating = Fíor

Fo Deireadh



Bain triail as, le do thoil, tá súil gur féidir leis cabhrú leat!
Rinne an modhnóir ar an láithreán an trácht seo a íoslaghdú
Dia duit Bro, Tá an cód ag obair os coinne. Féach le do thoil an seat scáileáin a ghabhann leis seo den riachtanas. Tá na sonraí atá ar fáil as a chéile agus ba mhaith leat na sonraí a thrasuí i gcolúin .
Rinne an modhnóir ar an láithreán an trácht seo a íoslaghdú
Dia dhaoibh,
Ár leithscéal as freagra déanach a thabhairt, cuir an cód seo a leanas i bhfeidhm le do thoil, bain triail as!

Fo-thrassuíomh()

'nuashonrúby Extendoffice

Dim xLRrow Chomh fada

Dim i Chomh fada

Dim xCrit Mar Teaghrán

Dim xCol Mar Bhailiúchán Nua

Dim xRg Mar Raon

Dim xOutRg Mar Raon

Dim xTxt Mar Teaghrán

Dim xComhair chomh fada

Dim xVRg Mar Raon

Dim xFRg, xSRg, xCRg Mar Raon

Ar Lean Earráid Aghaidh

xTxt = ActiveWindow.RangeSelection.Address

Socraigh xRg = Application.InputBox("roghnaigh raon sonraí le do thoil (ach 3 cholún):", "Kutools for Excel", xTxt, , , , , 8)

Socraigh xRg = Application.Intersect(xRg, xRg.Worksheet.UsedRange)

Mura bhfuil xRg ar bith ansin Scoir Fo

Más rud é (xRg.Columns.Count <> 3) Nó _

(xRg.Areas.Count > 1) Ansin

msgstr "Níl sa raon úsáidte ach réimse amháin le dhá cholún", , "Kutools le haghaidh Excel"

Fo-Scoir

Deireadh Má

Socraigh xOutRg = Application.InputBox("roghnaigh raon aschuir le do thoil (sonraigh cill amháin):", "Kutools for Excel", xTxt, , , , , 8)

Mura rud é xOutRg Ansin Scoir Fo

Socraigh xOutRg = xOutRg.Range(1)

xLRow = xRg.Rows.Count

Chun i = 2 Go xLRow

xCol.Cuir xRg.Cealla(i, 1).Luach, xRg.Cealla(i, 1).Luach

Ar Aghaidh

Application.ScreenUpdating = Bréagach

Application.ScreenUpdating = Bréagach

Chun i = 1 Go xCol.Count

xCrit = xCol.Item(i)

xOutRg.Offset(i, 0) = xCrit

xRg.AutoFilter Réimse:=1, Critéir1:=xCrit

Socraigh xVRg = xRg.Range("B2:B" & xLRow).SpecialCells(xlCellTypeVisible)

Má tá xVRg.Count > xCount Ansin xCount = xVRg.Count

Socraigh xSRg = xRg.Range("B2:B" & xLRow).SpecialCells(xlCellTypeVisible)

Socraigh xCRg = xOutRg.Offset(i, 1)

Do Gach xFRg I xSRg

xFRg.Cóip

xCRg.PasteSpecial

xRg.Range("B1").Cóip

xCRg.Offset(-(i), 0).PasteSpecial

xFRg.Offset(0, 1).Cóip

Socraigh xCRg = xCRg.Offset(0, 1)

xCRg.PasteSpecial

xRg.Range("c1").Cóip

xCRg.Offset(-(i), 0).PasteSpecial

Socraigh xCRg = xCRg.Offset(0, 1)

Ar Aghaidh

Application.CutCopyMode = Bréagach

Ar Aghaidh

xRg.Item(1).Cóip

xOutRg.PasteSpecial

xRg.AutoFilter

Feidhmchlár.ScreenUpdating = Fíor

Fo Deireadh
Rinne an modhnóir ar an láithreán an trácht seo a íoslaghdú
Hey Bro Bhain mé triail as an gcód seo a úsáid ach téann an excel ar crochadh nuair a ritheann mé an cód seo agus ní raibh mé in ann an t-aschur ón gcód thuas a fheiceáil. le do thoil a mholadh cad atá le déanamh sa chás seo.
Rinne an modhnóir ar an láithreán an trácht seo a íoslaghdú
Haigh,
Oibríonn an cód go maith i mo leabhar oibre, cén leagan Excel a úsáideann tú?
Rinne an modhnóir ar an láithreán an trácht seo a íoslaghdú
MS Excel 2016 saor in aisce,
Rinne an modhnóir ar an láithreán an trácht seo a íoslaghdú
Oibríonn an cód go breá i mo Excel 2016 freisin, le do thoil déan iarracht é le roinnt sonraí raon beag ar dtús.
Rinne an modhnóir ar an láithreán an trácht seo a íoslaghdú
An bhfuil tástáil déanta ar 160 taifead ach sa mhéid is go raibh dúbailt fós ann.
Rinne an modhnóir ar an láithreán an trácht seo a íoslaghdú
Dia duit Skyyang, Is breá leat é seo, seans ar bith go bhféadfadh tú oibriú ar feadh ceithre cholún? arís ach an chéad dá úsáid a bhaint as mar chomparadóir, nó níos fearr fós an cumas líon na gcolún a roghnú roimh iad a roghnú? Bhreathnaigh mé ar do script, ní bheadh ​​​​a fhios agam conas é seo a bhaint amach ...
Rinne an modhnóir ar an láithreán an trácht seo a íoslaghdú
Dia duit Skyyang, Is breá leat é seo, seans ar bith go bhféadfadh tú oibriú ar feadh ceithre cholún? arís ach an chéad dá úsáid a bhaint as mar chomparadóir, nó níos fearr fós an cumas líon na gcolún a roghnú roimh iad a roghnú? Bhreathnaigh mé ar do script, ní bheadh ​​​​a fhios agam conas é seo a bhaint amach ...
Rinne an modhnóir ar an láithreán an trácht seo a íoslaghdú
Bro, pls cabhrú leis seo.
Rinne an modhnóir ar an láithreán an trácht seo a íoslaghdú
Dia duit Bro, fós ag fanacht le do chabhair
Rinne an modhnóir ar an láithreán an trácht seo a íoslaghdú
Dia dhuit
Rinne an modhnóir ar an láithreán an trácht seo a íoslaghdú
Mar an gcéanna le Dave, ní mór dom a mhalairt go díreach a dhéanamh. Tábla 2 le trasuí go Tábla 1. Tábla Ionchur 2, Tábla Aschuir 1 .
Rinne an modhnóir ar an láithreán an trácht seo a íoslaghdú
=D'oibrigh INDEX($A$2:$A$16, MATCH(0, COUNTIF($D$1:$D1, $A$2:$A$16), 0)) domsa chun luachanna uathúla colúin a thrasuí ina nua colún ACH...an bhfuil bealach ann le fógraíocht a dhéanamh i bhfeidhm sórtála ionas go ndéanfar an colún nua a chruthaítear a thrasuí in ord ardaitheach?


Go raibh maith agat!
Rinne an modhnóir ar an láithreán an trácht seo a íoslaghdú
Is gá an rud céanna a chur amach ach is é ($A,$B) na colúin réamhshainithe a roghnú agus beidh an colún aschuir ag teastáil Suíomh ar $D$1.
Má tá smaointe ag éinne ba mhór an chabhair é sin!!!!
Rinne an modhnóir ar an láithreán an trácht seo a íoslaghdú
Dia duit, an féidir linn gach sraith a chur leis agus an t-aschur a thabhairt i gcolún amháin, leis an bhfeidhmiúlacht thuas.
Rinne an modhnóir ar an láithreán an trácht seo a íoslaghdú
Mar sin táim ag obair do chuideachta. Tá colúin againn le haghaidh faisnéise mar Sloinne, céad ainm, céim, rannóg, uimhir theileafóin, seoladh. An féidir liom foirmle chomhchosúil a úsáid chun an tsraith iomlán faisnéise a thrasuí go colún de réir ainmneacha?
Rinne an modhnóir ar an láithreán an trácht seo a íoslaghdú
=D'oibrigh INDEX($A$2:$A$16, MATCH(0, COUNTIF($D$1:$D1, $A$2:$A$16), 0)) dom chun luachanna uathúla A a thrasuí go colún nua colún ACH...an bhfuil bealach ann chun na luachanna uile i gcolún B a thrasuí mar a thugtar thíos:

Dáta Ordú Táirge Ordú Ordú Ordú Ordú Ordú Ordú
KTE 100 3/3/2019 KTE 100 100 100 200 100 150 100
KTO 150 3/3/2019 KTO 150 100 200 100 150 200
KTE 100 3/4/2019 BOT 150 100 200 150 100 200
KTO 100 3/4/2019 CÓD 200 150 100 150
KTO 200 3/5/2019
KTE 100 3/5/2019
BOT 150 3/5/2019
BOT 100 3/6/2019
KTO 100 3/6/2019
KTE 200 3/6/2019
BOT 200 3/7/2019
CÓD 200 3/7/2019
KTE 100 3/7/2019
KTO 150 3/7/2019
BOT 150 3/8/2019
KTE 150 3/8/2019
CÓD 150 3/8/2019
BOT 100 3/9/2019
BOT 200 3/10/2019
CÓD 100 3/10/2019
KTO 200 3/10/2019
CÓD 150 3/11/2019
KTE 100 3/11/2019
Rinne an modhnóir ar an láithreán an trácht seo a íoslaghdú
Níor oibrigh an macra. Rinne sé an t-ábhar i gcill A1 a chóipeáil.
Rinne an modhnóir ar an láithreán an trácht seo a íoslaghdú
Tá tacar sonraí agam i gColúin A (Aitheantas Uathúil) - E. Tá sonraí bunaithe ar an ID# ag gach ró, tá sraitheanna iolracha ann do gach ID# ach ba mhaith liom ró amháin in aghaidh an ID# leis na sonraí eile go léir sna colúin ( bheadh ​​sé 5 cholún ar a fhad agus 25 ar a mhéad ag brath ar cé mhéad atá ag gach ID uathúil). Fuair ​​​​mé cód ach ní oibríonn sé ach ar feadh dhá cholún. Bhí orm na ceithre cholún a chomhcheangail (gan ID san áireamh) a theorannú ansin tar éis an macra a rith (go leor oibre). Tógann sé seo breis ama i gcás 15,000 sraith sonraí. An bhfuil macra colún gan teorainn a d’oibreodh? Go raibh maith agat roimh ré gach duine as do chabhair!
CÓD Aitheantais ST CÓD# DATE
Rinne an modhnóir ar an láithreán an trácht seo a íoslaghdú
Tá tacar sonraí agam a bhfuil aitheantais iolracha agam i gcolún A, agus a bhfuil sonraí nasctha i gcolún B agam. D'úsáid mé an fhoirmle thuas agus d'athraigh mé beagán é ionas go mbeidh mé ag trasnú na gcealla i gcolún B i ndiaidh a chéile bunaithe ar an ID uathúil ceangailte leis i gcolún A. Is í an fhoirmle a úsáidtear chun na haitheantais uathúla a shainaithint ná: =INDEX($A$2:$A$13409, MATCH(0, COUNTIF($D$1:$D1, $A$2:$A$13409), 0)). Is í an fhoirmle a úsáidtear chun an trasuíomh a dhéanamh ná: =IFERROR(INDEX($B$2:$B$13409, MATCH(0, IF($A$2:$A$13409<>$D2, 1, 0))+COUNTIF($D2: D2,$B$2:$B$13409), 0)), "N/B"). An dá tugtha san alt, ach beagán athraithe.

Is í an tsaincheist ná go bhfuil dúbailtí ag mo thacar sonraí i gcolún B, uaireanta le feiceáil ceann i ndiaidh a chéile, agus is gá dom na luachanna go léir sa cholún a chur i láthair sna sraitheanna.

Is í an íomhá atá i gceangal leis seo an rud ba mhaith liom go dtaispeánfadh an tábla (is sampla beag é seo, tá os cionn 13,000 iontráil sa tacar sonraí fíor). Is é an rud atá ag tarlú anois ná nuair a aimsítear luach athfhillteach, ní dhéanfar é a chomhaireamh.
ie ní thaispeánann Ró 9 le haghaidh ID 11980 ach 0 -31.79 -0.19 -0.74 N/AN/B .... nuair is é an rud a theastaíonn uaim le taispeáint ina ionad ná 0 0 -31.79 -0.19 -0.74 0 0 N/AN/B . ...

An bhfuil bealach ann chun oibriú timpeall ar an gceist seo agus í a réiteach?

Go raibh míle maith agat roimh ré!
Rinne an modhnóir ar an láithreán an trácht seo a íoslaghdú
An bhfuair tú freagra/réiteach riamh ar an dúshlán seo? Tá an ceann céanna agam.
Rinne an modhnóir ar an láithreán an trácht seo a íoslaghdú
Tá tacar sonraí agam ina bhfuil 3 cholún léirithe thíos:



Colún A Colún B Colún C



Tír1 Bliain1 Luach1

Tír1 Bliain2 Luach2

Tír 1 Bliain 3 Luach3,



Tír2 Bliain1 Luach1

Tír 2 Bliain 3 Luach3,

...........



Caithfidh mé na 3 cholún seo a chur le chéile i dtábla mar seo:

Bliain1 Bliain2 Bliain3 ................................. BliainX



Tír1 Luach1 Luach2 Luach3

Tír2 Luach1 #Luach ar Iarraidh3

.....
.....
.....

CountryX Valuex ..................





Is í an fhadhb atá romham ná i gcás roinnt sonraí i gcolún A nach bhfuil luachanna agam do gach bliain amháin do roinnt acu. (Mar shampla tá luachanna in easnamh ag tír 2 do Bhliain 2)





An bhfuil bealach ann chun oibriú timpeall ar an gceist seo agus í a réiteach?



Go raibh míle maith agat roimh ré!
Rinne an modhnóir ar an láithreán an trácht seo a íoslaghdú
an féidir leat an cód a roinnt le do thoil má tá 2 cholún le cóipeáil in ionad 1. thíos tá an sampla.
Níl aon tráchtanna curtha suas anseo go fóill
Luchtaigh More
Fág do chuid tuairimí
Ag postáil mar Aoi
×
Ráta an post seo:
0   Carachtair
Suímh Molta

Lean orainn

Cóipcheart © 2009 - www.extendoffice.com. | Gach ceart ar cosaint. Cumhachtaithe ag ExtendOffice. | léarscáil an tSuímh
Is trádmharcanna nó trádmharcanna cláraithe de chuid Microsoft Corporation sna Stáit Aontaithe agus / nó i dtíortha eile iad lógó Office agus Office.
Cosanta ag Sectigo SSL