Ինչպե՞ս թվարկել Excel-ի մեկ սյունակից բոլոր հնարավոր համակցությունները:
Եթե ցանկանում եք վերադարձնել բոլոր հնարավոր համակցությունները մեկ սյունակի տվյալներից՝ արդյունքը ստանալու համար, ինչպես ցույց է տրված ստորև նշված սքրինշոթը, ունե՞ք Excel-ում այս առաջադրանքը լուծելու արագ եղանակներ:
Թվարկեք բոլոր հնարավոր համակցությունները մեկ սյունակից բանաձևերով
Թվարկեք բոլոր հնարավոր համակցությունները մեկ սյունակից VBA կոդով
Թվարկեք բոլոր հնարավոր համակցությունները մեկ սյունակից բանաձևերով
Զանգվածի հետևյալ բանաձևերը կարող են օգնել ձեզ հասնել այս աշխատանքին, խնդրում ենք անել քայլ առ քայլ.
1. Նախ, դուք պետք է ստեղծեք երկու օգնական բանաձևի բջիջ: C1 բջիջում մուտքագրեք ստորև բերված բանաձևը և սեղմեք Ctrl + Shift + Մուտք արդյունք ստանալու բանալիներ.
2. C2 բջիջում մուտքագրեք հետևյալ բանաձևը և սեղմեք Ctrl + Shift + Մուտք ստեղները միասին՝ երկրորդ արդյունքը ստանալու համար, տես սքրինշոթը՝
3. Այնուհետև պատճենեք և տեղադրեք հետևյալ բանաձևը D2 բջիջում և սեղմեք Ctrl + Shift + Մուտք ստեղները միասին ՝ առաջին արդյունքն ստանալու համար, տես նկարի նկարը.
4. Եվ այնուհետև ընտրեք այս բանաձևի բջիջը և քաշեք լրացման բռնակը ներքև, մինչև հայտնվեն դատարկ բջիջներ: Այժմ դուք կարող եք տեսնել, որ նշված սյունակի տվյալների բոլոր համակցությունները ցուցադրվում են ստորև ներկայացված ցուցադրման ձևով.
Թվարկեք բոլոր հնարավոր համակցությունները մեկ սյունակից VBA կոդով
Վերոնշյալ բանաձևերը հասանելի են միայն Excel-ի նոր տարբերակների համար, եթե ունեք ավելի վաղ Excel տարբերակներ, ապա հետևյալ VBA կոդը կարող է ձեզ լավություն անել:
1. Մամուլ Alt + F11 ստեղները միաժամանակ բացելու համար Microsoft Visual Basic հավելվածների համար պատուհան.
2, Դրանից հետո կտտացրեք Տեղադրել > Մոդուլներ, պատճենեք և տեղադրեք ստորև նշված VBA կոդը պատուհանում:
VBA կոդ. թվարկեք բոլոր հնարավոր համակցությունները մեկ սյունակից
Sub ConnectArr()
'Updateby ExtendOffice
Dim xDValue As Variant
Dim xOutRg As Range
Dim xDictionary As Object
Dim xF As Long
Dim xChar As String
xDValue = Range("A2:A6").Value 'the data range
Set xOutRg = Range("C1") 'output range
xChar = "," 'separator
For xF = 1 To UBound(xDValue)
Set xDictionary = CreateObject("Scripting.Dictionary")
xDictionary(0) = "Sets of " & xF
Call ConnectValue(xDValue, xDictionary, 0, xF, 0, "", xChar)
xOutRg.Offset(0, xF - 1).Resize(xDictionary.Count).Value = WorksheetFunction.Transpose(xDictionary.Items)
Set xDictionary = Nothing
Next
End Sub
Sub ConnectValue(ByRef pDValue, ByRef pDictionary, ByRef pLevel, ByVal pMaxLevel, ByVal pIndex, ByVal pValue, ByVal pChar)
Dim xF As Long
If pLevel = pMaxLevel Then
pDictionary(pDictionary.Count + 1) = pValue
Exit Sub
End If
For xF = pIndex + 1 To UBound(pDValue)
If pValue = "" Then
Call ConnectValue(pDValue, pDictionary, pLevel + 1, pMaxLevel, xF, pDValue(xF, 1), pChar)
Else
Call ConnectValue(pDValue, pDictionary, pLevel + 1, pMaxLevel, xF, pValue & pChar & pDValue(xF, 1), pChar)
End If
Next
End Sub
- A2: A6: այն տվյալների ցանկն է, որը ցանկանում եք օգտագործել.
- C1ելքային բջիջն է;
- ,: սահմանազատիչը՝ համակցությունները բաժանելու համար:
3. Եվ հետո, սեղմեք F5 բանալին՝ այս կոդը գործարկելու համար: Մեկ սյունակի բոլոր համակցությունները թվարկված են ստորև ներկայացված սքրինշոթում.
Գրասենյակի արտադրողականության լավագույն գործիքները
Լրացրեք ձեր Excel-ի հմտությունները Kutools-ի հետ Excel-ի համար և փորձեք արդյունավետությունը, ինչպես երբեք: Kutools-ը Excel-ի համար առաջարկում է ավելի քան 300 առաջադեմ առանձնահատկություններ՝ արտադրողականությունը բարձրացնելու և ժամանակ խնայելու համար: Սեղմեք այստեղ՝ Ձեզ ամենաշատ անհրաժեշտ հատկանիշը ստանալու համար...
Office Tab- ը Tabbed ինտերֆեյսը բերում է Office, և ձեր աշխատանքը շատ ավելի դյուրին դարձրեք
- Միացնել ներդիրներով խմբագրումը և ընթերցումը Word, Excel, PowerPoint- ով, Հրատարակիչ, Access, Visio և Project:
- Բացեք և ստեղծեք բազմաթիվ փաստաթղթեր նույն պատուհանի նոր ներդիրներում, այլ ոչ թե նոր պատուհաններում:
- Բարձրացնում է ձեր արտադրողականությունը 50%-ով և նվազեցնում մկնիկի հարյուրավոր սեղմումները ձեզ համար ամեն օր: