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:
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:
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:
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:
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
- 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:
Offer Cynhyrchiant Swyddfa Gorau
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...
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!