Skip i'r prif gynnwys

Sut i restru neu gynhyrchu'r holl gyfuniadau posibl yn Excel?

Awdur: Xiaoyang Wedi'i Addasu Diwethaf: 2022-07-20

Gadewch i ni ddweud, mae gen i'r ddwy golofn ganlynol o ddata, a nawr, rydw i eisiau cynhyrchu rhestr o'r holl gyfuniadau posib yn seiliedig ar y ddwy restr o werthoedd fel y dangosir y llun chwith. Efallai, gallwch chi restru'r holl gyfuniadau fesul un os nad oes llawer o werthoedd, ond, os oes angen rhestru sawl colofn â gwerthoedd lluosog y cyfuniadau posib, dyma rai triciau cyflym a allai eich helpu i ddelio â'r broblem hon yn Excel .

Rhestrwch neu cynhyrchwch yr holl gyfuniadau posib o ddwy restr gyda fformiwla

Rhestrwch neu cynhyrchwch yr holl gyfuniadau posibl o dair rhestr neu fwy gyda chod VBA

Rhestrwch neu cynhyrchwch yr holl gyfuniadau posibl o restrau lluosog gyda nodwedd bwerus


Rhestrwch neu cynhyrchwch yr holl gyfuniadau posib o ddwy restr gyda fformiwla

Gall y fformiwla hir ganlynol eich helpu i restru'r holl gyfuniadau posibl o werthoedd dwy restr yn gyflym, gwnewch fel a ganlyn:

1. Rhowch neu copïwch y fformiwla isod i mewn i gell wag, yn yr achos hwn, byddaf yn ei rhoi yng nghell D2, ac yna'n pwyso Rhowch allwedd i gael y canlyniad, gweler y screenshot:

=IF(ROW()-ROW($D$2)+1>COUNTA($A$2:$A$5)*COUNTA($B$2:$B$4),"",INDEX($A$2:$A$5,INT((ROW()-ROW($D$2))/COUNTA($B$2:$B$4)+1))&"-"&INDEX($B$2:$B$4,MOD(ROW()-ROW($D$2),COUNTA($B$2:$B$4))+1))

Nodyn: Yn y fformiwla uchod, $ A $ 2: $ A $ 5 yw ystod gwerthoedd y golofn gyntaf, a $ B $ 2: $ B $ 4 yw ystod y gwerthoedd ail restr yr ydych am restru eu holl gyfuniadau posibl, y $ D $ 2 yw'r gell rydych chi'n rhoi'r fformiwla, gallwch chi newid cyfeiriadau'r gell i'ch angen.

2. Yna dewiswch gell D2 a llusgwch y handlen llenwi i lawr i'r celloedd nes cael y celloedd gwag, ac mae'r holl gyfuniadau posib wedi'u rhestru yn seiliedig ar werthoedd y ddwy restr. Gweler y screenshot:


Rhestrwch neu cynhyrchwch yr holl gyfuniadau posibl o dair rhestr neu fwy gyda chod VBA

Efallai bod y fformiwla uchod ychydig yn anodd i chi ei defnyddio, os oes data colofnau lluosog, bydd yn drafferthus i'w haddasu. Yma, byddaf yn cyflwyno cod VBA i ddelio ag ef yn gyflym.

1. Daliwch i lawr y ALT + F11 allweddi i agor y Microsoft Visual Basic ar gyfer Ceisiadau ffenestr.

2. Cliciwch Mewnosod > Modiwlau, a gludwch y cod canlynol yn y Modiwlau Ffenestr.

Cod VBA: Cynhyrchu pob cyfuniad o 3 neu fwy o golofnau

Sub ListAllCombinations()
'Updateby Extendoffice
Dim xDRg1, xDRg2, xDRg3 As Range
Dim xRg  As Range
Dim xStr As String
Dim xFN1, xFN2, xFN3 As Integer
Dim xSV1, xSV2, xSV3 As String
Set xDRg1 = Range("A2:A5")  'First column data
Set xDRg2 = Range("B2:B4")  'Second column data
Set xDRg3 = Range("C2:C4")  'Third column data
xStr = "-"   'Separator
Set xRg = Range("E2")  'Output cell
For xFN1 = 1 To xDRg1.Count
    xSV1 = xDRg1.Item(xFN1).Text
    For xFN2 = 1 To xDRg2.Count
        xSV2 = xDRg2.Item(xFN2).Text
      For xFN3 = 1 To xDRg3.Count
        xSV3 = xDRg3.Item(xFN3).Text
        xRg.Value = xSV1 & xStr & xSV2 & xStr & xSV3
        Set xRg = xRg.Offset(1, 0)
       Next
    Next
Next
End Sub
Nodyn: Yn y cod uchod, A2: A5, B2: B4, C2: C4 yw'r ystod ddata rydych chi am ei defnyddio, E2 yw'r gell allbwn rydych chi am ddod o hyd i'r canlyniadau. Os ydych chi am gael pob cyfuniad o fwy o golofnau, newidiwch ac ychwanegwch baramedrau eraill i'r cod fel eich angen.

3. Yna, pwyswch F5 allwedd i redeg y cod hwn, a chynhyrchir pob cyfuniad o'r 3 colofn ar unwaith, gweler y screenshot:


Rhestrwch neu cynhyrchwch yr holl gyfuniadau posibl o restrau lluosog gyda nodwedd bwerus

Os oes rhestrau lluosog mae angen rhestru gwerthoedd y cyfuniadau posibl, efallai ei bod yn anodd ichi addasu'r cod. Yma, gallaf argymell teclyn pwerus - Kutools ar gyfer Excel, mae'n cynnwys nodwedd ddefnyddiol Rhestrwch Pob Cyfuniad a all restru'r holl gyfuniadau posibl yn gyflym yn seiliedig ar restrau data penodol.

Awgrymiadau:I gymhwyso hyn Rhestrwch Pob Cyfuniad nodwedd, yn gyntaf, dylech lawrlwytho'r Kutools ar gyfer Excel, ac yna cymhwyswch y nodwedd yn gyflym ac yn hawdd.

Ar ôl gosod Kutools ar gyfer Excel, gwnewch fel hyn:

1. Cliciwch Kutools > Mewnosod > Rhestrwch Pob Cyfuniad, gweler y screenshot:

2. Yn y Rhestrwch Pob Cyfuniad blwch deialog, gwnewch y gweithrediadau fel y dangosir isod:

3. Yna mae'r holl werthoedd a gwahanyddion penodedig wedi'u rhestru yn y blwch deialog, gweler y screenshot:

4Ac yna cliciwch Ok botwm, a bydd blwch prydlon yn popio allan i'ch atgoffa i ddewis cell i allbwn y canlyniad, gweler y screenshot:

5. Cliciwch OK, mae'r holl gyfuniadau posibl yn seiliedig ar y rhestrau a roddwyd wedi'u cynhyrchu i'r daflen waith fel y dangosir y llun a ganlyn:

Cliciwch i Lawrlwytho Kutools ar gyfer Excel Nawr !


Erthyglau mwy cymharol:

  • Cynhyrchu Pob Cyfuniad O 3 Colofn Lluosog
  • Gan dybio, mae gen i 3 colofn o ddata, nawr, rydw i eisiau cynhyrchu neu restru'r holl gyfuniadau o'r data yn y 3 colofn hyn fel y dangosir isod. A oes gennych unrhyw ddulliau da ar gyfer datrys y dasg hon yn Excel?
  • Dewch o Hyd i'r Holl Gyfuniadau sy'n Gyfwerth â Swm a Roddwyd
  • Er enghraifft, mae gen i'r rhestr ganlynol o rifau, ac yn awr, rydw i eisiau gwybod pa gyfuniad o rifau yn y rhestr sy'n cyfrif hyd at 480, yn y screenshot canlynol a ddangosir, gallwch chi weld bod yna bum grŵp o gyfuniadau posib sy'n adio yn gyfartal i 480, fel 300 + 60 + 120, 300 + 60 + 40 + 80, ac ati. Yr erthygl hon, byddaf yn siarad am rai dulliau i ddarganfod pa gelloedd sy'n dod i werth penodol yn Excel.
  • Cynhyrchu Neu Restru Pob Cyfresiad Posibl
  • Er enghraifft, mae gen i dri chymeriad XYZ, nawr, rydw i eisiau rhestru'r holl drawsnewidiadau posib yn seiliedig ar y tri chymeriad hyn i gael chwe chanlyniad gwahanol fel hyn: XYZ, XZY, YXZ, YZX, ZXY a ZYX. Yn Excel, sut allech chi gynhyrchu neu restru'r holl drawsnewidiadau yn gyflym yn seiliedig ar nifer wahanol o gymeriadau?
  • Cynhyrchu Rhestr o'r Holl Gyfuniadau Posibl 4 Digid
  • Mewn rhai achosion, efallai y bydd angen i ni gynhyrchu rhestr o'r holl gyfuniadau 4 digid posib o rif 0 i 9, sy'n golygu cynhyrchu rhestr o 0000, 0001, 0002… 9999. Er mwyn datrys y dasg rhestr yn Excel yn gyflym, rwy'n cyflwyno rhai triciau i chi.

 

Offer Cynhyrchiant Swyddfa Gorau

🤖 Kutools AI Aide: Chwyldro dadansoddi data yn seiliedig ar: Cyflawniad Deallus   |  Cynhyrchu Cod  |  Creu Fformiwlâu Personol  |  Dadansoddi Data a Chynhyrchu Siartiau  |  Invoke Swyddogaethau Kutools...
Nodweddion Poblogaidd: Darganfod, Amlygu neu Adnabod Dyblygiadau   |  Dileu Rhesi Gwag   |  Cyfuno Colofnau neu Gelloedd heb Colli Data   |   Rownd heb Fformiwla ...
Super-edrych: VLookup Meini Prawf Lluosog    VLookup Gwerth Lluosog  |   VLookup Ar Draws Taflenni Lluosog   |   Edrych Niwlog ....
Rhestr gwympo Uwch: Creu Rhestr Gollwng yn Gyflym   |  Rhestr Gollwng Dibynnol   |  Rhestr Gollwng Aml-ddewis ....
Rheolwr Colofn: Ychwanegu Nifer Penodol o Golofnau  |  Symud Colofnau  |  Toglo Statws Gwelededd Colofnau Cudd  |  Cymharwch Ystodau a Cholofnau ...
Nodweddion dan Sylw: Ffocws ar y Grid   |  Golwg Dylunio   |   Bar Fformiwla Mawr    Rheolwr Llyfr Gwaith a Thaflen   |  Llyfrgell Adnoddau (Testun Auto)   |  Dewiswr Dyddiad   |  Cyfuno Taflenni Gwaith   |  Amgryptio/Dadgryptio Celloedd    Anfon E-byst trwy Restr   |  Hidlo Super   |   Hidlo Arbennig (hidlo mewn print trwm/italig/strikethrough...) ...
15 Set Offer Gorau12 Testun offer (Ychwanegu Testun, Dileu Cymeriadau,...)   |   50 + Siart Mathau (Siart Gantt,...)   |   40+ Ymarferol Fformiwlâu (Cyfrifwch oedran yn seiliedig ar ben-blwydd,...)   |   19 mewnosod offer (Mewnosod Cod QR, Mewnosod Llun o'r Llwybr,...)   |   12 Trosi offer (Rhifau i Eiriau, Trosi arian cyfred,...)   |   7 Uno a Hollti offer (Rhesi Cyfuno Uwch, Celloedd Hollt,...)   |   ... a mwy

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

Disgrifiad


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!

 

Comments (42)
Rated 5 out of 5 · 1 ratings
This comment was minimized by the moderator on the site
como que poderia gerar uma lista de combinações de nomes no LibreOffice?
Rated 5 out of 5
This comment was minimized by the moderator on the site
Hello, Johansson

Sorry, the methods in this article are only applied for Microsoft Excel.
Thank you!
This comment was minimized by the moderator on the site
Hej alle sammen

Jeg håber at i kan hjælpe med dette.

Jeg har en af de gamle Bastalåse kodelåse med 6 knapper, hvor man kan trykke knapperne ind, lade dem være i neutral eller trække dem ud.

Låsen var åben da jeg købte den, så jeg låste den i håb om at jeg kunne gå kombinationerne igennem.

Men jeg har lidt problemer med at få nedskrevet samtlige kombinationer (729 så vidt jeg kan regne ud).

Er der en der vil hjælpe mig med med dette? Evt. kan man kalde de 3 indstillingsmuligheder pr. knap for: 1-2-3, 1-0-2, eller I-N-U (ind-neutral-ud).


Krydser finger og siger på forhånd mange tak hvis jeg kan få låsen op, det er sådan lidt nostalgi.

Mvh

Nicolaj
This comment was minimized by the moderator on the site
No 1º Exemplo de captura de tela , está faltando em All combinations Jan - KTE
This comment was minimized by the moderator on the site
Hello friend,
How are you. Thank you for your notice. We changed the first ficture. Please check now. Have a nice day.

Sincerely,
Mandy
This comment was minimized by the moderator on the site
Hi,
I have a project with excel (including Kutools) that I am stuck on.
Can anyone tell me how to get a list of all combinations of 6 different numbers, without repeating any of the numbers?
I know there should be 6! = 720 combinations but I need the list.
Thanks
This comment was minimized by the moderator on the site
Hi,
I have a project with excel (including Kutools) that I am stuck on.
Can anyone tell me how to get a list of all combinations of 6 different numbers, without repeating any digit?
I know there should be 6! = 720 combinations but I need the list.
Thanks
This comment was minimized by the moderator on the site
Hello Extend Office,
I want to extend the VBA code in "List Or Generate All Possible Combinations From Three Or More Lists With VBA Code article"
I want to show only the one's whose total of the combinations is equal to 9. Can you please show the additional extension/lines in the code? sorry, I'm barely new in VBA.
For example, I only want to show the combinations like the following:
1-2-2-2-2 (this is equal to 1+2+2+2+2 = 9) so, it will show the ones whose total is 9, the rest won't show.
1-2-3-1-3 (=9)
1-3-2-1-2 (=9) and so on...

Thanks very much for your help
Dalesimplest.becky15.08.21

This comment was minimized by the moderator on the site
edited formula to randomize 5 columns instead of 3 but still wont work,why?
Sub ListAllCombinations()
'Updateby Extendoffice
Dim xDRg1, xDRg2, xDRg3, xDRg4, xDRg5 As Range
Dim xRg As Range
Dim xStr As String
Dim xFN1, xFN2, xFN3, xFN4, xF5 As Integer
Dim xSV1, xSV2, xSV3, xSV4, xSV5 As String
Set xDRg1 = Range("A2:A10") 'First column data
Set xDRg2 = Range("B2:B10") 'Second column data
Set xDRg3 = Range("C2:C10") 'Third column data
Set xDRg2 = Range("D2:D10") 'Fourth column data
Set xDRg3 = Range("E2:E10") 'Fifth column data
xStr = "," 'Separator
Set xRg = Range("G2") 'Output cell
For xFN1 = 1 To xDRg1.Count
xSV1 = xDRg1.Item(xFN1).Text
For xFN2 = 1 To xDRg2.Count
xSV2 = xDRg2.Item(xFN2).Text
For xFN3 = 1 To xDRg3.Count
xSV3 = xDRg3.Item(xFN3).Text
For xFN4 = 1 To xDRg4.Count
xSV4 = xDRg4.Item(xFN4).Text
For xFN5 = 1 To xDRg5.Count
xSV5 = xDRg5.Item(xFN5).Text
xRg.Value = xSV1 & xStr & xSV2 & xStr & xSV3 & xStr & xSV4 & xStr & xSV5
Set xRg = xRg.Offset(1, 0)
Next
Next
Next
End Sub
This comment was minimized by the moderator on the site
Hello, jericho,You should modify your code as below code, please try it, thank you!<div data-tag="code">Sub ListAllCombinations()
'Updateby Extendoffice
Dim xDRg1, xDRg2, xDRg3, xDRg4, xDRg5 As Range
Dim xRg As Range
Dim xStr As String
Dim xFN1, xFN2, xFN3, xFN4, xFN5 As Integer
Dim xSV1, xSV2, xSV3, xSV4, xSV5 As String
Set xDRg1 = Range("A2:A10") 'First column data
Set xDRg2 = Range("B2:B10") 'Second column data
Set xDRg3 = Range("C2:C10") 'Third column data
Set xDRg4 = Range("D2:D10") 'Fourth column data
Set xDRg5 = Range("E2:E10") 'Fifth column data
xStr = "-" 'Separator
Set xRg = Range("H2") 'Output cell
For xFN1 = 1 To xDRg1.Count
xSV1 = xDRg1.Item(xFN1).Text
For xFN2 = 1 To xDRg2.Count
xSV2 = xDRg2.Item(xFN2).Text
For xFN3 = 1 To xDRg3.Count
xSV3 = xDRg3.Item(xFN3).Text
For xFN4 = 1 To xDRg4.Count
xSV4 = xDRg4.Item(xFN4).Text
For xFN5 = 1 To xDRg5.Count
xSV5 = xDRg5.Item(xFN5).Text
xRg.Value = xSV1 & xStr & xSV2 & xStr & xSV3 & xStr & xSV4 & xStr & xSV5
Set xRg = xRg.Offset(1, 0)
Next
Next
Next
Next
Next
End Sub
This comment was minimized by the moderator on the site
How to remove the repetition if I have color 1, color 2, color 3 in different orders(i.e. color2, color 3, color 1) but they are the same for my need? tks!
This comment was minimized by the moderator on the site
Excelentes soluciones, muchas gracias, lo logré con Kutools
This comment was minimized by the moderator on the site
NON FUNZIONA. HO SEGUITO GLI STESSI PASSAGGI MA MI DICE CHE C'E' UN ERRORE
There are no comments posted here yet
Load More
Please leave your comments in English
Posting as Guest
×
Rate this post:
0   Characters
Suggested Locations