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

Conas gach teaglaim de 3 cholún nó níos mó a ghiniúint in Excel?

Ag ceapadh, tá 3 cholún sonraí agam, anois, ba mhaith liom gach teaglaim de na sonraí sna 3 cholún seo a ghiniúint nó a liostáil mar atá thíos an pictiúr a thaispeántar. An bhfuil aon mhodhanna maithe agat chun an tasc seo a réiteach in Excel?

Cruthaigh gach teaglaim bunaithe ar 3 cholún sonraí trí fhoirmle a úsáid

Cruthaigh gach teaglaim bunaithe ar 3 cholún sonraí nó níos mó trí chód VBA a úsáid

Cruthaigh gach teaglaim bunaithe ar 3 cholún sonraí nó níos mó trí ghné uamhnach a úsáid


Cruthaigh gach teaglaim bunaithe ar 3 cholún sonraí trí fhoirmle a úsáid

Is féidir leis an bhfoirmle fhada seo a leanas cabhrú le gach teaglaim de 3 cholún a liostáil, déan mar seo:

1. Le do thoil, cliceáil cill áit ar féidir an toradh a aschur, agus ansin déan an fhoirmle thíos a chóipeáil agus a ghreamú inti:

=IFERROR(INDEX($A$2:$A$4,INT((ROW(1:1)-1)/((COUNTA($B$2:$B$6)*(COUNTA($C$2:$C$5)))))+1)&"-"&INDEX($B$2:$B$6,MOD(INT((ROW(1:1)-1)/COUNTA($C$2:$C$5)),COUNTA($B$2:$B$6))+1)&"-"&INDEX($C$2:$C$5,MOD((ROW(1:1)-1),COUNTA($C$2:$C$5))+1),"")

nótaí: San fhoirmle seo: A2: A4, B2: B6, C2: C5 is iad na raonta sonraí a theastaíonn uait a úsáid.

2. Ansin, tarraing an láimhseáil líonta síos go dtí na cealla go dtí go dtaispeántar cealla bána, is é sin le rá gur liostaíodh gach teaglaim de na 3 cholún, féach an scáileán:


Cruthaigh gach teaglaim bunaithe ar 3 cholún sonraí nó níos mó trí chód VBA a úsáid

Tá sé deacair an fhoirmle fhada thuas a úsáid, má tá ilcholúin ann is gá sonraí a úsáid, beidh sé trioblóideach í a mhodhnú. Anseo, tabharfaidh mé cód VBA isteach chun déileáil leis go tapa.

1. Coinnigh síos an ALT + F11 eochracha a oscailt Microsoft Visual Basic d’Fheidhmchláir fhuinneog.

2. Cliceáil Ionsáigh > Modúil, agus greamaigh an cód seo a leanas i bhFuinneog an Mhodúil.

Cód VBA: Cruthaigh gach teaglaim de 3 cholún nó níos mó

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

nótaí: Sa chód thuas, A2: A4, B2: B6, C2: C5 an bhfuil an raon sonraí a theastaíonn uait a úsáid, E2 an cill aschuir is mian leat na torthaí a aimsiú. Más mian leat gach teaglaim de níos mó colún a fháil, athraigh agus cuir paraiméadair eile leis an gcód mar do riachtanas.

3. Ansin, brúigh F5 eochair chun an cód seo a rith, agus ginfear gach teaglaim de na 3 cholún nó níos mó ag an am céanna, féach an scáileán:


Cruthaigh gach teaglaim bunaithe ar 3 cholún sonraí nó níos mó trí ghné uamhnach a úsáid

Má tá tú Kutools le haghaidh Excel, lena chumhachtach Liostaigh Gach Teaglaim gné, is féidir leat gach teaglaim de ilcholúin a liostáil go tapa agus go héasca.

Leideanna:Chun é seo a chur i bhfeidhm Liostaigh Gach Teaglaim gné, ar dtús, ba cheart duit an Kutools le haghaidh Excel, agus ansin an ghné a chur i bhfeidhm go tapa agus go héasca.

Tar éis a shuiteáil Kutools le haghaidh Excel, déan mar seo le do thoil:

1. Cliceáil Kutools > Ionsáigh > Liostaigh Gach Teaglaim, féach ar an scáileán:

2. Sa an Liostaigh Gach Teaglaim bosca dialóige, sonraigh sonraí na gcolún agus na deighilteoirí chun na teaglamaí a liostáil mar a leanas an pictiúr a thaispeántar:

3. Tar éis na sonraí agus an deighilteoir a shocrú, ansin, cliceáil Ok cnaipe, sa chéad bhosca pras eile, roghnaigh cill chun an toradh a aimsiú, féach an scáileán:

4. Agus ansin, cliceáil OK cnaipe, gineadh gach teaglaim láithreach mar atá thíos an pictiúr a thaispeántar:

Cliceáil chun Íoslódáil Kutools le haghaidh Excel agus triail saor in aisce Anois!


  • Barra Foirmle Super (cuir línte iolracha téacs agus foirmle in eagar go héasca); Leagan Amach Léitheoireachta (líon mór cealla a léamh agus a chur in eagar go héasca); Greamaigh go dtí an Raon Scagtha...
  • Cumaisc Cealla / Sraitheanna / Colúin agus Sonraí a Choinneáil; Ábhar Cealla Scoilt; Comhcheangail Sraitheanna Dúblacha agus Suim / Meán... Cill Dúblach a Chosc; Déan comparáid idir Ranganna...
  • Roghnaigh Dúblach nó Uathúil Sraitheanna; Roghnaigh Blank Rows (tá na cealla uile folamh); Aimsigh Super agus Fuzzy Aimsigh i go leor Leabhar Oibre; Roghnaigh go randamach ...
  • Cóip Díreach Cealla Il gan tagairt fhoirmle a athrú; Tagairtí Cruthaigh Auto chuig Bileoga Il; Cuir Urchair isteach, Boscaí Seiceála agus go leor eile ...
  • Foirmlí is Fearr agus Cuir isteach go tapa, Ranganna, Cairteacha agus Pictiúir; Cealla a Chriptiú le pasfhocal; Cruthaigh Liosta Ríomhphoist agus seol ríomhphoist ...
  • Sliocht Téacs, Cuir Téacs leis, Bain de réir Poist, Bain Spás; Subtotals Paging a chruthú agus a phriontáil; Tiontaigh Idir Ábhar Cealla agus Tráchtanna...
  • Scagaire Super (scéimeanna scagaire a shábháil agus a chur i bhfeidhm ar bhileoga eile); Ard-Sórtáil de réir míosa / seachtaine / lae, minicíocht agus níos mó; Scagaire Speisialta le cló trom, iodálach ...
  • Comhcheangail Leabhair Oibre agus Bileoga Oibre; Cumaisc Táblaí bunaithe ar eochaircholúin; Roinn Sonraí i Ilbhileoga; Baisc Tiontaigh xls, xlsx agus PDF...
  • Grúpáil Tábla Pivot de réir uimhir na seachtaine, lá na seachtaine agus níos mó ... Taispeáin Cealla Díghlasáilte, Faoi Ghlas de réir dathanna éagsúla; Aibhsigh Cealla a bhfuil Foirmle / Ainm orthu...
cluaisín kte 201905
  • Cumasaigh eagarthóireacht agus léamh tabbed i Word, Excel, PowerPoint, Foilsitheoir, Rochtain, Visio agus Tionscadal.
  • Oscail agus cruthaigh cáipéisí iolracha i gcluaisíní nua den fhuinneog chéanna, seachas i bhfuinneoga nua.
  • Méadaíonn do tháirgiúlacht 50%, agus laghdaíonn sé na céadta cad a tharlaíonn nuair luch duit gach lá!
bun officetab
Sórtáil tuairimí de réir
Comments (17)
Níl rátálacha ar bith fós. Bí ar an gcéad duine a rátáil!
Rinne an modhnóir ar an láithreán an trácht seo a íoslaghdú
Chun aon teaglaim randamach a ghiniúint is féidir linn a úsáid
=INDEX($A$2:$A$4,RANDBETWEEN(1,3))&"-"&INDEX($B$2:$B$6,RANDBETWEEN(1,5))&"-"&INDEX($C$2:$C$5,RANDBETWEEN(1,4))
Rinne an modhnóir ar an láithreán an trácht seo a íoslaghdú
Go raibh míle maith agat as an bpostáil seo a roinnt. Míle buíochas le @Balaji as a fhoirmle
Rinne an modhnóir ar an láithreán an trácht seo a íoslaghdú
NÍ FÉIDIR LIOM Go raibh maith agat go leor! Shábháil mé AN méid sin ama!
Rinne an modhnóir ar an láithreán an trácht seo a íoslaghdú
Conas a dhéanamh faoi bhun na foirmle le haghaidh 5 cholún? Ag iarraidh a dhéanamh amach ach a earráid a thabhairt
=IFERROR(INDEX($A$2:$A$4,INT((ROW(1:1)-1)/((COUNTA($B$2:$B$6)*(COUNTA($C$2:$C$5)))))+1)&"-"&INDEX($B$2:$B$6,MOD(INT((ROW(1:1)-1)/COUNTA($C$2:$C$5)),COUNTA($B$2:$B$6))+1)&"-"&INDEX($C$2:$C$5,MOD((ROW(1:1)-1),COUNTA($C$2:$C$5))+1),"")
Rinne an modhnóir ar an láithreán an trácht seo a íoslaghdú
Dia duit, Nikhil,Chun gach teaglaim a fháil ó 5 cholún, d'fhéadfadh an cód VBA thíos cabhrú leat, le do thoil athraigh na tagairtí cille do do shonraí.
Fo-liostaGach Comhcheangail()
'Updateby Extendoffice
Dim xDRg1, xDRg2, xDRg3, xDRg4, xDRg5 Mar Raon
Dim xRg Mar Raon
Dim xStr Mar Teaghrán
Dim xFN1, xFN2, xFN3, xFN4, xFN5 Mar Shlánuimhir
Dim xSV1, xSV2, xSV3, xSV4, xSV5 Mar Teaghrán
Socraigh xDRg1 = Raon ("A2: A7") 'Sonraí an chéad cholúin
Socraigh xDRg2 = Raon ("B2:B7") 'Sonraí an dara colún
Socraigh xDRg3 = Raon ("C2:C7") 'Sonraí tríú colún
Socraigh xDRg4 = Raon ("D2: D7") 'Sonraí ceathrú colún
Socraigh xDRg5 = Raon ("E2: E7") 'Sonraí an chúigiú colún
xStr = " -" 'Deighilteoir
Socraigh xRg = Raon ("H2") 'Cill aschuir
Le haghaidh xFN1 = 1 Go xDRg1.Count
xSV1 = xDRg1.Item(xFN1).Text
Le haghaidh xFN2 = 1 Go xDRg2.Count
xSV2 = xDRg2.Item(xFN2).Text
Le haghaidh xFN3 = 1 Go xDRg3.Count
xSV3 = xDRg3.Item(xFN3).Text
Le haghaidh xFN4 = 1 Go xDRg4.Count
xSV4 = xDRg4.Item(xFN4).Text
Le haghaidh xFN5 = 1 Go xDRg5.Count
xSV5 = xDRg5.Item(xFN5).Text
xRg.Value = xSV1 & xStr &xSV2 & xStr & xSV3 & xStr & xSV4 & xStr & xSV5
Socraigh xRg = xRg.Offset(1, 0)
Ar Aghaidh
Ar Aghaidh
Ar Aghaidh
Ar Aghaidh
Ar Aghaidh
Críochnaigh Fo le do thoil, tá súil agam gur féidir leis cabhrú leat!
Rinne an modhnóir ar an láithreán an trácht seo a íoslaghdú
Dia duit skyyang, d'athraigh mé an cód le haghaidh 7 rolla, ach ós rud é go bhfaca Excel ach 1,048,576 sraitheanna ní féidir leis an gcód VBA na teaglamaí go léir a thabhairt. An bhfuil smaoineamh agat conas is féidir liom leanúint ar aghaidh ar cholúin eile? Sílim gur gá an cód seo - Set xRg = xRg.Offset(1, 0) a athrú
Rinne an modhnóir ar an láithreán an trácht seo a íoslaghdú
Dia duit skyyang, d'athraigh mé an cód le haghaidh 7 rolla, ach ós rud é go bhfaca Excel ach 1,048,576 sraitheanna ní féidir leis an gcód VBA na teaglamaí go léir a thabhairt.
An bhfuil tuairim agat conas is féidir liom leanúint ar aghaidh ar cholúin eile?
Sílim go bhfuil an cód seo - Socraigh xRg = xRg.Offset(1, 0)
gá a athrú 
Rinne an modhnóir ar an láithreán an trácht seo a íoslaghdú
=IFERROR(INDEX($A$2:$A$5,INT((ROW(1:1)-1)/((COUNTA($B$2:$B$3)*(COUNTA($C$2:$C$3)* (COUNTA($D$2:$D$4)* (COUNTA($E$2:$E$6)* (COUNTA($H$2:$H$6)* (COUNTA($G$2:$G$6)* (COUNTA($H$2:$H$6))))))))))+1)&"-"&INDEX($B$2:$B$3,MOD(INT((ROW(1:1)-1)/COUNTA($C$2:$C$3)),COUNTA($B$2:$B$3))+1)&"-" &INDEX($C$2:$C$3,MOD(INT((ROW(1:1)-1)/COUNTA($D$2:$D$4)),COUNTA($C$2:$C$3))+1)&"-" &INDEX($D$2:$D$4,MOD(INT((ROW(1:1)-1)/COUNTA($E$2:$E$6)),COUNTA($D$2:$D$4))+1)&"-" &INDEX($E$2:$E$6,MOD(INT((ROW(1:1)-1)/COUNTA($F$2:$F$6)),COUNTA($E$2:$E$6))+1)&"-" &INDEX($F$2:$F$6,MOD(INT((ROW(1:1)-1)/COUNTA($G$2:$G$6)),COUNTA($F$2:$F$6))+1)&"-" &INDEX($G$2:$G$6,MOD(INT((ROW(1:1)-1)/COUNTA($H$2:$H$6)),COUNTA($G$2:$G$6))+1)&"-"&INDEX($H$2:$H$6,MOD((ROW(1:1)-1),COUNTA($H$2:$H$6))+1),"")
Rinne an modhnóir ar an láithreán an trácht seo a íoslaghdú
Teastaíonn an fhoirmle seo uaim le haghaidh 4 cholún
Rinne an modhnóir ar an láithreán an trácht seo a íoslaghdú
Go raibh míle maith agat. Go díreach cad atá uaim :-)))
Rinne an modhnóir ar an láithreán an trácht seo a íoslaghdú
Go raibh míle maith agat as an gcód seo. Tá an cód modhnaithe agam don mhéid colún a theastaíonn uaim (25). Go raibh maith agat,
Rinne an modhnóir ar an láithreán an trácht seo a íoslaghdú
Cód VBA HiIn úsáid mé ceithre cholún agus raon na colún ná E2:E75, B2:B267, C2:C195 & D2:D267. Is é J2 an raon aschuir. Sa chás seo sháraigh an toradh a cuireadh amach teorainn na sraithe. Cabhraigh le do thoil an earráid a réiteach
Rinne an modhnóir ar an láithreán an trácht seo a íoslaghdú
Dia duit Mar sin seo cód le haghaidh 9 gcolún :')
Fo-liostaGach Comhcheangail()
'Updateby Extendoffice
Dim xDRg1, xDRg2, xDRg3, xDRg4, xDRg5, xDRg6, xDRg7, xDRg8, xDRg9 Mar Raon
Dim xRg Mar Raon
Dim xStr Mar Teaghrán
Dim xFN1, xFN2, xFN3, xFN4, xFN5, xFN6, xFN7, xFN8, xFN9 Mar Shlánuimhir
Dim xSV1, xSV2, xSV3, xSV4, xSV5, xSV6, xSV7, xSV8, xSV9 Mar Teaghrán
Socraigh xDRg1 = Raon ("A2: A3") 'Sonraí an chéad cholúin
Socraigh xDRg2 = Raon ("B2:B3") 'Sonraí an dara colún
Socraigh xDRg3 = Raon ("C2:C10") 'Sonraí tríú colún
Socraigh xDRg4 = Raon ("D2:D2") 'Sonraí tríú colún
Socraigh xDRg5 = Raon ("E2:E3") 'Sonraí tríú colún
Socraigh xDRg6 = Raon ("F2: F3") 'Sonraí tríú colún
Socraigh xDRg7 = Raon ("G2: G4") 'Sonraí tríú colún
Socraigh xDRg8 = Raon ("H2:H3") 'Sonraí an tríú colún
Socraigh xDRg9 = Raon ("I2:I3") 'Sonraí an tríú colún
xStr = " -" 'Deighilteoir
Socraigh xRg = Raon ("K2") 'Cill aschuir
Le haghaidh xFN1 = 1 Go xDRg1.Count
xSV1 = xDRg1.Item(xFN1).Text
Le haghaidh xFN2 = 1 Go xDRg2.Count
xSV2 = xDRg2.Item(xFN2).Text
Le haghaidh xFN3 = 1 Go xDRg3.Count
xSV3 = xDRg3.Item(xFN3).Text
Le haghaidh xFN4 = 1 Go xDRg4.Count
xSV4 = xDRg4.Item(xFN4).Text
Le haghaidh xFN5 = 1 Go xDRg5.Count
xSV5 = xDRg5.Item(xFN5).Text
Le haghaidh xFN6 = 1 Go xDRg6.Count
xSV6 = xDRg6.Item(xFN6).Text
Le haghaidh xFN7 = 1 Go xDRg7.Count
xSV7 = xDRg7.Item(xFN7).Text
Le haghaidh xFN8 = 1 Go xDRg8.Count
xSV8 = xDRg8.Item(xFN8).Text
Le haghaidh xFN9 = 1 Go xDRg9.Count
xSV9 = xDRg9.Item(xFN9).Text
xRg.Value=xSV1&xStr&xSV2&xStr&xSV3&xStr&xSV4&xStr&xSV5&xStr&xSV6&xStr&xSV7&xStr&xSV8&xStr&xSV9
Socraigh xRg = xRg.Offset(1, 0)
Ar Aghaidh
Ar Aghaidh
Ar Aghaidh
Ar Aghaidh
Ar Aghaidh
Ar Aghaidh
Ar Aghaidh
Ar Aghaidh
Ar Aghaidh
Fo Deireadh
Rinne an modhnóir ar an láithreán an trácht seo a íoslaghdú
조합의 나열을 “단어-단어-단어” 순으로 나열하는 법은 이해했습니다.
그런데 “단어” 가 아니라 숫자일 경우,
Ceoltóir(í):

‘VBA 코드 : 3 개 또는 여러 열의 모든 조합생성’ 에서 말이죠.

"1-1-1" 로 엑셀에 결과 값이 표기되는 것이 아니고

-1 로 엑셀에 표기될수 있게 말입니다.
Rinne an modhnóir ar an láithreán an trácht seo a íoslaghdú
Bonjour, comment faire pour que chaque valeurs soient placées dans une colonne distincte en non séparées par un tiret ?
Rinne an modhnóir ar an láithreán an trácht seo a íoslaghdú
Is é seo an cód me ajudou bastante e combinou um mír de cada coluna entre elas. Mas também preciso combinar dois itens de cada coluna, semi repetição. Alguém poderia me ajudar nisso?
Rinne an modhnóir ar an láithreán an trácht seo a íoslaghdú
Is é seo an cód me ajudou bastante e combinou um mír de cada coluna entre elas. Mas também preciso combinar dois itens de cada coluna, semi repetição. Alguém poderia me ajudar nisso?
Níl aon tráchtanna curtha suas anseo go fóill
Fág do chuid tuairimí
Ag postáil mar Aoi
×
Ráta an post seo:
0   Carachtair
Suímh Molta

Lean orainn

Cóipcheart © 2009 - www.extendoffice.com. | Gach ceart ar cosaint. Cumhachtaithe ag ExtendOffice. | léarscáil an tSuímh
Is trádmharcanna nó trádmharcanna cláraithe de chuid Microsoft Corporation sna Stáit Aontaithe agus / nó i dtíortha eile iad lógó Office agus Office.
Cosanta ag Sectigo SSL