Skip to main content

Conas luachanna cille a chomhtháthú go dtí má aimsítear cill bhán i gcolún?

concatenate doc go dtí go bán 1

Mar shampla, tá liosta luachanna agam lena n-áirítear roinnt cealla bána, agus anois, ba mhaith liom gach tacar sonraí idir bearnaí a chur i gcill agus na luachanna comhcheangailte i gcolún eile a liostáil mar a leanas an pictiúr a thaispeántar. Conas a d’fhéadfainn cealla a chomhchuibhiú go dtí go bhfaighidh mé cill bhán i gcolún?

Luachanna cille a chomhchuibhiú go dtí go bhfaightear cill bhán i gcolún le cód VBA

Luachanna cille a chomhchuibhiú go dtí má aimsítear cill bhán i gcolún le Kutools for Excel


mboilgeog cheart gorm saighead Luachanna cille a chomhchuibhiú go dtí go bhfaightear cill bhán i gcolún le cód VBA

Níl aon bhealach díreach ann duit tacar cealla a chur le chéile idir bearnaí, ach, is féidir leat an cód VBA seo a leanas a chur i bhfeidhm chun déileáil leis. Déan mar a leanas le do thoil:

1. Coinnigh síos an ALT + F11 eochracha a oscailt Fuinneog Microsoft Visual Basic for Applications.

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

Cód VBA: luachanna cille comhtháthaithe go dtí go bhfaightear cill bhán

Sub Concatenatecells()
'updateby Extendoffice
    Dim xRg As Range
    Dim xSaveToRg As Range
    Dim xTxt As String
    Dim xCell As Range
    Dim xTStr As String
    On Error Resume Next
    xTxt = ActiveWindow.RangeSelection.Address
    Set xRg = Application.InputBox("Please selecte the data range:", "Kutools for Excel", xTxt, , , , , 8)
    If xRg Is Nothing Then Exit Sub
    If xRg.Columns.Count > 1 Then
        MsgBox "the selected range is more than one column", vbInformation, "Kutools for Ecel"
        Exit Sub
    End If
    Set xSaveToRg = Application.InputBox("Please selecte output cell:", "Kutools for Excel", , , , , , 8)
    If xSaveToRg Is Nothing Then Exit Sub
    Set xSaveToRg = xSaveToRg.Cells(1)
    Application.ScreenUpdating = False
    For Each xCell In xRg
        If xCell <> "" Then
            xTStr = xTStr & xCell & " "
        Else
            xSaveToRg.Value = xTStr
            Set xSaveToRg = xSaveToRg.Offset(1)
            xTStr = ""
        End If
    Next
    If xTStr <> "" Then xSaveToRg.Value = Left(xTStr, Len(xTStr) - 1)
    Application.ScreenUpdating = True
End Sub

3. Ansin brúigh F5 eochair chun an cód seo a rith, agus tá bosca pras popped amach chun a mheabhrú duit an raon sonraí a theastaíonn uait a chomhtháthú a roghnú, féach an scáileán:

concatenate doc go dtí go bán 10

4. Ansin cliceáil OK, agus bosca pras eile popped amach, roghnaigh cill le do thoil chun an toradh comhtháthaithe a aschur, féach an scáileán:

concatenate doc go dtí go bán 11

5. Agus ansin cliceáil OK cnaipe, agus tá sonraí liosta na gcolún comhtháthaithe idir na bearnaí, féach an scáileán:

concatenate doc go dtí go bán 1


mboilgeog cheart gorm saighead Luachanna cille a chomhchuibhiú go dtí má aimsítear cill bhán i gcolún le Kutools for Excel

Má tá tú Kutools le haghaidh Excel, ag comhcheangal a Raon Trasfhoirmigh agus Chomhcheangail gnéithe, is féidir leat an post seo a chríochnú chomh luath agus is féidir. Tá an Raon Trasfhoirmigh is féidir le fóntais cabhrú leat an colún aonair a thiontú go raon, agus an Chomhcheangail is féidir le gné cabhrú leat an raon athraithe a chomhchruinniú go colún.

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 na cealla is mian leat a thabhairt le chéile, agus cliceáil Kutools > Raon > Raon Trasfhoirmigh, féach ar an scáileán:

2. Sa an Raon Trasfhoirmigh bosca dialóige, seiceáil Colún aonair le raon rogha faoin Cineál a athrú, Agus ansin roghnaigh Teoraíonn cill bán taifid faoi ​​na Sraitheanna in aghaidh an taifead, féach ar an scáileán:

concatenate doc go dtí go bán 3

3. Ansin cliceáil Ok, agus tiocfaidh bosca pras amach le cur i gcuimhne duit cill a roghnú chun an toradh a aschur, féach an scáileán:

concatenate doc go dtí go bán 4

4. Cliceáil OK, agus tá na sonraí colún aonair tiontaithe ina sraitheanna agus ina gcolúin iolracha ag an gcill bhán, féach an scáileán:

concatenate doc go dtí go bán 5

5. Tá na sonraí tiontaithe i gcolúin iolracha, mar sin ní mór duit iad a chomhcheangal in aon cholún amháin, roghnaigh an raon sonraí agus cliceáil le do thoil Kutools > Cumaisc & Scoilt > Comhcheangail Sraitheanna, Colúin nó Cealla gan Sonraí a chailleadh, féach ar an scáileán:

6. Sa an Comhcheangail Colúin nó Sraitheanna bosca dialóige, déan na roghanna seo a leanas:

(1.) Roghnaigh Comhcheangail colúin rogha ón Cealla roghnaithe a chur le chéile de réir na roghanna seo a leanas;

(2.) Ansin sonraigh deighilteoir gur mhaith leat na luachanna comhtháthaithe a dheighilt;

(3.) Roghnaigh an chaoi ar mhaith leat déileáil leis na cealla comhcheangailte. Féadfaidh tú na sonraí bunaidh a choinneáil nó a scriosadh, agus féadfaidh tú na cealla comhcheangailte a chumasc. Féach an pictiúr:

concatenate doc go dtí go bán 7

7. Tar éis na socruithe a chríochnú, cliceáil Ok or Cuir iarratas isteach cnaipe, tá na cealla comhtháthaithe i gcolún amháin le deighilteoir ar leith, féach an scáileán:

concatenate doc go dtí go bán 8

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

Uirlisí Táirgiúlachta Oifige is Fearr

Gnéithe Coitianta: Faigh, Aibhsigh nó Aithnigh Dúblaigh   |  Scrios Sraitheanna Bána   |  Comhcheangail Colúin nó Cealla gan Sonraí a Chailleadh   |   Babhta gan Foirmle ...
Cuardaigh Super: Ilchritéir VLookup    VLookup Illuachanna  |   VLookup Trasna Ilbhileoga   |   Amharc doiléir ....
Liosta anuas Casta: Go tapa Cruthaigh Liosta Anuas   |  Liosta anuas Cleithiúnach   |  Liosta Buail Isteach Ilroghnacha ....
Bainisteoir Colún: Cuir Líon Sonrach Colún leis  |  Colúin Bog  |  Scoránaigh Stádas Infheictheachta na gColún Ceilte  |  Déan comparáid idir Raonta & Colúin ...
Gnéithe Réadmhaoin: Fócas Eangaí   |  Amharc Dearaidh   |   Barra Mór na Foirmle    Leabhar Oibre & Bainisteoir Bileog   |  Leabharlann Acmhainní (Uaththéacs)   |  Piocálaí Dáta   |  Comhcheangail Bileoga Oibre   |  Criptigh/Díchriptigh Cealla    Seol Ríomhphost trí Liosta   |  Scagaire Super   |   Scagaire Speisialta (scagaire trom/iodálach/stailc tríd...) ...
Barr 15 Uirlisí12 Téacs uirlisí (Cuir Téacs, Bain Carachtair,...)   |   50 + Cairt cineálacha (Cairt Gantt,...)   |   40+ Praiticiúil Foirmlí (Ríomh aois bunaithe ar lá breithe,...)   |   19 Insertion uirlisí (Cuir isteach Cód QR, Ionsáigh Pictiúr ón gCosán,...)   |   12 Tiontú uirlisí (Uimhreacha le Focail, Comhshó Airgeadra,...)   |   7 Cumaisc & Scoilt uirlisí (Sraitheanna Comhcheangail Casta, Cealla Scoilt,...)   |   ... agus eile

Supercharge Do Scileanna Excel le Kutools le haghaidh Excel, agus Éifeachtúlacht Taithí Cosúil Ná Roimhe. Kutools le haghaidh Excel Tairiscintí Níos mó ná 300 Ardghnéithe chun Táirgiúlacht a Treisiú agus Sábháil Am.  Cliceáil anseo chun an ghné is mó a theastaíonn uait a fháil ...

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á!
Comments (8)
No ratings yet. Be the first to rate!
This comment was minimized by the moderator on the site
Hi, I am using the VBA code, but instead of putting the data into separate rows, it is putting it all in a single cell. Does anyone have an idea why it is doing this?
This comment was minimized by the moderator on the site
Hi! After changing the values (ex, watermelon instead of apple) why is the formula not working?
This comment was minimized by the moderator on the site
Hello, Cristina

Our article provides VBA code, doesn't provide a formula. If you change the cell content, you must re-run the code again to get the correct result.
Thank you!
This comment was minimized by the moderator on the site
great job bro, Very useful
This comment was minimized by the moderator on the site
Hello,
You are welcome. Glad it helps. Any questions, please feel free to contact us. Have a great day.
Sincerely,
Mandy
This comment was minimized by the moderator on the site
It shows there's a syntax error on line 3 "Dim xRg As Range" when I'm trying to run this module based on method 1, what should I do about it?
This comment was minimized by the moderator on the site
Hello, JJ, The code works well in my worksheet, which Excel version do you use?Or you can insert a screesnhot of your problem here.
This comment was minimized by the moderator on the site
How would you do it if you want to base it off another column? I have similar data, but column B is a number then notes(like your fruit) in column I, I want to combine all notes in column I until there is another cell in Column B that has only number. Sometimes there are letter under B or the cells are blank which is why it needs to combine until a number. Then finally can it output back to where it started the combine? IE all notes for first number are in column j, but if the next number is 5 rows below that is fine, it just goes in column j but same row number as the number is found?
There are no comments posted here yet
Please leave your comments in English
Posting as Guest
×
Rate this post:
0   Characters
Suggested Locations