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

Sut i restru'r holl gyfuniadau posibl o golofn sengl yn Excel?

Os ydych chi am ddychwelyd yr holl gyfuniadau posibl o ddata colofn sengl i gael y canlyniad fel y dangosir y sgrinlun isod, a oes gennych chi unrhyw ffyrdd cyflym o ddelio â'r dasg hon yn Excel?

Rhestrwch yr holl gyfuniadau posibl o golofn sengl gyda fformiwlâu

Rhestrwch yr holl gyfuniadau posibl o golofn sengl gyda chod VBA


Rhestrwch yr holl gyfuniadau posibl o golofn sengl gyda fformiwlâu

Gall y fformiwlâu arae canlynol eich helpu i gyflawni'r swydd hon, gwnewch gam wrth gam:

1. Yn gyntaf, dylech greu dwy gell fformiwla cynorthwyydd. Yng nghell C1, rhowch y fformiwla isod, a gwasgwch Ctrl + Shift + Enter allweddi i gael y canlyniad:

=MAX(LEN(A2:A6))
Nodyn: Yn y fformiwla hon, A2: A6 yw'r rhestr o gelloedd yr ydych am restru eu cyfuniadau.

2. Yng nghell C2, rhowch y fformiwla ganlynol, a gwasgwch Ctrl + Shift + Enter allweddi gyda'i gilydd i gael yr ail ganlyniad, gweler y sgrinlun:

=CONCAT(A2:A6&REPT(" ",C2-LEN(A2:A6)))
Nodyn: Yn y fformiwla hon, A2: A6 yw'r rhestr o gelloedd rydych chi am restru eu cyfuniadau, C2 ydy'r gell yn cynnwys y fformiwla a grewyd gennych yng ngham 1.

3. Yna, copïwch a gludwch y fformiwla ganlynol yng nghell D2, a gwasgwch Ctrl + Shift + Enter allweddi gyda'i gilydd i gael y canlyniad cyntaf, gweler y screenshot:

=IF(ROW()>2^(COUNTA(A$2:A$6)),"",TEXTJOIN(" + ",TRUE,IF(MID(TEXT(DEC2BIN(ROW()-1),REPT("0",COUNTA($A$2:$A$6))),ROW(INDIRECT("1:"&COUNTA($A$2:$A$6))),1)+0,TRIM(MID($C$3,(ROW(INDIRECT("1:"&COUNTA($A$2:$A$6)))-1)*$C$2+1,$C$2)),"")))
Nodyn: Yn y fformiwla hon, A2: A6 yw'r rhestr o gelloedd rydych chi am restru eu cyfuniadau, C2 a yw'r gell yn cynnwys y fformiwla a grewyd gennych yng ngham 1, C3 yw'r gell gyda'r fformiwla a grëwyd gennych yng ngham 2, y + cymeriad yw'r gwahanydd i wahanu'r cyfuniadau, gallwch eu newid i'ch angen.

4. Ac yna, dewiswch y gell fformiwla hon, a llusgwch y ddolen llenwi i lawr nes bod celloedd gwag yn ymddangos. Nawr, gallwch weld pob cyfuniad o'r data colofn penodedig yn cael eu harddangos fel y dangosir y demo isod:

Nodyn: Mae'r fformiwla hon ar gael yn Office 2019, 365 a fersiwn diweddarach yn unig.

Rhestrwch yr holl gyfuniadau posibl o golofn sengl gyda chod VBA

Mae'r fformiwlâu uchod ar gael ar gyfer fersiynau Excel mwy newydd yn unig, os oes gennych fersiynau Excel cynharach, gall y cod VBA canlynol wneud ffafr i chi.

1. Gwasgwch Alt + F11 allweddi ar yr un pryd i agor y Microsoft Visual Basic ar gyfer Ceisiadau ffenestr.

2. Yna, cliciwch Mewnosod > Modiwlau, copïwch a gludwch y cod VBA isod i'r ffenestr.

Cod VBA: Rhestrwch yr holl gyfuniadau posibl o golofn sengl

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
Nodyn: Yn y cod uchod:
  • A2: A6: yw'r rhestr o ddata yr ydych am ei ddefnyddio;
  • C1: yw'r gell allbwn;
  • ,: y amffinydd i wahanu'r cyfuniadau.

3. Ac Yna, pwyswch F5 allwedd i weithredu'r cod hwn. Mae'r holl gyfuniadau o'r golofn sengl wedi'u rhestru fel y sgrinlun a ddangosir isod:


Yr Offer Cynhyrchedd Swyddfa Gorau

Mae Kutools for Excel yn Datrys y rhan fwyaf o'ch Problemau, ac yn Cynyddu Eich Cynhyrchedd 80%

  • Ailddefnyddio: Mewnosod yn gyflym fformwlâu cymhleth, siartiau ac unrhyw beth rydych chi wedi'i ddefnyddio o'r blaen; Amgryptio Celloedd gyda chyfrinair; Creu Rhestr Bostio ac anfon e-byst ...
  • Bar Fformiwla Gwych (golygu llinellau lluosog o destun a fformiwla yn hawdd); Cynllun Darllen (darllen a golygu nifer fawr o gelloedd yn hawdd); Gludo i'r Ystod Hidlo...
  • Uno Celloedd / Rhesi / Colofnau heb golli Data; Cynnwys Celloedd Hollt; Cyfuno Rhesi / Colofnau Dyblyg... Atal Celloedd Dyblyg; Cymharwch y Meysydd...
  • Dewiswch Dyblyg neu Unigryw Rhesi; Dewiswch Blank Rows (mae pob cell yn wag); Darganfyddiad Gwych a Darganfyddiad Niwlog mewn Llawer o Lyfrau Gwaith; Dewis ar Hap ...
  • Copi Union Celloedd Lluosog heb newid cyfeirnod fformiwla; Auto Creu Cyfeiriadau i Daflenni Lluosog; Mewnosod Bwledi, Blychau Gwirio a mwy ...
  • Testun Detholiad, Ychwanegu Testun, Tynnu yn ôl Swydd, Tynnwch y Gofod; Creu ac Argraffu Subtotals Paging; Trosi rhwng Cynnwys a Sylwadau Celloedd...
  • Hidlo Super (arbed a chymhwyso cynlluniau hidlo i ddalenni eraill); Trefnu Uwch yn ôl mis / wythnos / dydd, amlder a mwy; Hidlo Arbennig gan feiddgar, italig ...
  • Cyfuno Llyfrau Gwaith a Thaflenni Gwaith; Uno Tablau yn seiliedig ar golofnau allweddol; Rhannwch Ddata yn Daflenni Lluosog; Trosi Swp xls, xlsx a PDF...
  • Mwy na 300 o nodweddion pwerus. Yn cefnogi Swyddfa / Excel 2007-2019 a 365. Yn cefnogi pob iaith. Defnydd hawdd yn eich menter neu sefydliad. Nodweddion llawn treial am ddim 30 diwrnod. Gwarant arian yn ôl 60 diwrnod.
tab kte 201905

Mae Tab Office yn Dod â rhyngwyneb Tabbed i'r Swyddfa, a 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!
gwaelod officetab
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