Note: The other languages of the website are Google-translated. Back to English
Logáil isteach  \/ 
x
or
x
Cláraigh  \/ 
x

or

Conas sonraí a aistriú ón gcolún go cill amháin in Excel?

Nuair is gá duit liosta sonraí a thrasuí i gcill amháin i mbileog oibre, de ghnáth, is féidir leat an Concatenate feidhm chun liosta na gcealla a chumasc in aon chill amháin, ach, beidh sé casta má tá gá le sonraí ollmhóra a chomhcheangal. An t-alt seo, labhróidh mé faoi roinnt cleasanna gasta chun an tasc seo a réiteach in Excel.

Sonraí a aistriú ón gcolún go cill amháin le Feidhm Sainithe ag an Úsáideoir

Sonraí a aistriú ón gcolún go cill amháin le Kutools for Excel


Seachas an fheidhm Concatenate chun liosta luachanna cille a chumasc, is féidir leat an cód VBA seo a leanas a chur i bhfeidhm chun an toradh a fháil chomh tapa agus is féidir leat.

1. Coinnigh síos an ALT + F11 eochracha, agus osclaíonn sé an 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: Déan sonraí ón gcolún a thrasuí i gcill amháin

Function transposeRange(Rg As Range)
'updateby Extendoffice
    Dim xCell As Range
    Dim xStr As String
    For Each xCell In Rg
        If Not IsEmpty(xCell.Value) Then
            xStr = xStr & xCell.Value & ","
        End If
    Next
    transposeRange = Left(xStr, Len(xStr) - 1)
End Function

3. Ansin sábháil agus dún an cód seo, téigh ar ais ar an mbileog oibre, agus iontráil an fhoirmle seo: = transposerange (A1: A10) isteach i gcill bhán chun an toradh a chur, agus brúigh Iontráil eochair, gheobhaidh tú go bhfuil na luachanna cille go léir i gcolún suite i gcill aonair, féach an scáileán:

déanann cealla cealla a thrasuí i gcill amháin 1

nótaí: Sa chód thuas, A1: A10 is é an raon liosta is mian leat a thrasuí i gcill amháin, agus freisin, is féidir leat an t-ábhar cumaisc a dheighilt le teimpléid eile, mar shampla camóg, Fleasc, spás, srl. ach an camóg a athrú sa script xStr = xStr & xCell.Value & ",".


Má tá tú Kutools le haghaidh Excel, lena uirlis chumhachtach-Chomhcheangail, is féidir leat sonraí a chomhcheangal i gcolún, i ndiaidh a chéile nó i raon go cill amháin.

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 :( Íoslódáil saor in aisce Kutools le haghaidh Excel Anois! )

1. Roghnaigh an colún sonraí a theastaíonn uait a chur le chéile i gcill amháin.

2. Cliceáil Kutools > Cumaisc & ScoiltComhcheangail Sraitheanna, Colúin nó Cealla gan Sonraí a chailleadh, féach ar an scáileán:

3. Sa bhosca dialóige popped out, roghnaigh Comhcheangail i gcill aonair faoi ​​na Cealla roghnaithe a chur le chéile de réir na roghanna seo a leanas, agus ansin deighilteoir a shonrú chun an t-ábhar cumaisc a scaradh, féach an scáileán:

déanann cealla cealla a thrasuí i gcill amháin 3

4. Ansin cliceáil Ok or Cuir iarratas isteach cnaipe, agus gheobhaidh tú an toradh seo a leanas de réir mar a theastaíonn uait:

déanann cealla cealla a thrasuí i gcill amháin 4 2 déanann cealla cealla a thrasuí i gcill amháin 5

Í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íochtaí Office / Excel 2007-2019 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 ar ais airgid 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
Say something here...
symbols left.
You are guest
or post as a guest, but your post won't be published automatically.
Loading comment... The comment will be refreshed after 00:00.
  • To post as a guest, your comment is unpublished.
    Sophie · 2 years ago
    Hi,

    Thanks a lot! I'm using your following function and it works very well. I would like to include an "if" function in the transposerange. What should I add to the function in VBA? Basically, it would work like a countif. So we would read the formula =transposerangeif(range,criteria).

    Thanks in advance!

    Function transposeRange(Rg As Range)
    'updateby Extendoffice 20151207
    Dim xCell As Range
    Dim xStr As String
    For Each xCell In Rg
    If Not IsEmpty(xCell.Value) Then
    xStr = xStr & xCell.Value & ","
    End If
    Next
    transposeRange = Left(xStr, Len(xStr) - 1)
    End Function
    • To post as a guest, your comment is unpublished.
      skyyang · 2 years ago
      Hello,Sophie,
      Could you give an example for your need, you can insert a screenshot here.
  • To post as a guest, your comment is unpublished.
    Eric · 3 years ago
    Thanks, this was very helpful.