Conas luachanna cille a chomhcheangal go dtí go bhfaightear cill bhán i gcolún in Excel?

Mar shampla, tá liosta luachanna agam, lena n-áirítear roinnt cealla bána, agus ba mhaith liom gach sraith sonraí a chomhcheangal idir bearnaí isteach i gcill agus na luachanna comhcheangailte a liostú i gcolún eile, mar a thaispeántar sa screenshot seo a leanas. Conas a d’fhéadfainn cealla a chomhcheangail go dtí go bhfaightear cill bhán i gcolún?

Comhcheangail luachanna cille go dtí go bhfaightear cill bhán i gcolún le cód VBA

Concatenate luachanna cille go dtí go bhfaightear ceall bán i gcolún le Kutools le haghaidh Excel

Comhcheangail luachanna cille 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: comhcheangail luachanna cille 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 select 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 Excel"
        Exit Sub
    End If
    Set xSaveToRg = Application.InputBox("Please select 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:

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:

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 luachanna cille go dtí go bhfaightear ceall bán i gcolún le Kutools le haghaidh 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.

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:

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:

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:

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:

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: