Tiwtorial Excel: Cyfuno Colofnau, Rhesi, Celloedd

Mae cyfuno colofnau, rhesi, neu gelloedd yn cael ei ddefnyddio fel arfer yn ein swydd Excel dyddiol, megis cyfuno enw cyntaf ac enw olaf sydd mewn dwy golofn yn un golofn i gael yr enw llawn, gan gyfuno rhesi yn seiliedig ar yr un ID a chrynhoi'r gwerthoedd cyfatebol, gan gyfuno ystod o gelloedd yn un gell sengl ac ati. Mae'r tiwtorial hwn yn rhestru'r holl senarios ynghylch cyfuno colofnau / rhesi / celloedd yn Excel, ac yn darparu'r gwahanol atebion i chi.

Llywio’r Tiwtorial hwn

1 Cyfuno colofnau/rhesi yn un gell 1.1 Cyfuno colofnau/rhesi yn un gell â gofod/coma neu amffinyddion eraill 1.11 Defnyddio symbol ampersand (&) 1.12 Defnyddio swyddogaeth CONCATENATE (Excel 2016 neu fersiynau cynharach) 1.13 Defnyddio swyddogaeth CONCAT neu swyddogaeth TEXTJOIN (Excel 2019 neu Excel 365) 1.14 Defnyddio Notepad (dim ond ar gyfer cyfuno colofnau) Estyniad: Cyfuno colofnau/rhesi yn un gell gyda toriad llinell fel amffinydd

1.2 Cyfuno colofnau/rhesi yn un gell heb fylchau 1.21 Defnyddio swyddogaeth TEXTJOIN (Excel 2019 neu Excel 365) 1.22 Defnyddio symbol ampersand (&) 1.23 Ychwanegu ar ddiwedd celloedd trwy ddefnyddio cod VBA

1.3 Cyfuno colofnau/rhesi/celloedd yn un gell heb golli data

1.4 Cyfunwch ddwy golofn os yn wag 1.41 Defnyddio swyddogaeth IF 1.42 Defnyddio VBA

2. Cyfuno rhesi gyda'r un ID 2.1 Cyfuno rhesi gyda'r un ID a'u gwahanu â choma neu derfynwyr eraill 2.11 Defnyddio VBA 2.12 Defnyddio ffwythiant IF i ychwanegu colofnau cynorthwyydd 2.13 Defnyddio teclyn defnyddiol – Advanced Combine Rows

2.2 Cyfuno rhesi gyda'r un ID a gwneud rhai cyfrifiadau 2.21 Defnyddio nodwedd Atgyfnerthu 2.22 Defnyddio VBA 2.23 Defnyddio teclyn defnyddiol – Advanced Combine Rows

2.3 Cyfuno rhesi cyfagos gyda'r un gwerth 2.31 Defnyddio VBA 2.32 Defnyddio teclyn defnyddiol – Cyfuno Un Celloedd

3. Cyfuno Celloedd 3.1. Cyfuno rhesi a cholofnau lluosog yn un gell 3.11 Defnyddio symbol ampersand (&) 3.12 Defnyddio swyddogaeth CONCATENATE (Excel 2016 neu fersiynau cynharach) 3. 13 Defnyddio swyddogaeth CONCAT neu swyddogaeth TEXTJOIN (Excel 2019 neu Excel 365) 3.14 Defnyddio Cyfuno colofnau/rhesi/celloedd yn un gell heb golli data

3.2. Cyfuno celloedd yn un golofn/rhes sengl 3.21 Enwch yr amrediad a defnyddiwch ffwythiant MYNEGAI (dim ond ar gyfer un golofn) 3.22 VBA (dim ond ar gyfer colofn sengl) 3.23 Defnyddio teclyn defnyddiol – Transform Range

3.3 Pentyrru colofnau yn un golofn heb ddyblygu 3.31 Copïwch a gludwch a dileu copïau dyblyg 3.32 Defnyddio VBA

3.4. Cyfuno celloedd a pharhau i fformatio 3.41 swyddogaeth Imbed TESTUN yn y fformiwla 3.42 Defnyddio Microsoft Word 3.43 Defnyddio teclyn defnyddiol – Cyfuno heb golli data

3.5 Cyfuno celloedd i wneud dyddiad 3.51 Defnyddio swyddogaeth DATE

 

Yn y tiwtorial hwn, rwy'n creu rhai enghreifftiau i egluro'r dulliau, gallwch chi newid y cyfeiriadau sydd eu hangen arnoch pan fyddwch chi'n defnyddio cod neu fformiwlâu VBA isod, neu gallwch chi lawrlwytho'r samplau ar gyfer rhoi cynnig ar ddulliau yn uniongyrchol.

Cliciwch i lawrlwytho'r ffeil sampl

---

1 Cyfuno colofnau/rhesi yn un gell

Cyfuno colofnau neu resi yn un gell a gwahanu'r canlyniad gan atalnod, gofod neu amffinyddion eraill fel y sgrin isod a ddangosir yn cael ei ddefnyddio fwyaf yn Excel.

Cyfuno colofnau yn un gell

Cyfuno rhesi yn un gell

1.11 Defnyddio symbol ampersand (&)

Yn Excel, mae'r symbol ampersand yn cael ei ddefnyddio fel arfer i ymuno â thestunau.

Enghraifft: Cyfunwch enw cyntaf (colofn A) ac enw olaf (colofn B) i enw llawn

Dewiswch gell lle rydych chi am osod y canlyniad cyfunol, yna teipiwch fformiwla fel hyn:

=A2&" "&B2

 Yn y fformiwla, a ddefnyddir i uno'r testunau, A2 a B2 yw'r ddau destun sydd angen eu cyfuno, " " yw'r amffinydd ( gofod ) sy'n gwahanu'r ddau destun yn y gell canlyniad, os ydych am ddefnyddio coma fel y amffinydd, teipiwch atalnod gyda dyfyniadau dwbl ",".

Pwyswch Rhowch allweddol i gael y canlyniad cyfunol, yna llusgwch yr handlen auto-lenwi i lawr i gael y canlyniadau cyfunol.

Enghraifft: Cyfunwch Rhif (rhes 15) ac enw (rhes 16) i un gell

Os ydych chi am gyfuno rhesi yn un gell, newidiwch y cyfeiriadau cell a'r gwahanydd yn y fformiwla yn ôl yr angen, a llusgwch yr handlen llenwi auto i'r dde i gael y canlyniadau cyfunol.

1.12 Defnyddio swyddogaeth CONCATENATE (Excel 2016 neu fersiynau cynharach)

Os ydych chi'n defnyddio Excel 2016 neu fersiynau cynharach, gall y swyddogaeth CONCATENATE eich helpu chi.

Cystrawen am CONCATENATE

CONCATENATE (text1,[text2],…)

I gael rhagor o fanylion am y swyddogaeth CONCATENATE, ewch i: PRYDER.

Enghraifft: Cyfunwch enwau (colofn F) a chyfeiriad (colofn G) yn un golofn

Dewiswch gell lle rydych chi am osod y canlyniad cyfunol, yna teipiwch fformiwla fel hyn:

=CONCATENATE(F2,",",G2)

 Yn y fformiwla, F2 a G2 yw'r ddau destun y mae angen eu cyfuno, "," yw'r amffinydd (coma) sy'n gwahanu'r ddau destun yn y gell canlyniad, os ydych chi am ddefnyddio gofod fel amffinydd, teipiwch le wedi'i amgáu gyda dyfyniadau dwbl " " .

Pwyswch Rhowch allweddol i gael y canlyniad cyfunol, yna llusgwch yr handlen auto-lenwi i lawr i gael y canlyniadau cyfunol.

Ar gyfer cyfuno rhesi, newidiwch y cyfeiriadau cell a'r amffinydd yn ôl yr angen, a llusgwch yr handlen llenwi awtomatig i'r dde.

1.13 Defnyddio swyddogaeth CONCAT neu swyddogaeth TEXTJOIN (Excel 2019 neu Excel 365)

Os ydych chi'n defnyddio Excel 2019 neu Excel 365, efallai mai swyddogaeth CONCAT a swyddogaeth TEXTJOIN yw'r dewis gorau.

Cystrawen am CONCAT

CONCAT (text1,[text2],…)

I gael rhagor o fanylion am swyddogaeth CONCAT, ewch i: CONCAT.

Mae'r defnydd o swyddogaeth CONCAT yr un peth â swyddogaeth CONCATENATE, i gyfuno enw cyntaf ac enw olaf mewn dwy golofn ar wahân yn un golofn, defnyddir y fformiwla fel hyn:

=CONCAT(A21," ",B21)

 Yn y fformiwla, A21 a B21 yw'r ddau destun sydd angen eu cyfuno, " " yw'r amffinydd (gofod) sy'n gwahanu'r ddau destun yn y gell canlyniad, os ydych am ddefnyddio amffinyddion eraill, teipiwch y amffinydd wedi ei amgáu gyda dwbl dyfyniadau "".

Pwyswch Enter i gael y canlyniad cyfunol, yna llusgwch yr handlen llenwi awtomatig i lawr i gael y canlyniadau cyfunol.

Yn wahanol i gyfuno colofnau, wrth gyfuno rhesi, ar ôl mynd i mewn i'r fformiwla gyntaf, mae angen i chi lusgo'r handlen llenwi auto i'r dde nes bod yr holl ganlyniadau cyfunol wedi cyrraedd.

Cystrawen am TEXTJOINT

TEXTJOIN (delimiter, ignore_empty, text1, [text2], ...)

I gael rhagor o fanylion am swyddogaeth TEXTJOIN, ewch i: TEXTJOIN.

I gyfuno colofnau neu resi trwy ddefnyddio TEXTJOIN:

=TEXTJOIN(",", TRUE,E21:G21))

  Yn y fformiwla, mae E21:G21 yn amrediad di-dor y mae angen ei gyfuno. " " yw'r amffinydd (gofod) sy'n gwahanu'r ddau destun yn y gell canlyniad, os ydych am ddefnyddio amffinyddion eraill, teipiwch y amffinydd sydd wedi'i amgáu gyda " " dyfyniadau dwbl. Mae testun rhesymegol “TRUE” yn nodi anwybyddu celloedd gwag wrth gyfuno, os ydych chi am gyfuno â bylchau, disodli TRUE gyda GAU.

Pwyswch Enter i gael y canlyniad cyfunol, yna llusgwch yr handlen llenwi awtomatig i lawr i gael y canlyniadau cyfunol.

Anwybyddu bylchau

Cynhwyswch fylchau

1.14 Defnyddio Notepad (dim ond ar gyfer cyfuno colofnau)

1. Gall defnyddio Notepad hefyd gyflawni cyfuno colofnau (dim effaith ar gyfuno rhesi).

Dewiswch yr ystod rydych chi am gyfuno colofnau yn un, a gwasgwch Ctrl + C allweddi i gopïo'r ystod.

2. Agor a Notepad, a'r wasg Ctrl + V i gludo'r ystod a gopïwyd.

3. Dewiswch dab rhwng dau destun yn y Notepad a gwasgwch Ctrl + H i alluogi Disodli nodwedd, mae symbol tab wedi'i osod i mewn Dewch o hyd i beth blwch testun.

4. Yn y Amnewid gyda blwch testun, teipiwch y amffinydd rydych chi am wahanu'r testunau cyfun, ac yna cliciwch Amnewid All. Yna cau'r Disodli deialog.

5. Nawr dewiswch y testunau yn Notepad, a gwasgwch Ctrl + C i'w copïo, ac ewch i Excel, dewiswch gell a gwasgwch Ctrl + V i gludo'r canlyniadau cyfunol.

Estyniad: Cyfuno colofnau/rhesi yn un gell gyda toriad llinell fel amffinydd

Os ydych chi am gyfuno colofnau neu resi yn un gell gyda thoriad llinell fel y dangosir y sgrinlun isod:

Yn gyntaf, dylech sylweddoli hynny yn Excel, CHAR() gellir defnyddio swyddogaeth i nodi nodau sy'n anodd eu nodi mewn fformiwla, megis CHAR (10) yn dychwelyd toriad llinell.

Yna defnyddiwch y CHAR(10) yn y fformiwlâu sy'n rhestru uchod i gyfuno colofnau neu resi gyda toriad llinell fel amffinydd:

Ampersand symbol:

=A49&CHAR(10)&B49

Swyddogaeth CONCATENATE:

=CONCATENATE(A49,CHAR(10),B49)

CONCAT swyddogaeth

=CONCAT(A49,CHAR(10),B49)

Swyddogaeth TEXTJOIN

=TEXTJOIN(CHAR(10),TRUE,A49:B49)

Ar ôl mynd i mewn i fformiwla uchod, dewiswch y canlyniadau, a chliciwch Hafan > Testun Lapio.

Nawr, mae'r colofnau'n cael eu cyfuno'n un a'u gwahanu gan doriad llinell.

Os ydych chi eisiau cyfuno rhesi mewn un golofn i gell sengl yn unig, gall y nodwedd Justify yn Excel eich helpu chi. Dewiswch y golofn gyda rhesi lluosog, a chliciwch Hafan > Llenwch > cyfiawnhau, yna bydd y rhesi yn cael eu cyfuno i mewn i gell uchaf yr ystod gyda gofod fel gwahanydd.

---

Yn y rhan hon, mae'r tiwtorial yn cyflwyno'r dulliau i gyfuno colofnau neu resi yn un gell a hepgor celloedd gwag fel y dangosir y sgrinlun isod:

1.21 Defnyddio swyddogaeth TEXTJOIN (Excel 2019 neu Excel 365)

Os ydych chi'n defnyddio Excel 2019 neu Excel 365, yn ffodus, gall y swyddogaeth newydd TEXTJOIN ddatrys y swydd hon yn hawdd.

Cystrawen am CONCATENATE

TEXTJOIN (delimiter, ignore_empty, text1, [text2], ...)

I gael rhagor o fanylion am swyddogaeth TEXTJOIN, ewch i: TEXTJOIN.

Enghraifft: Cyfunwch enw (colofn A) a Rhif (colofn B) a parth (colofn C) yn un gell i gynhyrchu cyfeiriad e-bost, efallai y bydd rhai Rhif yn wag.

Dewiswch gell a oedd yn arfer gosod y canlyniad cyfunol, teipiwch y fformiwla fel hyn:

=TEXTJOIN("", GWIR,A2:C2)

Yn y fformiwla, A2:C2 yw'r ystod sy'n cynnwys testunau yr oedd angen eu cyfuno, " "yw'r amffinydd (dim) sy'n gwahanu'r ddau destun yn y gell canlyniad, os ydych am ddefnyddio amffinydd i wahanu'r testunau, dim ond teipiwch y amffinydd sydd wedi'i amgáu gyda dyfyniadau dwbl "", megis ",". Mae testun rhesymegol “TRUE” yn nodi anwybyddu celloedd gwag wrth gyfuno, os ydych chi am gyfuno â bylchau, disodli TRUE gyda GAU.

Pwyswch Rhowch allweddol i gael y canlyniad cyntaf, a llusgwch yr handlen auto-lenwi i lawr neu i'r dde fel y mae angen i chi gynhyrchu pob canlyniad.

1.22 Defnyddio symbol ampersand (&)

Os ydych chi yn Excel 2016 neu fersiynau Excel cynharach, defnyddiwch y symbol ampersand ac i gysylltu'r testunau fesul un a hepgor bylchau â llaw.

Dewiswch gell lle rydych chi am osod y canlyniad cyfunol, yna teipiwch fformiwla fel hyn:

=A10&C10

Yn y fformiwla, ac a ddefnyddir i uno'r testunau, A10 a C10 yw'r ddau destun yr oedd angen eu cyfuno, os ydych am ddefnyddio atalnod fel amffinydd, teipiwch atalnod wedi'i amgáu gyda dyfyniadau dwbl fel "," a defnyddiwch & i gysylltu rhwng dau destun.

Pwyswch Rhowch allweddol i gael y canlyniad cyfunol. Yna newidiwch gyfeiriadau'r fformiwla i gael y canlyniad cyfunol nesaf.

1.23 Defnyddio swyddogaeth Ddiffiniedig

Ar gyfer Excel 2016 a defnyddwyr fersiynau Excel cynharach, os oes angen cyfuno colofnau neu resi lluosog wrth hepgor bylchau, gallwch ddefnyddio VBA i greu swyddogaeth Ddiffiniedig i ddatrys y swydd hon yn gyflym.

1. Gwasgwch Alt + F11 allweddi i alluogi'r Microsoft Visual Basic ar gyfer Ceisiadau ffenestr.

2. Cliciwch Mewnosod > Modiwlau i fewnosod modiwl newydd.

3. Copïwch a gludwch y cod isod i'r modiwl newydd a'i gadw.

VBA: Cyfuno celloedd sgip celloedd gwag

Function Concatenatecells(ConcatArea As Range) As String
'updateby Extendoffice
  For Each n In ConcatArea: nn = IIf(n = "", nn & "", nn & n & "_"): Next
  Concatenatecells = Left(nn, Len(nn) - 1)
End Function

4. Ewch yn ôl i'r daflen waith, a dewiswch gell sy'n gosod y canlyniad cyfunol, teipiwch y fformiwla

=Concatenatecells(A15:C15)

Yn y fformiwla, A15:C15 yw'r amrediad sy'n cynnwys testunau yr oedd angen eu cyfuno. Yn y cod VBA, mae "_" yn nodi'r amffinydd a ddefnyddiodd i wahanu'r testunau yn y canlyniad cyfunol, gallwch chi newid y amffinydd yn ôl yr angen.

---

Os ydych chi wedi gosod Kutools ar gyfer Excel yn Excel, y Cyfuno Rhesi, Colofnau neu Gelloedd heb Golli Data nodwedd yn dipyn o help mewn mathau o gyfuno swyddi.

1. Dewiswch y celloedd yr ydych am eu cyfuno a'r celloedd yr ydych am osod y canlyniadau cyfunol.

2. Cliciwch Kutools > Uno a Hollti > Cyfuno Rhesi, Colofnau neu Gelloedd heb Golli Data.

3. Yn yr ymgom popio, nodwch yr opsiynau fel isod:

1) Nodwch i gyfuno colofnau, neu gyfuno rhesi, neu gyfuno pob cell yn un.

Cyfuno colofnau ee.	Cyfuno rhesi ee.	Cyfuno i gell sengl ee.

2) Nodwch y gwahanydd ar gyfer y testunau yn y canlyniad cyfunol.

3) Nodwch leoliad y canlyniad cyfun (anabl wrth ddewis yr opsiwn Combine into single cell)

Wrth ddewis yr opsiwn Cyfuno colofnau, gallwch chi nodi i osod y canlyniad yng nghell chwith yr ystod a ddewiswyd, neu gell dde yr ystod a ddewiswyd.

Cell chwith ee.	cell dde eg.

Wrth ddewis y Cyfuno rhesi opsiwn, gallwch chi nodi i osod y canlyniad yng nghell uchaf yr ystod a ddewiswyd, neu gell waelod yr ystod a ddewiswyd.

cell uchaf eg.	Cell waelod eg.

4) Nodwch y llawdriniaeth ynghylch canlyniadau cyfunol.

4. Cliciwch Ok or Gwneud cais i orffen y cyfuniad.

Cadwch gynnwys celloedd cyfun

Dileu cynnwys celloedd cyfun

; Cyfuno'r celloedd cyfun

Am ragor o fanylion am y nodwedd hon, ewch i Cyfuno Colofnau, Rhesi, Celloedd heb Golli Data.

Am fwy o fanylion am Kutools ar gyfer Excel, ewch i Kutools ar gyfer Excel.

Am dreial am ddim 30 diwrnod o Kutools ar gyfer Excel, os gwelwch yn dda download mae'n awr.

---

Weithiau, efallai y byddwch am gyfuno dwy golofn os yw un o'r colofnau'n cynnwys celloedd gwag. Gan dybio bod dwy golofn, mae colofn A yn cynnwys Enwau Defnyddiwr a rhai celloedd gwag, a cholofn B yn cynnwys Enwau, nawr llenwch y celloedd gwag yng ngholofn A gyda'r cynnwys cyfatebol yng ngholofn B wrth gyfuno'r ddwy golofn fel y sgrinlun a ddangosir isod:

1.41 Defnyddio swyddogaeth IF

Defnyddir y swyddogaeth IF i brofi am gyflwr penodol. Yma gallwch ddefnyddio'r swyddogaeth IF i brofi a yw'r gell yn wag, yna llenwch y bylchau gyda'r cynnwys mewn colofn arall.

Cystrawen am swyddogaeth IF

IF (logical_test, [value_if_true], [value_if_false])

Am ragor o fanylion am swyddogaeth IF, ewch i: IF

Dewiswch gell uchaf y golofn rydych chi am osod y canlyniadau cyfunol, a chopïwch neu nodwch isod y fformiwla:

=IF(A2="", B2,A2)

Yna, pwyswch Rhowch allweddol i gael y canlyniad cyntaf, a llusgwch yr handlen auto-lenwi i lawr i gael yr holl ganlyniadau.

Nawr dim ond y celloedd gwag yng ngholofn A sydd wedi’u llenwi â’r cynnwys yng ngholofn B.

1.42 Defnyddio VBA

Dyma god VBA hefyd yn gallu trin y swydd hon.

1. Gwasgwch Alt + F11 allweddi i alluogi'r Microsoft Visual Basic ar gyfer Ceisiadau ffenestr, yna cliciwch Mewnosod > Modiwlau i greu modiwl gwag newydd.

2. Copïwch a gludwch y cod isod i'r modiwl newydd.

VBA: Cyfunwch ddwy golofn os yn wag

Sub MergebyBlank()
'UpdatebyExtendoffice20220506
Dim xRg1, xRg2, xRgUser As Range
Dim xRg As Range
Dim xWsh As Worksheet
Dim xCount, xFNum  As Integer
Set xRg1 = Range("A:A")
Set xRg2 = Range("B:B")
Set xWsh = xRg1.Worksheet
Set xRgUser = xWsh.UsedRange
Set xRg1 = Intersect(xRgUser, xRg1)
Set xWsh = xRg2.Worksheet
Set xRgUser = xWsh.UsedRange
Set xRg2 = Intersect(xRgUser, xRg2)
xCount = xRg1.Count
If (xCount > xRg2.Count) Then
    xCount = xRg2.Count
End If
For xFNum = 1 To xCount
    If (xRg1.Item(xFNum).Value = "") Then
        If (xRg2.Item(xFNum).Value <> "") Then
            xRg1.Item(xFNum).Value = xRg2.Item(xFNum).Value
        End If
    ElseIf (xRg2.Item(xFNum).Value = "") Then
            If (xRg1.Item(xFNum).Value <> "") Then
            xRg2.Item(xFNum).Value = xRg1.Item(xFNum).Value
        End If
    End If
Next
End Sub

 Yn y cod, A:A a B:B yw'r ddwy golofn a fydd yn cael eu huno, dim ond eu newid yn ôl yr angen.

3. Yna pwyswch F5 allwedd neu cliciwch Run   botwm, yna bydd y golofn A yn cael ei llenwi â gwerth yng ngholofn B os yw'r gwerth yn wag yng ngholofn A.

---

2 Cyfunwch resi gyda'r un ID

Gan dybio bod tabl gyda cholofnau lluosog, mae un golofn yn cynnwys gwerthoedd ID sydd ag eitemau dyblyg. Nawr mae'r tiwtorial yn darparu dulliau ar gyfer cyfuno rhesi'r tabl yn seiliedig ar yr un ID a gwneud rhai cyfrifiadau.

Yma yn y rhan hon, mae'n darparu'r dulliau ar gyfer cyfuno rhesi gyda'r un ID a'u gwahanu gan atalnodau fel y sgrinlun a ddangosir isod:

2.11 Defnyddio VBA

Yma yn darparu cod VBA a all drin y swydd hon

1. Gwasgwch Alt + F11 allweddi i alluogi'r Microsoft Visual Basic ar gyfer Ceisiadau ffenestr, yna cliciwch Mewnosod > Modiwlau i greu modiwl gwag newydd.

2. Copïwch a gludwch y cod isod i'r modiwl newydd.

VBA: Cyfuno rhesi gyda'r un ID

Sub Combine_Rows()
'UpdatebyExtendoffice20220506
Dim xRg As Range
Dim xRows As Long
Dim I As Long, J As Long, K As Long
On Error Resume Next
Set xRg = Application.InputBox("Select Range:", "Kutools For Excel", Selection.Address, , , , , 8)
Set xRg = Range(Intersect(xRg, ActiveSheet.UsedRange).Address)
If xRg Is Nothing Then Exit Sub
xRows = xRg.Rows.Count
For I = xRows To 2 Step -1
For J = 1 To I - 1
If xRg(I, 1).Value = xRg(J, 1).Value And J <> I Then
For K = 2 To xRg.Columns.Count
If xRg(J, K).Value <> "" Then
If xRg(I, K).Value = "" Then
xRg(I, K) = xRg(J, K).Text
Else
xRg(I, K) = xRg(I, K).Text & "," & xRg(J, K).Text 'here uses comma as separator, you can change it to others as you need
End If
End If
Next
xRg(J, 1).EntireRow.Delete
I = I - 1
J = J - 1
End If
Next
Next
ActiveSheet.UsedRange.Columns.AutoFit
End Sub

3. Yna pwyswch F5 allwedd neu cliciwch Run   botwm, yna mae deialog Kutools ar gyfer Excel yn popio allan i chi ddewis tabl y mae angen ei gyfuno'n rhesi gyda'r un ID.

4. Cliciwch OK. Nawr mae'r tabl a ddewiswyd wedi'i gyfuno'n rhesi yn seiliedig ar yr un ID.

2.12 Defnyddio ffwythiant IF i ychwanegu colofnau cynorthwyydd

Os mai dim ond dwy golofn sydd, a'ch bod am gyfuno'r rhesi gyda'r un ID, a gwerthoedd colofn arall wedi'u gwahanu gan goma fel y mae'r sgrinlun isod yn ei ddangos, gall y swyddogaeth IF wneud ffafr i chi.

1. Trefnwch yr ID o A i Z. Dewiswch y golofn ID, cliciwch Dyddiad > Trefnu A i Z..

2. Yna yn y Rhybudd Trefnu deialog, gwirio Expand yr opsiwn dewis, cliciwch Trefnu yn.

Nawr mae'r un IDs wedi'u didoli gyda'i gilydd.

3. Yn y golofn gyfagos, gan ddefnyddio'r swyddogaeth IF fel hyn:

=IF(A17=A18,C17&", "&B18,B18)

 Yn y fformiwla, A17 ac A18 yw'r ddwy gell gyfagos yn y golofn ID (A17 yw pennawd y golofn ID), B18 yw'r gell gyfatebol o gell A18. Mae " , " yn dynodi gwahanu'r gwerthoedd gyda choma. gallwch newid y cyfeiriadau a'r gwahanydd yn ôl yr angen.

4. Gwasgwch Rhowch allweddol i gael y canlyniad cyntaf, yna llusgwch yr handlen auto-lenwi i lawr i gael yr holl ganlyniadau.

5. Ewch i'r golofn gyfagos, teipiwch y fformiwla fel hyn:

=IF(A18<>A19,"Cyfuno","")

 Yn y fformiwla, A18 ac A19 yw'r ddwy gell gyfagos yn y golofn ID, os nad yw'r celloedd cyfagos yn gyfartal, bydd yn dychwelyd i "Menged", fel arall, bydd yn dychwelyd yn wag.

6. Gwasgwch Rhowch allweddol i gael y canlyniad cyntaf, yna llusgwch yr handlen auto-lenwi i lawr i gael yr holl ganlyniadau.

7. Dewiswch y golofn fformiwla olaf gan gynnwys pennawd, a chliciwch Dyddiad > Hidlo.

8. Cliciwch ar y Hidlo botwm a thic Wedi'i uno blwch ticio yn y gwymplen, cliciwch OK.

Nawr dim ond y rhesi cyfun sydd wedi'u hidlo allan, copïwch y data wedi'i hidlo a'u gludo mewn man arall.

Mwy o fanylion am swyddogaeth IF. ewch i: IF.

Os ydych chi wedi gosod Kutools ar gyfer Excel yn Excel, y Rhesi Cyfuno Uwch yn gallu gwneud y swydd hon yn hawdd.

1. Dewiswch y tabl yna cliciwch Kutools > Uno a Hollti > Rhesi Cyfuno Uwch.

2. Yn y Rhesi Cyfuno Uwch deialog, gwnewch fel y rhain:

1) Dewiswch y golofn ID, a gosodwch hi fel Allwedd Cynradd;

2) Dewiswch y golofn rydych chi am gyfuno'r gwerthoedd â gwahanydd, cliciwch Cyfunwch a dewis un gwahanydd.

3） cliciwch Ok.

Nawr mae'r rhesi wedi'u cyfuno gan yr un ID.

Bydd y nodwedd Cyfuno Rhesi Uwch yn torri'r data gwreiddiol, cadwch y data fel copi cyn ei ddefnyddio.

Am ragor o fanylion am y nodwedd hon, ewch i Rhesi Cyfuno Uwch.

Am fwy o fanylion am Kutools ar gyfer Excel, ewch i Kutools ar gyfer Excel.

Am dreial am ddim 30 diwrnod o Kutools ar gyfer Excel, os gwelwch yn dda download mae'n awr.

Os ydych chi am gyfuno rhesi gyda'r un ID ac yna adio'r gwerthoedd neu wneud cyfrifiadau eraill fel y dengys y sgrinlun isod, gall y dulliau isod eich helpu chi.

2.21 Defnyddio nodwedd Atgyfnerthu

Os mai dim ond dwy golofn sydd, mae un golofn yn cynnwys testunau (ID), ac mae un arall yn cynnwys gwerthoedd y mae angen eu cyfrifo, megis swm, nodwedd adeiledig Excel Cyfnerthu allwch chi o blaid.

1. Dewiswch gell lle rydych chi am osod y canlyniad cyfunol, yna cliciwch Dyddiad > Cyfnerthu.

2. Yn y Cyfnerthu deialog, gwnewch fel y rhain:

1) Dewiswch y Swyddogaethau yn ôl yr angen;

2) Cliciwch y saeth i ddewis y tabl;

3) Cliciwch Ychwanegu i ychwanegu'r ystod a ddewiswyd i'r Pob cyfeiriad rhestr;

4) Ticiwch y blychau ticio o Rhes uchaf ac Y golofn chwith;

5) Cliciwch OK.

Nawr mae'r tabl wedi'i grynhoi yn seiliedig ar yr un ID.

2.22 Defnyddio VBA

Dyma VBA sydd hefyd yn gallu cyfuno rhesi gyda'r un ID ac yna gwerthoedd swm.

1. Gwasgwch Alt + F11 allweddi i alluogi'r Microsoft Visual Basic ar gyfer Ceisiadau ffenestr, yna cliciwch Mewnosod > Modiwlau i greu modiwl gwag newydd.

2. Yn y modiwl newydd, copïwch a gludwch y cod VBA isod i mewn iddo.

VBA: Cyfuno rhesi dyblyg a swm

Sub CombineRows()
'Updateby Extendoffice
Dim WorkRng As Range
Dim Dic As Variant
Dim arr As Variant
On Error Resume Next
xTitleId = "KutoolsforExcel"
Set WorkRng = Application.Selection
Set WorkRng = Application.InputBox("Range", xTitleId, WorkRng.Address, Type:=8)
Set Dic = CreateObject("Scripting.Dictionary")
arr = WorkRng.Value
For i = 1 To UBound(arr, 1)
    Dic(arr(i, 1)) = Dic(arr(i, 1)) + arr(i, 2)
Next
Application.ScreenUpdating = False
WorkRng.ClearContents
WorkRng.Range("A1").Resize(Dic.Count, 1) = Application.WorksheetFunction.Transpose(Dic.keys)
WorkRng.Range("B1").Resize(Dic.Count, 1) = Application.WorksheetFunction.Transpose(Dic.items)
Application.ScreenUpdating = True
End Sub

3. Yna pwyswch F5 allwedd neu cliciwch Run   botwm, yna mae deialog yn ymddangos ar gyfer dewis y tabl rydych chi'n ei ddefnyddio, ac yna cliciwch OK.

Nawr mae'r ystod a ddewiswyd wedi'i chyfuno â'r un gwerthoedd a'i chrynhoi.

  Bydd y VBA yn torri'r data gwreiddiol, cadwch y data fel copi cyn defnyddio VBA.

2.23 Defnyddio teclyn defnyddiol – Advanced Combine Rows

Os oes mwy na dwy golofn yn y tabl yr ydych am eu cyfuno a gwneud cyfrifiadau, er enghraifft, mae tair colofn, mae'r un gyntaf yn cynnwys enwau cynhyrchion dyblyg yr oedd angen eu cyfuno, mae'r ail yn cynnwys enwau siopau yr oedd angen eu cyfuno. cael ei gyfuno a'i wahanu gan goma, mae'r golofn olaf yn cynnwys rhifau yr oedd angen eu swm yn seiliedig ar y rhesi dyblyg yn y golofn gyntaf, fel y sgrin isod a ddangosir, Kutools ar gyfer Excel's Gall Rhesi Cyfuno Uwch eich helpu chi.

1. Dewiswch y tabl yna cliciwch Kutools > Uno a Hollti > Rhesi Cyfuno Uwch.

2. Yn y Rhesi Cyfuno Uwch deialog, gwnewch fel y rhain:

1) Dewiswch y golofn ID, a gosodwch hi fel Allwedd Cynradd;

2) Dewiswch y golofn rydych chi am gyfuno'r gwerthoedd â gwahanydd, cliciwch Cyfunwch a dewis un gwahanydd.

3) Dewiswch y golofn rydych chi am wneud y cyfrifiad, cliciwch Cyfrifwch a dewis un cyfrifiad.

4） cliciwch Ok.

Nawr mae'r rhesi wedi'u cyfuno â'r un rhesi a'u cyfrifo.

 Bydd y nodwedd Cyfuno Rhesi Uwch yn torri'r data gwreiddiol, cadwch y data fel copi cyn ei ddefnyddio.

Am ragor o fanylion am y nodwedd hon, ewch i Rhesi Cyfuno Uwch.

Am fwy o fanylion am Kutools ar gyfer Excel, ewch i Kutools ar gyfer Excel.

Am dreial am ddim 30 diwrnod o Kutools ar gyfer Excel, os gwelwch yn dda download mae'n awr.

Os oes tabl gyda cholofnau lluosog, mae un golofn yn cynnwys rhai gwerthoedd dyblyg, nawr y dasg yw cyfuno'r rhesi cyfagos yn y golofn hon gyda'r un gwerthoedd ag y mae'r sgrinlun isod yn ei ddangos. Sut allwch chi ei ddatrys?

2.31 Defnyddio VBA

Yn Excel, nid oes unrhyw nodwedd adeiledig a all ddatrys y swydd hon yn uniongyrchol, ond yma mae'n darparu VBA a all ei drin.

1. Gwasgwch Alt + F11 allweddi i alluogi'r Microsoft Visual Basic ar gyfer Ceisiadau ffenestr, yna cliciwch Mewnosod > Modiwlau i greu modiwl gwag newydd.

2. Yn y modiwl newydd, copïwch a gludwch y cod VBA isod i mewn iddo.

VBA: Cyfuno rhesi cyfagos gyda'r un gwerth

Sub MergeSameCell()
'Updateby Extendoffice
Dim Rng As Range, xCell As Range
Dim xRows As Integer
xTitleId = "KutoolsforExcel"
Set WorkRng = Application.Selection
Set WorkRng = Application.InputBox("Range", xTitleId, WorkRng.Address, Type:=8)
Application.ScreenUpdating = False
Application.DisplayAlerts = False
xRows = WorkRng.Rows.Count
For Each Rng In WorkRng.Columns
    For i = 1 To xRows - 1
        For j = i + 1 To xRows
            If Rng.Cells(i, 1).Value <> Rng.Cells(j, 1).Value Then
                Exit For
            End If
        Next
        WorkRng.Parent.Range(Rng.Cells(i, 1), Rng.Cells(j - 1, 1)).Merge
        i = j - 1
    Next
Next
Application.DisplayAlerts = True
Application.ScreenUpdating = True
End Sub

3. Yna pwyswch F5 allwedd neu cliciwch Run   botwm i alluogi'r VBA hwn, yna mae deialog yn ymddangos ar gyfer dewis y tabl rydych chi'n ei ddefnyddio, ac yna cliciwch OK.

Nawr mae'r rhesi cyfagos gyda'r un gwerthoedd yn y golofn gyntaf yn cael eu cyfuno yn yr ystod a ddewiswyd.

  Bydd y VBA yn torri'r data gwreiddiol, cadwch y data fel copi cyn defnyddio VBA. A bydd y VBA hwn yn uno'r un gwerthoedd yng ngholofn gyntaf y tabl a ddewiswyd.

2.32 Defnyddio teclyn defnyddiol – Cyfuno Un Celloedd

Os oes gennych Kutools ar gyfer Excel gosod yn Excel, y Uno'r Un Celloedd nodwedd o Kutools ar gyfer Excel gall ddatrys y swydd hon mewn un cam.

Dewiswch y golofn rydych chi am gyfuno'r un gwerthoedd, ac yna cliciwch Kutools > Uno a Hollti > Uno'r Un Celloedd.

Nawr mae'r celloedd cyfagos gyda'r un gwerthoedd wedi'u huno.

I Os ydych am ddad-uno'r celloedd unedig a llenwi'r gwerthoedd yn ôl, gallwch gymhwyso'r Unmerge Celloedd & Llenwi Gwerthoedd nodwedd.

Am ragor o fanylion am y nodwedd hon, ewch i Uno'r Un Celloedd.

Am ragor o fanylion am y nodwedd hon, ewch i Cell Unmerge.

Am fwy o fanylion am Kutools ar gyfer Excel, ewch i Kutools ar gyfer Excel.

Ar gyfer treial 30- diwrnod am ddim o Kutools ar gyfer Excel, os gwelwch yn dda download yn awr.

---

3 Cyfuno Celloedd

Ar gyfer cyfuno ystod gyda rhesi a cholofnau lluosog yn un gell, dyma ddarparu pedwar dull.

Enghraifft: Cyfuno ystod A1:C3

3.11 Defnyddio symbol ampersand (&)

Yn Excel, mae'r symbol ampersand yn cael ei ddefnyddio fel arfer i ymuno â thestunau.

Dewiswch gell rydych chi am osod y canlyniad cyfunol, yna teipiwch fformiwla fel hyn:

=A1&", "&B1&", "&C1&", "&A2&", "&B2&", "&C2&", "&A3&", "&B3&", "&C3

 Yn y fformiwla, & a ddefnyddir i ymuno â'r testunau, " , " yw'r amffinydd (coma + gofod) sy'n gwahanu'r ddau destun yn y gell canlyniad, os ydych am ddefnyddio amffinyddion eraill, teipiwch wahanydd wedi'i amgáu gyda dyfyniadau dwbl.

Pwyswch Rhowch allweddol i gael y canlyniad cyfunol.

3.12 Defnyddio swyddogaeth CONCATENATE (Excel 2016 neu fersiynau cynharach)

Os ydych chi'n defnyddio Excel 2016 neu fersiynau cynharach, gall y swyddogaeth CONCATENATE eich helpu chi.

Cystrawen am CONCATENATE

CONCATENATE (text1,[text2],…)

I gael rhagor o fanylion am y swyddogaeth CONCATENATE, ewch i: PRYDER

Dewiswch gell rydych chi am osod y canlyniad cyfunol, yna teipiwch fformiwla fel hyn:

=CONCATENATE(A1,", ",B1,", ",C1,", ",A2,", ",B2,", ",C2,", ",A3,",",B3,"," , C3)

 Yn y fformiwla, A1, B1 ..., C3 yw'r testunau rydych chi am eu cyfuno. " , " yw'r amffinydd (comma + gofod) sy'n gwahanu'r ddau destun yn y gell canlyniad, os ydych am ddefnyddio amffinyddion eraill, teipiwch wahanydd wedi'i amgáu gyda dyfyniadau dwbl.

Yna, pwyswch Rhowch allweddol i gael y canlyniad cyfunol.

3. 13 Defnyddio swyddogaeth CONCAT neu swyddogaeth TEXTJOIN (Excel 2019 neu Excel 365)

Os ydych chi'n defnyddio Excel 2019 neu Excel 365, efallai mai swyddogaeth CONCAT a swyddogaeth TEXTJOIN yw'r dewis gorau.

Cystrawen am CONCAT

CONCAT (text1,[text2],…)

I gael rhagor o fanylion am swyddogaeth CONCAT, ewch i: CONCAT.

Mae'r defnydd o swyddogaeth CONCAT yr un peth â swyddogaeth CONCATENATE, i gyfuno enw cyntaf ac enw olaf sydd mewn dwy golofn ar wahân yn un golofn, mae'r fformiwla yn cael ei ddefnyddio fel hyn:

=CONCAT(A1,", ",B1,", ",C1,", ",A2,", ",B2,", ",C2,", ",A3,",",B3,"," , C3)

 Yn y fformiwla, A1, B1 ..., C3 yw'r testunau rydych chi am eu cyfuno. " , " yw'r amffinydd (comma + gofod) sy'n gwahanu'r ddau destun yn y gell canlyniad, os ydych am ddefnyddio amffinyddion eraill, teipiwch wahanydd wedi'i amgáu gyda dyfyniadau dwbl.

Yna, pwyswch Rhowch allweddol i gael y canlyniad cyfunol.

Cystrawen am TEXTJOIN

TEXTJOIN (delimiter, ignore_empty, text1, [text2], ...)

I gael rhagor o fanylion am swyddogaeth TEXTJOIN, ewch i: TEXTJOIN.

I gyfuno colofnau neu resi trwy ddefnyddio TEXTJOIN:

=TEXTJOIN(", ",TRUE,A1:C3)

 Yn y fformiwla, mae A1:C3 yn amrediad di-dor y mae angen ei gyfuno. " , " yw'r amffinydd (comma + gofod) sy'n gwahanu'r ddau destun yn y gell canlyniad, os ydych am ddefnyddio amffinyddion eraill, teipiwch y amffinydd sydd wedi'i amgáu gyda dyfyniadau dwbl " ". Mae testun rhesymegol “TRUE” yn nodi anwybyddu celloedd gwag wrth gyfuno, os ydych chi am gyfuno â bylchau, disodli TRUE gyda GAU.

Yna, pwyswch Rhowch allweddol i gael y canlyniad cyfunol.

 Os ydych chi am ddefnyddio toriad llinell fel amffinydd, gan ddefnyddio CHAR(10) yn y fformiwla, megis =TEXTJOIN(CHAR(10),TRUE,A1:C3), yna fformatiwch y gell canlyniad fel Wrap Text.

3.14 Defnyddio Cyfuno colofnau/rhesi/celloedd yn un gell heb golli data

Os oes gennych chi Kutools ar gyfer Excel wedi'i osod yn Excel, mae'r Cyfuno Rhesi, Colofnau neu Gelloedd heb Golli Data Gall nodwedd drin y swydd hon yn gyflym.

1. Dewiswch yr ystod o gelloedd yr ydych am eu cyfuno i mewn i un gell, yna cliciwch Kutools > Uno a Hollti > Cyfuno Rhesi, Colofnau neu Gelloedd heb Golli Data.

2. Yn y dialog popping, gwiriwch Cyfunwch i mewn i un gell a nodwch wahanydd yn ôl yr angen, yna cliciwch Ok.

Nawr mae'r celloedd wedi'u huno i mewn i un gell gyda amffinydd penodol. Os yw cynnwys y gell yn ormod i'w ddangos yn y gell unedig, gallwch glicio Testun Lapio O dan y Hafan tab i ddangos iddynt.

Am ragor o fanylion am y nodwedd hon, ewch i Cyfuno Colofnau, Rhesi, Celloedd heb Golli Data.

Am fwy o fanylion am Kutools ar gyfer Excel, ewch i Kutools ar gyfer Excel.

Am dreial am ddim 30 diwrnod o Kutools ar gyfer Excel, os gwelwch yn dda download mae'n awr.

Trawsosod celloedd yn un golofn sengl

Trawsosod celloedd yn un rhes sengl

 

3.21 Enwch yr amrediad a defnyddiwch ffwythiant MYNEGAI (dim ond ar gyfer un golofn)

Os ydych chi am drawsosod yr ystod o gelloedd yn un golofn, gallwch chi enwi'r amrediad ac yna defnyddio swyddogaeth MYNEGAI.

1. Dewiswch yr ystod o gelloedd, de-gliciwch i alluogi'r ddewislen cyd-destun, a chliciwch Diffinio Enw.

2. Yn y popping Enw Newydd ymgom, teipiwch enw yn y Enw blwch testun, cliciwch OK.

3. Ar ôl enwi'r amrediad, yna dewiswch gell sy'n gosod y data trawsosodedig, defnyddiwch y swyddogaeth MYNEGAI fel hyn:

=INDEX(MyData,1+INT((ROW(A1)-1)/COLUMNS(MyData)),MOD(ROW(A1)-1+COLUMNS(MyData),COLUMNS(MyData))+1)

Am fwy o fanylion am swyddogaeth MYNEGAI, ewch i yma.

4. Gwasgwch Rhowch allwedd ac yna llusgwch yr handlen llenwi auto i lawr i lenwi'r fformiwla hon nes bod #REF! gwerth gwall yn ymddangos.

5. Tynnwch y gwerth gwall, yna mae'r ystod o gelloedd wedi'i gyfuno'n un golofn.

3.22 VBA (dim ond ar gyfer colofn sengl)

Ar gyfer cyfuno celloedd yn un golofn sengl, dyma VBA sydd hefyd yn gallu gweithio.

1. Gwasgwch Alt + F11 allweddi i alluogi'r Microsoft Visual Basic ar gyfer Ceisiadau ffenestr, yna cliciwch Mewnosod > Modiwlau i greu modiwl gwag newydd.

2. Copïwch a gludwch y cod VBA isod i'r modiwl gwag.

VBA: Trosi ystod i golofn

Sub ConvertRangeToColumn()
'UpdatebyExtendoffice
Dim Range1 As Range, Range2 As Range, Rng As Range
Dim rowIndex As Integer
xTitleId = "KutoolsforExcel"
Set Range1 = Application.Selection
Set Range1 = Application.InputBox("Source Ranges:", xTitleId, Range1.Address, Type:=8)
Set Range2 = Application.InputBox("Convert to (single cell):", xTitleId, Type:=8)
rowIndex = 0
Application.ScreenUpdating = False
For Each Rng In Range1.Rows
    Rng.Copy
    Range2.Offset(rowIndex, 0).PasteSpecial Paste:=xlPasteAll, Transpose:=True
    rowIndex = rowIndex + Rng.Columns.Count
Next
Application.CutCopyMode = False
Application.ScreenUpdating = True
End Sub

3. Yna pwyswch F5 allwedd neu cliciwch Run   botwm, mae deialog yn ymddangos i ddewis ystod o gelloedd, cliciwch OK.

4. Mae deialog arall pops allan ar gyfer dewis cell i osod y canlyniad, cliciwch OK.

3.23 Defnyddio teclyn defnyddiol – Transform Range

Os ydych chi am gyfuno celloedd yn un rhes, nid oes unrhyw nodwedd adeiledig yn Excel i'w gefnogi. Fodd bynnag, os oes gennych chi Kutools ar gyfer Excel gosod, ei Trawsnewid Ystod nodwedd yn cefnogi trosi ystod i golofn sengl neu res, hefyd yn cefnogi trosi rhes neu golofn i ystod.

1. dewiswch yr ystod o gelloedd, a chliciwch Kutools > Ystod > Trawsnewid Ystod.

2. Yn y Trawsnewid Ystod deialog, gwirio Ystod i golofn sengl or Ystod i res sengl opsiwn yn ôl yr angen. Cliciwch OK.

3. Mae deialog pops allan ar gyfer dewis cell i osod y canlyniad, cliciwch OK.

Nawr mae'r ystod o gelloedd wedi'i drawsnewid i res neu golofn.

Am ragor o fanylion am y nodwedd hon, ewch i Trawsnewid Ystod.

Am fwy o fanylion am Kutools ar gyfer Excel, ewch i Kutools ar gyfer Excel.

Am dreial am ddim 30 diwrnod o Kutools ar gyfer Excel, os gwelwch yn dda download mae'n awr.

Os oes rhai dyblygiadau mewn tabl gyda cholofnau lluosog, sut allwch chi bentyrru'r colofnau yn un golofn heb y copïau dyblyg fel y mae'r sgrinlun isod yn ei ddangos?

Yn y rhan hon, mae'n darparu tri dull gwahanol o drin y swydd hon.

3.31 Copïwch a gludwch a dileu copïau dyblyg

Yn Excel, y dull cyffredinol o ddatrys y swydd hon yw copïo a gludo'r colofnau fesul un, ac yna tynnu'r gwerthoedd dyblyg.

1. Dewiswch y golofn gyntaf a gwasgwch Ctrl + C allweddi i'w gopïo, yna dewiswch gell dyngedfennol a gwasgwch Ctrl + V allweddi.

2. Yna ailadroddwch gam 1 i gopïo colofnau eraill a'u gludo o dan y golofn gyntaf.

3. Yna dewiswch y golofn pentyrru, cliciwch Dyddiad > Tynnwch y Dyblygion, yna yn y Dileu Dyblyg deialog, gwiriwch enw'r golofn, cliciwch OK.

4. Nawr mae deialog pops allan i atgoffa chi y gwerthoedd dyblyg yn cael eu dileu. Cliciwch OK i'w gau, ac mae'r golofn wedi'i stacio yn cadw'r gwerthoedd unigryw yn unig.

 Os oes cannoedd o golofnau, mae copïo a gludo fesul un yn cymryd llawer o amser. Fodd bynnag, os oes gennych Kutools ar gyfer Excel gosod yn Excel, y Trawsnewid Ystod Gall nodwedd gyflym drosi'r ystod i golofn, yna cymhwyso'r Tynnwch y Dyblygion nodwedd o Excel.

Dewiswch yr ystod o golofnau, a chliciwch Kutools > Ystod > Trawsnewid Ystod.

Yna gwiriwch y Ystod i golofn sengl opsiwn, a chlicio OK i ddewis cell i osod y golofn pentyrru.

Ac yna cymhwyswch Dileu Dyblygiadau i gael gwared ar y gwerthoedd dyblyg.

Am ragor o fanylion am y nodwedd hon, ewch i Trawsnewid Ystod.

Am fwy o fanylion am Kutools ar gyfer Excel, ewch i Kutools ar gyfer Excel.

Am dreial am ddim 30 diwrnod o Kutools ar gyfer Excel, os gwelwch yn dda download mae'n awr.

3.32 Defnyddio VBA

Ar ben hynny, dyma god VBA a all ddatrys y swydd hon.

1. Gwasgwch Alt + F11 allweddi i alluogi'r Microsoft Visual Basic ar gyfer Ceisiadau ffenestr, yna cliciwch Mewnosod > Modiwlau i greu modiwl gwag newydd.

2. Copïwch a gludwch y cod isod i'r modiwl newydd.

VBA: Pentyrru colofnau yn un heb ddyblygiadau

Sub FindUniques()
'UpdatebyExtendoffice
Dim rng As Range
Dim InputRng As Range, OutRng As Range
xTitleId = "KutoolsforExcel"
Set InputRng = Application.Selection
Set InputRng = Application.InputBox("Range :", xTitleId, InputRng.Address, Type:=8)
Set OutRng = Application.InputBox("Out put to (single cell):", xTitleId, Type:=8)
Set dic = CreateObject("Scripting.Dictionary")
For j = 1 To InputRng.Columns.Count
    For i = 1 To InputRng.Rows.Count
        xValue = InputRng.Cells(i, j).Value
        If xValue <> "" And Not dic.Exists(xValue) Then
            OutRng.Value = xValue
            dic(xValue) = ""
            Set OutRng = OutRng.Offset(1, 0)
        End If
    Next
Next
End Sub

3. Yna pwyswch F5 allwedd neu cliciwch Run   botwm, yna mae deialog yn ymddangos ar gyfer dewis y colofnau yr oedd angen eu pentyrru, cliciwch Iawn.

4. Yna yn yr ail ddeialog popping-out, dewiswch gell dyngedfennol i osod y golofn pentyrru, a chliciwch OK.

Nawr mae'r colofnau wedi'u pentyrru i un golofn gyda gwerthoedd unigryw yn unig.

Os oes dwy golofn, mae un wedi'i fformatio fel fformat arbennig, fel DateTimemm / dd / bbbb, i gyfuno'r ddwy golofn hyn yn un â'r dulliau arferol, bydd y fformatio arferol yn cael ei ddileu fel y dengys y sgrinlun isod:

Nawr yn y rhan hon, bydd yn darparu rhai ffyrdd o gyfuno celloedd a chadw'r fformatio.

3.41 swyddogaeth Imbed TESTUN yn y fformiwla

Defnyddir swyddogaeth TESTUN i drosi rhif yn destun mewn fformat penodol. Yma gallwn ei ddefnyddio i drosi'r gell (yn cynnwys rhif) i fformat yn gyntaf, ac yna ei chyfuno â chelloedd eraill trwy ddefnyddio "&", swyddogaeth CONCATENATE, swyddogaeth CONCAT neu swyddogaeth TEXTJOIN.

I gael manylion cyffredinol am gyfuno celloedd yn un, ewch yn ôl i 1.1.

Cystrawen am swyddogaeth TESTUN

TEXT (value, format_text)

Am fwy o fanylion am swyddogaeth TESTUN, ewch i TEXT swyddogaeth.

Yma mae ymgorffori swyddogaeth TESTUN yn swyddogaeth CONCAT fel enghraifft.

Copïwch a gludwch y fformiwla isod i gell lle rydych chi am i'r canlyniad cyfunol gael ei osod:

=CONCAT(TEXT(A2,"mm/dd/yyyy hh:mm")," ",B2)

 Yn y fformiwla, A2 yw'r gell rydych chi am gadw ei fformatio, “mm/dd/bbbb hh:mm” yw'r fformatio rydych chi'n ei ddefnyddio, B2 yw'r gell arall a ddefnyddir i gyfuno. yn dynodi gwahanu'r gwerthoedd gyda gofod. gallwch newid y cyfeiriadau, y fformatio a'r gwahanydd yn ôl yr angen.

Pwyswch Rhowch bysell a llusgwch yr handlen auto-fill i lawr i lenwi'r celloedd gyda'r fformiwla hon.

3.42 Defnyddio Microsoft Word

1. Dewiswch y tabl rydych chi am gyfuno celloedd yn un, a gwasgwch Ctrl + C i'w copïo.

2. Agorwch wag Word dogfen, gwasg Ctrl + V i'w gosod, yna cliciwch ar y tabl yn y ddogfen, nawr mae eicon croes yn ymddangos ar ochr dde uchaf y tabl.

3. Cliciwch ar y Gosodiad tab, ac yna cliciwch Trosi i Testun yn y Dyddiad grŵp, yn y popping Trosi Tabl Yn Testun deialog, nodwch y gwahanydd ar gyfer y colofnau. Cliciwch OK.

Nawr mae cynnwys y tabl yn Word wedi'i drawsnewid yn destunau.

4. Dewiswch y testunau wedi'u trosi a gwasgwch Ctrl + C i'w copïo, a mynd yn ôl i Excel a dewis cell wag, pwyswch Ctrl + V i gludo'r canlyniad cyfunol.

3.43 Defnyddio teclyn defnyddiol – Cyfuno heb golli data

Y ffordd fwyaf effeithlon yw defnyddio Kutools ar gyfer Excel'S Cyfuno Rhesi, Colofnau neu Gelloedd heb Golli Data nodwedd, sydd ond angen ticio'r Defnyddiwch werthoedd wedi'u fformatio blwch ticio wrth gymhwyso'r nodwedd, bydd y canlyniad cyfunol yn cadw'r fformatio data.

1. Dewiswch y tabl gan gynnwys y celloedd sy'n gosod y canlyniad, cliciwch Kutools > Uno a Hollti > Cyfuno Rhesi, Colofnau neu Gelloedd heb Golli Data.

2. Yn yr ymgom popping, nodwch y gweithrediad cyfuno yn ôl yr angen, a dad-diciwch y Defnyddiwch werthoedd wedi'u fformatio blwch ticio (yn ddiofyn, mae'r opsiwn hwn wedi'i dicio). Cliciwch Ok.

Nawr mae'r data wedi'i gyfuno a chadwch y fformatio.

Am ragor o fanylion am y nodwedd hon, ewch i Cyfuno Colofnau, Rhesi, Celloedd heb Golli Data.

Am fwy o fanylion am Kutools ar gyfer Excel, ewch i Kutools ar gyfer Excel.

Am {modiwl745}-diwrnod treial am ddim o Kutools ar gyfer Excel, os gwelwch yn dda download mae'n awr.

Gan dybio bod tabl sy'n cynnwys blynyddoedd, misoedd, a dyddiau mewn colofnau wedi'u gwahanu, y dasg yw cyfuno'r colofnau a chynhyrchu dyddiad fel y sgrinlun a ddangosir isod:

3.51 Defnyddio swyddogaeth DATE

Defnyddir y swyddogaeth DATE i greu dyddiad gyda blwyddyn, mis a diwrnod.

Cystrawen am swyddogaeth DATE

DATE( year, month, day )

Am fwy o fanylion am swyddogaeth DATE, ewch i swyddogaeth DATE.

Copïwch a gludwch y fformiwla isod i gell a fydd yn gosod y dyddiad:

=DATE(A2,B2,C2)

 Yn y fformiwla, A2, B2 a C2 yw'r celloedd sy'n cynnwys y gwerthoedd blwyddyn, mis a dydd.

Pwyswch Rhowch allweddol i gael y dyddiad cyntaf, yna llusgwch yr handlen auto-lenwi i lawr i gael yr holl ddyddiadau.

---

Mwy o Diwtorialau Excel: