Note: The other languages of the website are Google-translated. Back to English

Sut i gyfuno dwy restr heb ddyblygu yn Excel?

Mae dwy restr yn eich taflen waith, ac mae rhai o'r gwerthoedd yn y rhestrau yn ddyblygiadau, ac rydych chi am gyfuno'r ddwy restr hyn a gadael y gwerthoedd unigryw yn unig, fel y dangosir fel y sgrinluniau isod, sut allwch chi wneud?

Cyfunwch restrau heb ddyblygu â Dileu Dyblygu yn Excel

Cyfuno rhestrau heb ddyblygu gyda VBA

Cyfuno rhestrau heb ddyblygu gyda Kutools ar gyfer Excel

Tab Swyddfa Galluogi Golygu a Pori Tabbed yn y Swyddfa, a Gwneud Eich Gwaith yn Haws Orau ...
Mae Kutools for Excel yn Datrys y rhan fwyaf o'ch Problemau, ac yn Cynyddu Eich Cynhyrchedd 80%
  • Ailddefnyddio Unrhyw beth: Ychwanegwch y fformwlâu, siartiau ac unrhyw beth arall a ddefnyddir fwyaf cymhleth i'ch ffefrynnau, a'u hailddefnyddio'n gyflym yn y dyfodol.
  • Mwy nag 20 o nodweddion testun: Rhif Detholiad o Llinyn Testun; Tynnu neu Dynnu Rhan o Testunau; Trosi Rhifau ac Arian Cyfred yn Eiriau Saesneg.
  • Uno Offer: Llyfrau Gwaith a Thaflenni Lluosog yn Un; Uno Celloedd Lluosog / Rhesi / Colofnau Heb Golli Data; Uno Rhesi a Swm Dyblyg.
  • Hollti Offer: Rhannwch Ddata yn Daflenni Lluosog Yn Seiliedig ar Werth; Un Llyfr Gwaith i Ffeiliau Lluosog Excel, PDF neu CSV; Un Golofn i Golofnau Lluosog.
  • Gludo Sgipio Rhesi Cudd / Hidlo; Cyfrif A Swm yn ôl Lliw Cefndir; Anfon E-byst wedi'u Personoli at Dderbynwyr Lluosog mewn Swmp.
  • Hidlo Gwych: Creu cynlluniau hidlo datblygedig a'u cymhwyso i unrhyw daflenni; Trefnu yn yn ôl wythnos, dydd, amlder a mwy; Hidlo gan feiddgar, fformwlâu, sylw ...
  • Mwy na 300 o nodweddion pwerus; Yn gweithio gyda'r Swyddfa 2007-2019 a 365; Yn cefnogi pob iaith; Defnydd hawdd yn eich menter neu sefydliad.

swigen dde glas saeth Cyfunwch restrau heb ddyblygu â Dileu Dyblygu yn Excel


I gyfuno dwy restr a dileu gwerthoedd dyblyg yn Excel, gallwch wneud fel a ganlyn:

1. Copïwch un o'r ddwy restr a'i gludo i waelod y rhestr arall, gweler y screenshot:

2. Dewiswch y rhestr a chlicio Dyddiad > Tynnwch y Dyblygion, gweler y screenshot:


3. Yn y Tynnwch y Dyblygion deialog, os nad oes pennawd yn eich colofn, dad-diciwch Mae penawdau yn fy data, ac yna cliciwch OK. Gweler y screenshot:


4. Yna mae dialog yn arddangos ar y sgrin i ddweud wrthych fod y dyblygu wedi'u dileu, cliciwch OK. Gweler y screenshot:


Gallwch weld y canlyniad:



swigen dde glas saeth Cyfuno rhestrau heb ddyblygu gyda VBA

Yn Excel, gall VBA hefyd eich helpu i gyfuno'r ddwy restr heb ddyblygu.

1. Cynnal ALT botwm a gwasgwch F11 ar y bysellfwrdd i agor a Microsoft Visual Basic ar gyfer Cymhwyso ffenestr.

2. Cliciwch Mewnosod > Modiwlau, a chopïwch y VBA i'r modiwl.

VBA: Cyfuno rhestrau heb ddyblygu

Sub FindUniques()
'Updateby20140313
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. Cliciwch Run botwm neu wasg F5 i redeg y VBA.

4. Deialog wedi'i arddangos ar y sgrin, a gallwch ddewis yr ystod rydych chi am ei chyfuno. Gweler y screenshot:


5. Cliciwch OK, yna daeth deialog arall i fyny i chi ddewis cell i allbwn y canlyniad cyfun. Gweler y screenshot:


6. Cliciwch OK. Gallwch weld bod y rhestrau wedi'u cyfuno.


Awgrym: Ni all y canlyniad gadw'r celloedd yn fformatio ar ôl rhedeg y VBA uchod.


swigen dde glas saeth Cyfuno rhestrau heb ddyblygu gyda Kutools ar gyfer Excel

Gyda gosod Kutools ar gyfer Excel, gallwch chi ddefnyddio'r Dewiswch ddyblygu a chelloedd unigryw swyddogaeth i ddatrys y broblem sy'n cyfuno dwy restr heb ddyblygu.

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

1. Copïwch un o'r ddwy restr a'i gludo i waelod y rhestr arall, dewiswch y rhestr newydd, yna cliciwch Kutools > Dewiswch Offer > Dewiswch ddyblygu a chelloedd unigryw. Gweler y screenshot:


2. Yn y Dewiswch ddyblygu a chelloedd unigryw deialog, gwirio Pob uniques (Gan gynnwys dyblygu 1af), Cliciwch Ok.


3. Yna bydd deialog yn ymddangos i ddweud wrthych faint o werthoedd unigryw sydd wedi'u dewis, cliciwch OK ac Diddymu i gau dau ddeialog. Gweler y screenshot:


4. A chopïwch y gwerthoedd unigryw a ddewiswyd a'u pastio i golofn newydd. Gweler y screenshot:


Cliciwch yma i wybod mwy am Dewis dyblygu a chelloedd unigryw.


Erthyglau Perthynas:

sylwadau (0)
Dim sgôr eto. Byddwch y cyntaf i sgorio!
Nid oes unrhyw sylwadau wedi'u postio yma eto
Gadewch eich sylwadau
Postio fel Gwestai
×
Graddiwch y swydd hon:
0   Cymeriadau
Lleoliadau a Awgrymir