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

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

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:

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:

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.

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:

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

---

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á.

Leigh Nios mo... Íoslódáil saor in aisce ... Ceannach ... 

---

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á!

Leigh Nios mo... Íoslódáil saor in aisce ... Ceannach ...