Sut i gyfuno rhesi lluosog yn un yn seiliedig ar ddyblygiadau yn Excel?
Efallai, mae gennych y data screenshot canlynol, yng ngholofn enw'r Cynnyrch A, mae yna rai eitemau dyblyg, ac nawr mae angen i chi gael gwared ar y cofnodion dyblyg yng ngholofn A ond cyfuno'r gwerthoedd cyfatebol yng ngholofn B, gweler y sgrinluniau:
Oes gennych chi rai ffyrdd effeithiol o ddatrys y dasg hon?
Cyfunwch resi dyblyg lluosog yn un â chod VBA
Cyfuno rhesi dyblyg lluosog i mewn i un Kutools ar gyfer Excel
Cyfuno rhesi dyblyg lluosog a chrynhoi / cyfartaledd y gwerthoedd gyda Kutools ar gyfer Excel
Cyfunwch resi dyblyg lluosog yn un â chod VBA
Gall y cod VBA canlynol eich helpu i gyfuno rhesi dyblyg yn seiliedig ar werth colofn A, a dim ond ar gyfer dwy golofn y mae'r cod canlynol yn cael ei gymhwyso. Felly, os oes gennych ddata dwy golofn, bydd y cod hwn yn ffafrio chi.
1. Daliwch i lawr y ALT + F11 allweddi, ac mae'n agor y Ffenestr Microsoft Visual Basic for Applications.
2. Cliciwch Mewnosod > Modiwlau, a gludwch y cod canlynol yn y Ffenestr Modiwl.
Cod VBA: cyfuno rhesi lluosog yn un
Sub CombineRows()
'Update 20131202
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)
xvalue = arr(i, 1)
If Dic.Exists(xvalue) Then
Dic(arr(i, 1)) = Dic(arr(i, 1)) & " " & arr(i, 2)
Else
Dic(arr(i, 1)) = arr(i, 2)
End If
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, ac mae blwch prydlon yn galw allan i'ch atgoffa i ddewis ystod y mae angen i chi ei chyfuno. Gweler y screenshot:
4. Ac yna cliciwch OK, mae'r gwerthoedd yng ngholofn B wedi'u cyfuno'n un cofnod a'u gwahanu gan fylchau.
Nodiadau:
1. Gall y cod hwn ddinistrio'r data gwreiddiol, pan fyddwch chi'n ei ddefnyddio, byddai'n well ichi ategu'r data yn gyntaf.
2. Dim ond ar gyfer dwy golofn y cymhwysir y cod hwn, os oes gennych fwy na dwy golofn, dim ond y ddwy golofn gyntaf y bydd y cod hwn yn eu cyfuno ac yn dileu data colofnau eraill. Pan ddefnyddiwch y cod hwn, rhaid i chi fod yn ofalus.
Cyfuno rhesi dyblyg lluosog i mewn i un Kutools ar gyfer Excel
Nawr bod gan y cod uchod rai cyfyngiadau a risgiau, a oes ffordd hwylus a diogel i orffen y swydd hon? Gyda Kutools ar gyfer Excel'S Rhesi Cyfuno Uwch cyfleustodau, gallwch chi gael gwared â sawl rhes ddyblyg yn gyflym yn y colofnau rydych chi'n seiliedig arnyn nhw ac uno neu wneud rhai cyfrifiadau ar gyfer cofnodion eraill i mewn i gelloedd priodol.
Kutools ar gyfer Excel yn cynnwys mwy na 300 o offer Excel defnyddiol. Am ddim i geisio heb unrhyw gyfyngiad mewn 30 diwrnod. Get it Now.
Ar ôl gosod Kutools ar gyfer Excel, gwnewch fel a ganlyn:
1. Dewiswch y data amrediad rydych chi am gyfuno dyblygu.
2. Yna cliciwch Kutools > Troswr Cynnwys > Rhesi Cyfuno Uwch. Gweler y screenshot:
3. Yn y Rhesi Cyfuno Uwch blwch deialog, dewiswch enw'r golofn fel y colofnau allweddol rydych chi am gyfuno gwerthoedd yn seiliedig arnyn nhw, ac yna cliciwch Colofnau allweddol. Gweler y screenshot:
4. Yna ewch ymlaen i glicio ar y golofn y mae angen i chi gyfuno eu gwerthoedd yn un cofnod, ac yna cliciwch Cyfuno gweithrediadau a dewis Dim ond cyfuno â gwahanydd, a dewis un gwahanydd sydd ei angen arnoch i wahanu'r gwerthoedd cyfun o'r rhestr gywir. Gweler y screenshot:
5. Ar ôl gorffen y gosodiadau, cliciwch OK, a bydd eich data yn cael ei uno yn seiliedig ar y colofnau allweddol a'u gwahanu gan wahanyddion.
Nodyn: Os nad oes angen i chi osod y gweithrediadau ar gyfer y colofnau gorffwys, cadwch y wladwriaeth ddiofyn yn unig.
Cyfuno rhesi dyblyg lluosog a chrynhoi / cyfartaledd y gwerthoedd gyda Kutools ar gyfer Excel
Gyda'r amlswyddogaethol hon Rhesi Cyfuno Uwch cyfleustodau, gallwch gyfuno rhesi dyblyg a gwneud rhai cyfrifiadau ar gyfer y gwerthoedd hefyd.
1. Dewiswch y data amrediad rydych chi am gyfuno dyblygu.
2. Ewch i'r Rhesi Cyfuno Uwch blwch deialog;
- (1.) Dewiswch enw colofn fel colofn allweddol rydych chi am gyfrifo gwerthoedd colofn eraill yn seiliedig arni, ac yna cliciwch Colofnau allweddol;
- (2.) Dewiswch y golofn y mae angen i chi wneud rhai cyfrifiadau ar gyfer y gwerthoedd, ac yna cliciwch Cyfuno gweithrediadau > Cyfuno cyfrifo, yna dewiswch un math cyfrifo sydd ei angen arnoch chi, yn yr achos hwn, rwy'n ei ddewis Swm. Gweler y screenshot:
3. Os nad oes angen i chi osod y gweithrediadau ar gyfer y colofnau gorffwys, dim ond cadw'r wladwriaeth ddiofyn, yna cliciwch OK, a bydd y gwerthoedd dyblyg yng ngholofn A yn cael eu huno a bydd eu gwerthoedd cyfatebol yng ngholofn B yn cael eu hadio i fyny. Gweler sgrinluniau:
Nodiadau:
1. Os gwiriwch Mae penawdau yn fy data opsiwn, anwybyddir eich penawdau (rhes gyntaf) yr ystod pan ddefnyddiwch y cyfleustodau hwn.
2. Defnyddiwch werthoedd wedi'u fformatio: bydd yn cadw fformatio'r gwerthoedd ar ôl cyfuno'r celloedd dyblyg.
3. Nid yw'r cyfleustodau hwn ar gael ar gyfer hidlo data.
Cliciwch i wybod mwy am y swyddogaeth Rhesi Cyfuno Uwch hon.
Erthygl gysylltiedig:
Cyfunwch resi dyblyg a chrynhoi'r gwerthoedd
Offer Cynhyrchiant Swyddfa Gorau
Supercharge Eich Sgiliau Excel gyda Kutools ar gyfer Excel, a Phrofiad Effeithlonrwydd Fel Erioed Erioed. Kutools ar gyfer Excel Yn Cynnig Dros 300 o Nodweddion Uwch i Hybu Cynhyrchiant ac Arbed Amser. Cliciwch Yma i Gael Y Nodwedd Sydd Ei Angen Y Mwyaf...
Mae Office Tab yn dod â rhyngwyneb Tabbed i Office, ac yn Gwneud Eich Gwaith yn Haws o lawer
- Galluogi golygu a darllen tabbed yn Word, Excel, PowerPoint, Cyhoeddwr, Mynediad, Visio a Phrosiect.
- Agor a chreu dogfennau lluosog mewn tabiau newydd o'r un ffenestr, yn hytrach nag mewn ffenestri newydd.
- Yn cynyddu eich cynhyrchiant 50%, ac yn lleihau cannoedd o gliciau llygoden i chi bob dydd!