Sut i gynhyrchu pob cyfuniad o 3 neu fwy o golofnau yn Excel?
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?
Cynhyrchu pob cyfuniad yn seiliedig ar 3 colofn o ddata trwy ddefnyddio fformiwla
Cynhyrchu pob cyfuniad yn seiliedig ar 3 neu sawl colofn o ddata trwy ddefnyddio cod VBA
Cynhyrchu pob cyfuniad yn seiliedig ar 3 neu sawl colofn o ddata trwy ddefnyddio nodwedd anhygoel
Cynhyrchu pob cyfuniad yn seiliedig ar 3 colofn o ddata trwy ddefnyddio fformiwla
Gall y fformiwla hir ganlynol helpu i restru'r holl gyfuniadau o 3 colofn, gwnewch fel hyn:
1. Os gwelwch yn dda, cliciwch cell lle i allbwn y canlyniad, ac yna copïwch a gludwch y fformiwla isod i mewn iddi:
Nodyn: Yn y fformiwla hon: A2: A4, B2: B6, C2: C5 yw'r ystodau data rydych chi am eu defnyddio.
2. Yna, llusgwch y ddolen llenwi i lawr i'r celloedd nes bod celloedd gwag yn cael eu harddangos, mae hynny'n golygu bod pob cyfuniad o'r 3 colofn wedi'u rhestru, gweler y screenshot:
Cynhyrchu pob cyfuniad yn seiliedig ar 3 neu sawl colofn o ddata trwy ddefnyddio cod VBA
Mae'r fformiwla hir uchod ychydig yn anodd ei defnyddio, os oes sawl colofn y mae angen i ddata ei defnyddio, 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 Ffenestr Modiwl.
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:A4") 'First column data
Set xDRg2 = Range("B2:B6") 'Second column data
Set xDRg3 = Range("C2:C5") '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: A4, B2: B6, C2: C5 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 neu luosog ar unwaith, gweler y screenshot:
Cynhyrchu pob cyfuniad yn seiliedig ar 3 neu sawl colofn o ddata trwy ddefnyddio nodwedd anhygoel
Os oes gennych Kutools ar gyfer Excel, gyda'i bwerus Rhestrwch Pob Cyfuniad nodwedd, gallwch chi restru'r holl gyfuniadau o golofnau lluosog 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, nodwch ddata'r colofnau a'r gwahanyddion ar gyfer rhestru'r cyfuniadau fel y llun a ddangosir isod:
3. Ar ôl gosod y data a'r gwahanydd, yna, cliciwch Ok botwm, yn y blwch prydlon nesaf, dewiswch gell i ddod o hyd i'r canlyniad, gweler y screenshot:
4. Ac yna, cliciwch OK botwm, cynhyrchwyd yr holl gyfuniadau ar unwaith fel isod dangosir y llun:
Cliciwch i Lawrlwytho Kutools ar gyfer Excel a threial am ddim Nawr!
Yr Offer Cynhyrchedd Swyddfa Gorau
Kutools ar gyfer Excel Yn Datrys y Rhan fwyaf o'ch Problemau, ac Yn Cynyddu Eich Cynhyrchiant 80%
- 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 a Cadw Data; Cynnwys Celloedd Hollt; Cyfuno Rhesi Dyblyg a Swm / Cyfartaledd... 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 ...
- Fformiwlâu Hoff a Mewnosod yn Gyflym, Meysydd, Siartiau a Lluniau; Amgryptio Celloedd gyda chyfrinair; Creu Rhestr Bostio ac anfon e-byst ...
- 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...
- Grwpio Tabl Pivot yn ôl rhif wythnos, diwrnod o'r wythnos a mwy ... Dangos Celloedd Datgloi, wedi'u Cloi yn ôl gwahanol liwiau; Amlygu Celloedd sydd â Fformiwla / Enw...
- 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!