Skip to main content

Kutools per Office — Una Suite. Cinque Strumenti. Ottieni di Più.

Come generare o elencare tutte le possibili permutazioni in Excel?

Author Xiaoyang Last modified

Ad esempio, ho tre caratteri XYZ e ora voglio elencare tutte le possibili permutazioni basate su questi tre caratteri per ottenere sei risultati diversi come: XYZ, XZY, YXZ, YZX, ZXY e ZYX. In Excel, come potresti generare rapidamente o elencare tutte le permutazioni basate su un numero diverso di caratteri?

Genera o elenca tutte le possibili permutazioni basate sui caratteri con il codice VBA


arrow blue right bubble Genera o elenca tutte le possibili permutazioni basate sui caratteri con il codice VBA

Il seguente codice VBA può aiutarti a elencare tutte le permutazioni in base al numero specifico di lettere; procedi come segue:

1. Tieni premuti i tasti ALT + F11 per aprire la finestra Microsoft Visual Basic for Applications.

2. Clicca su Inserisci > Modulo e incolla il seguente codice nella finestra del Modulo.

Codice VBA: Elenca tutte le possibili permutazioni in Excel

Sub GetString()
'Updateby Extendoffice
    Dim xStr As String
    Dim FRow As Long
    Dim xScreen As Boolean
    xScreen = Application.ScreenUpdating
    Application.ScreenUpdating = False
    xStr = Application.InputBox("Enter text to permute:", "Kutools for Excel", , , , , , 2)
    If Len(xStr) < 2 Then Exit Sub
    If Len(xStr) >= 8 Then
        MsgBox "Too many permutations!", vbInformation, "Kutools for Excel"
        Exit Sub
    Else
        ActiveSheet.Columns(1).Clear
        FRow = 1
        Call GetPermutation("", xStr, FRow)
    End If
    Application.ScreenUpdating = xScreen
End Sub
Sub GetPermutation(Str1 As String, Str2 As String, ByRef xRow As Long)
    Dim i As Integer, xLen As Integer
    xLen = Len(Str2)
    If xLen < 2 Then
        Range("A" & xRow) = Str1 & Str2
        xRow = xRow + 1
    Else
        For i = 1 To xLen
            Call GetPermutation(Str1 + Mid(Str2, i, 1), Left(Str2, i - 1) + Right(Str2, xLen - i), xRow)
        Next
    End If
End Sub

3. Quindi premi il tasto F5 per eseguire questo codice, e apparirà una finestra di dialogo che ti ricorderà di inserire i caratteri per i quali vuoi elencare tutte le permutazioni, vedi screenshot:

enter the characters that you want to list all permutations in the box

4. Dopo aver inserito i caratteri, fai clic sul pulsante OK e tutte le possibili permutazioni verranno visualizzate nella colonna A del foglio di lavoro attivo. Vedi screenshot:

all the possible permutations are displayed

Nota: Se la lunghezza dei caratteri inseriti è uguale o maggiore di 8 caratteri, questo codice non funzionerà perché ci sono troppe permutazioni.

the entered character length is not equal or greater than 8 characters


Elenca o genera tutte le possibili combinazioni da più colonne

Se hai bisogno di generare tutte le possibili combinazioni basate sui dati di più colonne, forse non c'è un buon modo per gestire l'attività. Ma, Kutools per Excel's Elencare tutte le combinazioni utilità può aiutarti a elencare tutte le possibili combinazioni rapidamente e facilmente. Clicca per scaricare Kutools per Excel!

list all combinations by kutools

Kutools per Excel: con oltre 300 utili add-in per Excel, prova gratuita senza limitazioni per 30 giorni. Scarica e prova gratuita adesso!

I migliori strumenti per la produttività in Office

🤖 Kutools AI Aide: Rivoluziona l’analisi dei dati grazie a: Esecuzione intelligente | Genera codice | Crea formule personalizzate | Analizza dati e crea grafici | Attiva Funzioni avanzate
Funzionalità più usate: Trova, evidenziazione o contrassegna duplicati | Elimina righe vuote | Unisci colonne o celle senza perdere dati | Arrotonda senza formula...
Super RICERCA.VERT: Ricerca VERT per criteri multipli | Ricerca VERT per valori multipli | Ricerca su più fogli | Corrispondenza approssimativa...
Elenco a discesa avanzato: Crea rapidamente un elenco a discesa | Elenco a discesa dipendente | Elenco a discesa multi-selezione...
Gestore colonne: Aggiungi un numero specifico di colonne | Sposta colonne | Cambia stato di visibilità delle colonne nascoste | Confronta intervalli & colonne...
Funzionalità in primo piano: Attenzione della griglia | Visualizzazione di progettazione | Barra delle formule avanzata | Gestore di cartelle di lavoro & fogli | Libreria AutoText | Selettore di data | Unisci dati | Crittografa/Decrittografa celle | Invia Email per elenco | Super Filtri | Filtro speciale (filtra grassetto/corsivo/barrato...)...
Top15 strumenti:12 strumenti Testo (Aggiungi testo, Elimina Caratteri Specifici, ...) |50+ tipi di grafico (Diagramma di Gantt, ...) |40+ formule pratiche (Calcola letà in base alla data di nascita, ...) |19 strumenti di inserimento (Inserisci codice QR, Inserisci Immagine da percorso, ...) |12 strumenti di conversione (Converti in parole, Conversione valuta, ...) |7 strumenti Unione & Dividi (Unione avanzata righe, Dividi celle, ...) | ... e altro ancora
Usa Kutools nella lingua che preferisci – supporta Inglese, Spagnolo, Tedesco, Francese, Cinese e oltre40 altre lingue!

Potenzia le tue competenze in Excel con Kutools per Excel e sperimenta un'efficienza mai vista prima. Kutools per Excel offre oltre300 funzionalità avanzate per aumentare la produttività e farti risparmiare tempo. Clicca qui per ottenere la funzione di cui hai più bisogno...


Office Tab porta le schede su Office e rende il tuo lavoro molto più semplice

  • Abilita la modifica e lettura a schede in Word, Excel, PowerPoint, Publisher, Access, Visio e Project.
  • Apri e crea più documenti in nuove schede della stessa finestra invece che in nuove finestre.
  • Aumenta la produttività del50% e riduce centinaia di clic del mouse ogni giorno!

Tutti gli add-in Kutools. Un solo programma di installazione

La suite Kutools for Office include add-in per Excel, Word, Outlook & PowerPoint più Office Tab Pro, ideale per i team che lavorano su più app di Office.

Excel Word Outlook Tabs PowerPoint
  • Suite tutto-in-uno — Add-in per Excel, Word, Outlook & PowerPoint + Office Tab Pro
  • Un solo programma di installazione, una sola licenza — configurazione in pochi minuti (pronto per MSI)
  • Funzionano meglio insieme — produttività ottimizzata su tutte le app Office
  • Prova completa30 giorni — nessuna registrazione, nessuna carta di credito
  • Massimo risparmio — costa meno rispetto all’acquisto singolo degli add-in