Come inserire un numero specifico di colonne a intervalli fissi in Excel?

Nel tuo utilizzo quotidiano di Excel, potresti imbatterti in una situazione di cui hai bisogno aggiungi più colonne tra le colonne esistenti. Ovviamente puoi inserire le colonne una per una usando la funzione Inserisci. Ma quando stai di fronte a dati di grandi dimensioni e devi inserire tre colonne dopo ogni seconda o ennesima colonna, la funzione Inserisci apparentemente non è efficace. Quindi, come puoi completare rapidamente l'attività? In questo tutorial parleremo di due semplici metodi per risolvere il problema.

Inserisci il numero specifico di colonne vuote nell'intervallo di dati a intervalli fissi con il codice VBA

Inserisci un numero specifico di colonne vuote nell'intervallo di dati a intervalli fissi con una funzionalità straordinaria

---

Possiamo usare quanto segue Codice VBA per inserire un numero specifico di colonne vuote dopo ogni ennesima colonna. Si prega di fare come segue.

1. premi il Alt + F11 chiavi in ​​Excel e apre il file Microsoft Visual Basic, Applications Edition finestra.

2. Clic inserire > Modulo e incolla la seguente macro nel file Modulo Finestra.

Codice VBA: inserisci un numero specifico di colonne nei dati a intervalli fissi

Sub InsertColumnsAtIntervals()
'Updateby Extendoffice
Dim Rng As Range
Dim xInterval As Integer
Dim xColumns As Integer
Dim xColumnsCount As Integer
Dim xNum1 As Integer
Dim xNum2 As Integer
Dim WorkRng As Range
Dim xWs As Worksheet
xTitleId = "KutoolsforExcel"
Set WorkRng = Application.Selection
Set WorkRng = Application.InputBox("Range", xTitleId, WorkRng.Address, Type:=8)
xColumnsCount = WorkRng.Columns.Count
xInterval = Application.InputBox("Enter column interval. ", xTitleId, 1, Type:=1)
xColumns = Application.InputBox("How many columns to insert at each interval? ", xTitleId, 1, Type:=1)
xNum1 = WorkRng.Column + xInterval
xNum2 = xColumns + xInterval
Set xWs = WorkRng.Parent
For i = 1 To Int(xColumnsCount / xInterval)
    xWs.Range(xWs.Cells(WorkRng.Row, xNum1), xWs.Cells(WorkRng.Row, xNum1 + xColumns - 1)).Select
   Application.Selection.EntireColumn.Insert
    xNum1 = xNum1 + xNum2
Next
End Sub

3. premi il F5 chiave per eseguire questo codice. Viene visualizzata una finestra di messaggio per ricordarti di selezionare il intervallo di dati in cui vuoi inserire colonne vuote.

4. Fare clic sul OK pulsante. Viene visualizzata un'altra finestra di messaggio, per favore inserisci il numero di intervalli di colonne nel Immettere l'intervallo di colonna scatola.

5. Continuare a fare clic su OK pulsante. Viene visualizzata la terza finestra di richiesta, specificare il numero di colonne che vuoi inserire ad ogni intervallo nella scatola.

6. Fare clic sul OK pulsante per ottenere il risultato.

---

Se non si desidera utilizzare il metodo del codice VBA, il Inserisci righe e colonne vuote caratteristica di Kutools for Excel è la soluzione perfetta per te. Con questa funzione, puoi inserire il numero specifico di colonne nell'intervallo di dati a intervalli fissi in pochi clic.

Prima di applicare Kutools for Excel, scaricalo e installalo prima.

1. Selezionare prima l'intervallo di dati esistente. Quindi fare clic Kutools > inserire > Inserisci righe e colonne vuote.

2. il Inserisci righe e colonne vuote si apre la finestra di dialogo. È possibile visualizzare l'intervallo di dati selezionato nel passaggio 1 nella casella Intervallo. Scegli il Colonne vuote opzione nel Inserisci tipo sezione. E specificare il numero di intervalli di colonne e colonne che vuoi inserire ad ogni intervallo. Qui inserisco 1 e 3 separatamente.

3. Fare clic sul OK per terminare l'impostazione e ottenere il risultato.

Note:: Se desideri avere una prova gratuita (30 giorni) di questa utilità, fai clic per scaricarla, quindi vai ad applicare l'operazione secondo i passaggi precedenti.

---