Բաց թողնել հիմնական բովանդակությունը

Ինչպե՞ս թվարկել կամ գեներացնել Excel- ում բոլոր հնարավոր համադրությունները:

Եկեք ասենք, որ ես ունեմ տվյալների հետևյալ երկու սյունակները, և այժմ ես ուզում եմ առաջարկել բոլոր հնարավոր համադրությունների ցուցակ ՝ հիմնվելով արժեքների երկու ցուցակների վրա, ինչպես ցույց է տրված ձախ սքրինշոթը: Միգուցե, կարող եք բոլոր համակցությունները մեկ առ մեկ թվարկել, եթե քիչ արժեքներ կան, բայց եթե կան մի քանի սյունակներ, որոնք ունեն մի քանի սյունակ, անհրաժեշտ թվարկված են հնարավոր համադրությունները, ահա մի քանի արագ հնարքներ կօգնեն ձեզ լուծել այս խնդիրը Excel- ում ,

Թվարկեք կամ առաջացրեք բոլոր հնարավոր համադրությունները բանաձևով երկու ցուցակից

Նշեք կամ առաջացրեք բոլոր հնարավոր համադրությունները VBA կոդով երեք կամ ավելի ցուցակներից

Հզոր հատկանիշով ցուցակագրեք կամ առաջացրեք բոլոր հնարավոր համադրությունները բազմաթիվ ցուցակներից

Թվարկեք կամ առաջացրեք բոլոր հնարավոր համադրությունները բանաձևով երկու ցուցակից

Հետևյալ երկար բանաձևը կարող է օգնել ձեզ արագ ցուցակագրել երկու ցուցակների արժեքների բոլոր հնարավոր համակցությունները, խնդրում ենք արեք հետևյալը.

1, Մուտքագրեք կամ պատճենեք ներքևի բանաձևը դատարկ բջիջում, այս դեպքում ես այն մուտքագրեմ D2 բջիջ, այնուհետև կտտացրեք Մտնել արդյունք ստանալու համար ստեղնը, տես նկարի նկարը.

=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))

ՆշումՎերոհիշյալ բանաձևում $ A $ 2: $ A $ 5 առաջին սյունակի արժեքների միջակայքն է, և $ B $ 2: $ B $ 4 երկրորդ ցուցակի արժեքների տիրույթն է, որը ցանկանում եք թվարկել դրանց բոլոր հնարավոր համակցությունները, $ 2 $ XNUMX $ այն բջիջն է, որը դուք դնում եք բանաձևին, կարող եք փոխել բջիջների հղումները ձեր կարիքի վրա:

2, Դրանից հետո ընտրեք D2 բջիջը և լրացնելու բռնիչը ներքև քաշեք դեպի բջիջները, մինչև ստանաք դատարկ բջիջները, և բոլոր հնարավոր համակցությունները թվարկվել են ՝ հիմնվելով երկու ցուցակների արժեքների վրա: Տեսեք,

Նշեք կամ առաջացրեք բոլոր հնարավոր համադրությունները VBA կոդով երեք կամ ավելի ցուցակներից

Գուցե վերոհիշյալ բանաձևը որոշ չափով դժվար է կիրառել ձեզ համար, եթե կան բազմաթիվ սյունակների տվյալներ, այն փոփոխելու համար անհանգստացնող կլինի: Այստեղ ես կներկայացնեմ VBA կոդ ՝ դրանով արագ զբաղվելու համար:

1, Պահեք պահեք ALT + F11 բացել ստեղները Microsoft Visual Basic հավելվածների համար պատուհան.

2: Սեղմեք Տեղադրել > Մոդուլներ, և տեղադրեք հետևյալ կոդը Մոդուլներ Պատուհանը:

VBA կոդ. Ստեղծեք 3 կամ մի քանի սյունակների բոլոր համակցությունները

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
ՆշումՎերոհիշյալ ծածկագրում A2: A5, B2: B4, C2: C4 տվյալների տիրույթն է, որը ցանկանում եք օգտագործել, E2 ելքային բջիջն է, որը ցանկանում եք գտնել արդյունքները: Եթե ​​ցանկանում եք ստանալ ավելի շատ սյունակների բոլոր համակցությունները, խնդրում ենք փոխեք և ձեր պարագայում այլ պարամետրեր ավելացրեք ծածկագրին:

3. Ապա, սեղմեք F5 այս կոդն աշխատեցնելու բանալին, և 3 սյունակների բոլոր համակցությունները կստեղծվեն միանգամից, տես նկարի նկարը.

Հզոր հատկանիշով ցուցակագրեք կամ առաջացրեք բոլոր հնարավոր համադրությունները բազմաթիվ ցուցակներից

Եթե ​​կան բազմաթիվ ցուցակների արժեքներ, անհրաժեշտ է թվարկել հնարավոր համադրությունները, գուցե ձեզ համար դժվար է փոփոխել ծածկագիրը: Այստեղ ես կարող եմ առաջարկել հզոր գործիք ՝ Excel- ի համար նախատեսված գործիքներ, այն պարունակում է հարմար հատկություն Նշեք բոլոր համակցությունները որը կարող է արագ թվարկել տվյալ տվյալների ցուցակների հիման վրա բոլոր հնարավոր համադրությունները:

Tips:Սա կիրառելու համար Նշեք բոլոր համակցությունները հատկությունը, նախ, դուք պետք է ներբեռնեք այն Excel- ի համար նախատեսված գործիքներ, ապա գործառույթը կիրառեք արագ և հեշտությամբ:

Տեղադրելուց հետո Excel- ի համար նախատեսված գործիքներԽնդրում եմ արեք հետևյալ կերպ

1. Սեղմել Կուտոլս > Տեղադրել > Նշեք բոլոր համակցությունները, տես նկարի նկարը.

2, Մեջ Նշեք բոլոր համակցությունները երկխոսության տուփ, կատարեք գործողությունները, ինչպես ցույց է տրված ստորև ներկայացված ցուցադրումը.

3, Դրանից հետո բոլոր նշված արժեքները և տարանջատիչները թվարկվել են երկխոսության դաշտում, տես նկարի նկարը.

4.Եւ հետո կտտացրեք Ok կոճակը, և հուշում է տուփը, որը կհիշեցնի ձեզ ընտրելու համար բջիջ արդյունքը դուրս բերելու համար, տես նկարի նկարը.

5: Սեղմեք OK, տրված ցուցակների հիման վրա բոլոր հնարավոր համադրությունները գեներացվել են աշխատաթերթում, ինչպես ցույց է տրված հետևյալ նկարը.

Սեղմեք Excel- ի համար Kutools- ը ներբեռնելու համար:

Ավելի հարաբերական հոդվածներ.

  • Գտեք բոլոր համադրությունները, որոնք հավասար են տրված գումարի
  • Օրինակ, ես ունեմ թվերի հետևյալ ցուցակը, և այժմ ուզում եմ իմանալ, թե ցուցակում թվերի որ համադրություն է կազմում 480-ը, ցույց տրված հետևյալ նկարում, տեսնում եք, որ հնարավոր համակցությունների հինգ խումբ կա, որոնք հավասար են մինչև 480, օրինակ `300 + 60 + 120, 300 + 60 + 40 + 80 և այլն: Այս հոդվածում ես կխոսեմ որոշ մեթոդների մասին` պարզելու, թե որ բջիջներն են Excel- ում որոշակի արժեք կազմում:
  • Ստեղծեք կամ թվարկեք բոլոր հնարավոր փոփոխությունները
  • Օրինակ, ես ունեմ երեք նիշ XYZ, հիմա ուզում եմ թվարկել այս երեք նիշերի հիման վրա բոլոր հնարավոր փոխարկումները, որպեսզի ստանամ վեց տարբեր արդյունքներ ՝ XYZ, XZY, YXZ, YZX, ZXY և ZYX: Excel- ում ինչպե՞ս կարող էիք արագ գեներացնել կամ թվարկել բոլոր փոխարկումները ՝ հիմնված տարբեր թվերի նիշերի վրա:
  • Ստեղծեք բոլոր հնարավոր 4 թվանշանների համադրությունների ցուցակ
  • Որոշ դեպքերում մեզ կարող է անհրաժեշտ լինել ստեղծել 4-ից 0 համարի բոլոր հնարավոր 9 թվանշանների համադրությունների ցանկ, ինչը նշանակում է ստեղծել 0000, 0001, 0002… 9999 ցուցակ: Excel- ում ցուցակների առաջադրանքը արագ լուծելու համար ես ձեզ համար որոշ հնարքներ եմ ներկայացնում:

 

Գրասենյակի արտադրողականության լավագույն գործիքները

🤖 Kutools AI օգնականՀեղափոխություն կատարել տվյալների վերլուծության հիման վրա՝ Խելացի կատարում   |  Ստեղծեք ծածկագիր  |  Ստեղծեք հատուկ բանաձևեր  |  Վերլուծել տվյալները և ստեղծել գծապատկերներ  |  Invoke Kutools-ի գործառույթները...
Հանրաճանաչ հատկություններ: Գտեք, ընդգծեք կամ նույնականացրեք կրկնօրինակները   |  Deleteնջել դատարկ շարքերը   |  Միավորել սյունակները կամ բջիջները՝ առանց տվյալների կորստի   |   Կլոր առանց բանաձևի ...
Super Փնտրել: Բազմաթիվ չափանիշների VLookup  |   Բազմակի արժեք VLookup  |   VLookup բազմաթիվ թերթերում   |   Fuzzy Փնտրել ....
Ընդլայնված բացվող ցուցակ: Արագ ստեղծեք բացվող ցուցակը   |  Կախված բացվող ցուցակ   |  Բազմակի ընտրություն Drop Down ցուցակ ....
Սյունակի կառավարիչ: Ավելացրեք որոշակի քանակությամբ սյունակներ  |  Տեղափոխել սյունակները  |  Փոխարկել թաքնված սյունակների տեսանելիության կարգավիճակը  |  Համեմատեք միջակայքերը և սյունակները ...
Առանձնահատկություններ: Ցանցի կենտրոնացում   |  Դիզայնի տեսք   |   Մեծ Formula Bar   |  Աշխատանքային գրքույկի և թերթիկների կառավարիչ   |  Ռեսուրսների գրադարան (Ավտոմատ տեքստ)   |  Ամսաթիվ ընտրող   |  Միավորել աշխատանքային թերթերը   |  Գաղտնագրել/գաղտնազերծել բջիջները   |  Ուղարկեք նամակներ ըստ ցանկի   |  Սուպեր զտիչ   |   Հատուկ զտիչ (զտել թավ/շեղ/շեղված...) ...
Լավագույն 15 գործիքների հավաքածու:  12 Տեքստ Գործիքներ (Ավելացրեք տեքստ, Հեռացնել նիշերը, ...)   |   50+ Աղյուսակ Տեսակներ (Գանտի աղյուսակը, ...)   |   40+ Գործնական Բանաձեւեր (Հաշվարկել տարիքը ՝ ելնելով ծննդյան տարեդարձից, ...)   |   19 միացում Գործիքներ (Տեղադրեք QR կոդ, Տեղադրեք նկար ուղուց, ...)   |   12 Փոխարկում Գործիքներ (Բառեր համարներ, Արտարժույթի փոխակերպումը, ...)   |   7 Միաձուլում և պառակտում Գործիքներ (Ընդլայնված կոմբինատ տողեր, Պառակտված բջիջներ, ...)   |   ... եւ ավելին

Լրացրեք ձեր Excel-ի հմտությունները Kutools-ի հետ Excel-ի համար և փորձեք արդյունավետությունը, ինչպես երբեք: Kutools-ը Excel-ի համար առաջարկում է ավելի քան 300 առաջադեմ առանձնահատկություններ՝ արտադրողականությունը բարձրացնելու և ժամանակ խնայելու համար:  Սեղմեք այստեղ՝ Ձեզ ամենաշատ անհրաժեշտ հատկանիշը ստանալու համար...

Նկարագրություն

Office Tab- ը Tabbed ինտերֆեյսը բերում է Office, և ձեր աշխատանքը շատ ավելի դյուրին դարձրեք

  • Միացնել ներդիրներով խմբագրումը և ընթերցումը Word, Excel, PowerPoint- ով, Հրատարակիչ, Access, Visio և Project:
  • Բացեք և ստեղծեք բազմաթիվ փաստաթղթեր նույն պատուհանի նոր ներդիրներում, այլ ոչ թե նոր պատուհաններում:
  • Բարձրացնում է ձեր արտադրողականությունը 50%-ով և նվազեցնում մկնիկի հարյուրավոր սեղմումները ձեզ համար ամեն օր:

 

Comments (42)
Rated 5 out of 5 · 1 ratings
Guilherme Johansson
Guilherme Johansson
This comment was minimized by the moderator on the site
como que poderia gerar uma lista de combinações de nomes no LibreOffice?
Reply
0
0
Rated 5 out of 5
skyyang
skyyang     Guilherme Johansson
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!
Reply
Report
0
0
Nicolaj Ekholm
Nicolaj Ekholm
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
Reply
0
0
EDER
EDER
This comment was minimized by the moderator on the site
No 1º Exemplo de captura de tela , está faltando em All combinations Jan - KTE
Reply
0
0
MandyZhou
MandyZhou     EDER
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
Reply
Report
0
0
Shahrokh Zadeh
Shahrokh Zadeh
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
Reply
0
0
Shahrokh Zadeh
Shahrokh Zadeh
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
Reply
0
0
simplest.becky
simplest.becky
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

Reply
Report
0
0
jericho
jericho
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
Reply
0
0
skyyang
skyyang     jericho
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
Reply
Report
0
0
robertsu
robertsu
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!
Reply
Report
0
0
Juan Tomás
Juan Tomás
This comment was minimized by the moderator on the site
Excelentes soluciones, muchas gracias, lo logré con Kutools
Reply
0
0
RAFFAELE
RAFFAELE
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
Reply
0
0
There are no comments posted here yet
Load More
Please leave your comments in English
Guest
Posting as Guest
×
Rate this post:
Reset
0   Characters
Suggested Locations