1. Apri il file Excel che desideri dividere.
2. Premi Alt+F11 per aprire l'editor di Visual Basic.
3. Nell'Esplora progetto , fai clic con il pulsante destro del mouse su ThisWorkbook modulo e seleziona Inserisci> Modulo .
4. Copia il seguente codice nel modulo:
```
Righe divise secondarie()
Dim era come foglio di lavoro
Dim i tanto a lungo, j quanto a lungo
Dim nome file come stringa
Dim cella come intervallo
Per ogni cosa in ThisWorkbook.Worksheets
i =2 'Inizia dalla seconda riga (intestazione)
j =1 'Contatore per i nuovi file
nomefile =ws.Nome &"_" &j
Workbooks.Add.Worksheets(1).Name =ws.Name
While Cells(i, 1) <> "" 'Loop fino all'ultima cella non vuota
Righe(i).Destinazione copia:=Cartelle di lavoro(nome file).Fogli(1).Righe(j)
Se i Mod 1000 =0 Allora
ActiveWorkbook.SaveAs Nome file:=nome file, FileFormat:=xlWorkbookDefault, CreateBackup:=False
Application.DisplayAlerts =Falso
ActiveWorkbook.Close
Debug.Print "Divisione " &ws.Name &" in " &nome file
j =j + 1
Workbooks.Add.Worksheets(1).Name =ws.Name
nomefile =ws.Nome &"_" &j
Fine se
io =io + 1
Wend
ActiveWorkbook.SaveAs Nome file:=nome file, FileFormat:=xlWorkbookDefault, CreateBackup:=False
Application.DisplayAlerts =Falso
ActiveWorkbook.Close
Debug.Print "Suddivisione completata di " &ws.Name &" in file " &j &""
Il prossimo w
Debug.Print "Tutti i fogli di lavoro sono stati divisi correttamente"
Application.DisplayAlerts =Vero
Fine sott
```
5. Chiudere il Visual Basic Editor e tornare al file Excel.
6. Fai clic su Sviluppatore scheda e quindi fare clic su Macro pulsante.
7. Nella Macro finestra di dialogo, seleziona SplitRows macro e fai clic su Esegui pulsante.
Opzione 2:utilizzo del testo in colonne
1. Apri il file Excel che desideri dividere.
2. Seleziona le celle che desideri dividere in file separati.
3. Vai ai Dati scheda e fai clic su Testo in colonne pulsante.
4. Nel Testo in colonne procedura guidata, seleziona Delimitato opzione e fai clic su Avanti .
5. Nei Delimitatori sezione, seleziona la virgola casella di controllo e fai clic su Avanti .
6. Nell'Anteprima dati sezione, verifica che i dati siano suddivisi correttamente e fai clic su Fine .
7. I dati selezionati verranno suddivisi in colonne separate.
8. Salva ogni colonna come file separato andando su File scheda, facendo clic su Salva con nome e scegliendo la cartella di lavoro di Excel formato del file.
Domanda © www.354353.com