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

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

Nel foglio di lavoro di Excel è possibile inserire una riga vuota tra le righe esistenti utilizzando la funzione Inserisci. Ma, se disponi di una vasta gamma di dati e devi inserire due righe vuote ogni tre o tre righe, come potresti finire questo lavoro in modo rapido e conveniente?


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

Il seguente codice VBA può aiutarti a inserire un numero specifico di righe dopo ogni ennesima riga all'interno dei dati esistenti. Si prega di fare quanto segue:

1. Tieni premuto il ALT + F11 chiavi in ​​Excel e apre il file Microsoft Visual Basic, Applications Edition finestra.

2. Clic inserire > Moduloe incolla il codice seguente nel file Finestra del modulo.

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

Sub InsertRowsAtIntervals()
'Updateby Extendoffice
Dim Rng As Range
Dim xInterval As Integer
Dim xRows As Integer
Dim xRowsCount 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)
xRowsCount = WorkRng.Rows.Count
xInterval = Application.InputBox("Enter row interval. ", xTitleId, 1, Type:=1)
xRows = Application.InputBox("How many rows to insert at each interval? ", xTitleId, 1, Type:=1)
xNum1 = WorkRng.Row + xInterval
xNum2 = xRows + xInterval
Set xWs = WorkRng.Parent
For i = 1 To Int(xRowsCount / xInterval)
    xWs.Range(xWs.Cells(xNum1, WorkRng.Column), xWs.Cells(xNum1 + xRows - 1, WorkRng.Column)).Select
    Application.Selection.EntireRow.Insert
    xNum1 = xNum1 + xNum2
Next
End Sub

3. Dopo aver incollato questo codice, premere F5 tasto per eseguire questo codice, verrà visualizzata una finestra di messaggio per ricordarti di selezionare l'intervallo di dati in cui desideri inserire righe vuote, vedi screenshot:

4. Clic OK pulsante, verrà visualizzata un'altra finestra di messaggio, immettere il numero di intervalli di riga, vedere screenshot:

5. Continua a fare clic OK pulsante, nella seguente finestra di messaggio spuntata, inserisci il numero di righe vuote che desideri inserire, vedi screenshot:

6. Quindi fare clic OKe le righe vuote sono state inserite nei dati esistenti a intervalli regolari, vedere screenshot:


Inserisci un numero specifico di righe vuote nell'intervallo di dati in base ai valori delle celle con codice VBA

A volte, potrebbe essere necessario inserire le righe vuote in base a un elenco di valori di cella, in questo caso, il codice VBA sottostante può farti un favore, per favore fai come segue:

1. Tieni premuto il ALT + F11 chiavi in ​​Excel e apre il file Microsoft Visual Basic, Applications Edition finestra.

2. Clic inserire > Moduloe incolla il codice seguente nel file Finestra del modulo.

Codice VBA: inserisci un numero specifico di righe vuote in base a un elenco di numeri:

Sub Insertblankrowsbynumbers ()
'UpdatebyExtendoffice
Dim xRg As Range
Dim xAddress As String
Dim I, xNum, xLastRow, xFstRow, xCol, xCount As Long
On Error Resume Next
xAddress = ActiveWindow.RangeSelection.Address
Set xRg = Application.InputBox("Select the spefic number column to use(single column):", "Kutools For Excel", xAddress, , , , , 8)
If xRg Is Nothing Then Exit Sub
Application.ScreenUpdating = False
xLastRow = xRg(1).End(xlDown).Row
xFstRow = xRg.Row
xCol = xRg.Column
xCount = xRg.Count
Set xRg = xRg(1)
For I = xLastRow To xFstRow Step -1
xNum = Cells(I, xCol)
If IsNumeric(xNum) And xNum > 0 Then
Rows(I + 1).Resize(xNum).Insert
xCount = xCount + xNum
End If
Next
xRg.Resize(xCount, 1).Select
Application.ScreenUpdating = True
End Sub

3. Dopo aver incollato questo codice, premere F5 tasto per eseguire questo codice, nella finestra di dialogo spuntata, selezionare l'elenco di numeri in cui si desidera inserire righe vuote in base a, vedere screenshot:

4. Quindi, fare clic OKe otterrai i risultati di cui hai bisogno come mostrato nelle seguenti schermate:


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

Se non hai familiarità con il codice VBA sopra, Kutools for Excel può anche aiutarti, suo Inserisci righe e colonne vuote la funzione può inserire un numero specifico di righe o colonne nei dati esistenti a intervalli fissi in modo rapido e semplice.

NOTA:Per applicare questo Inserisci righe e colonne vuote , in primo luogo, dovresti scaricare il file Kutools for Excele quindi applica la funzione in modo rapido e semplice.

Dopo l'installazione Kutools for Excel, si prega di fare come segue:

1. Seleziona l'intervallo di dati in cui desideri inserire righe vuote a intervalli.

2. Clic Kutools > inserire > Inserisci righe e colonne vuote, vedi screenshot:

3. Nel Inserisci righe e colonne vuote finestra di dialogo, scegliere Righe vuote opzione dal Inserisci tipo, quindi specifica il numero di intervalli e di righe vuote che desideri utilizzare come mostrato nella seguente schermata:

4. Quindi fare clic OK pulsante e le righe vuote sono state inserite nell'intervallo selezionato a un intervallo specifico come mostrato nella seguente schermata:

Scarica e prova gratuitamente Kutools per Excel ora!


Copia e inserisci righe più volte in base a numeri specifici con codice VBA

Supponendo che tu abbia un intervallo di tada e ora, desideri copiare ogni riga e incollarla più volte nella riga successiva in base a un elenco di numeri come mostrato di seguito. Come potrebbe risolvere questa attività nel foglio di lavoro di Excel?

Per affrontare questo lavoro, introdurrò un codice utile per te, per favore fai con i seguenti passaggi:

1. Tieni premuto il ALT + F11 chiavi in ​​Excel e apre il file Microsoft Visual Basic, Applications Edition finestra.

2. Clic inserire > Moduloe incolla il codice seguente nel file Finestra del modulo.

Codice VBA: copia e inserisci righe più volte in base a numeri specifici:

Sub CopyRows()
'UpdatebyExtendoffice
Dim xRg As Range
Dim xCRg As Range
Dim xFNum As Integer
Dim xRN As Integer
On Error Resume Next
SelectRange:
xTxt = ActiveWindow.RangeSelection.Address
Set xRg = Application.InputBox("Select the list of numbers to copy the rows based on: ", "Kutools for Excel", xTxt, , , , , 8)
If xRg Is Nothing Then Exit Sub

If xRg.Columns.Count > 1 Then
MsgBox "Please select single column!"
GoTo SelectRange
End If
Application.ScreenUpdating = False
For xFNum = xRg.Count To 1 Step -1
Set xCRg = xRg.Item(xFNum)
xRN = CInt(xCRg.Value)
With Rows(xCRg.Row)
.Copy
.Resize(xRN).Insert
End With
Next
Application.ScreenUpdating = True
End Sub

3. Dopo aver incollato questo codice, premere F5 tasto per eseguire questo codice, nella finestra di dialogo spuntata, selezionare l'elenco di numeri che si desidera copiare e inserire le righe di dati in base a, vedere screenshot:

4. Quindi, fare clic OK pulsante e il numero specifico di righe è stato copiato e incollato sotto ogni riga originale, vedere screenshot:


Copia e inserisci righe più volte in base a numeri specifici con una funzionalità straordinaria

Se si dispone di Kutools for Excel, Con la sua Righe / colonne duplicate in base al valore della cella caratteristica, è possibile inserire le righe o le colonne in base all'elenco di numeri in modo rapido e semplice.

NOTA:Per applicare questo Righe / colonne duplicate in base al valore della cella, in primo luogo, dovresti scaricare il file Kutools for Excele quindi applica la funzione in modo rapido e semplice.

Dopo l'installazione Kutools for Excel, si prega di fare come segue:

1. Clic Kutools > inserire > Righe / colonne duplicate in base al valore della cella, vedi screenshot:

2. Nel Copia e inserisci righe e colonne finestra di dialogo, selezionare Copia e inserisci righe opzione nel Tipologia sezione, quindi seleziona l'intervallo di dati che desideri duplicare, quindi specifica l'elenco di valori su cui desideri copiare le righe in base, vedi screenshot:

4. Quindi, fare clic Ok or APPLICA pulsante, otterrai il seguente risultato di cui hai bisogno:

Scarica e prova gratuitamente Kutools per Excel ora!

Articoli più relativi:

  • Copia e inserisci la riga più volte o duplica la riga X volte
  • Nel tuo lavoro quotidiano, hai mai provato a copiare una riga o ogni riga e quindi inserire più volte sotto la riga di dati corrente in un foglio di lavoro? Ad esempio, ho un intervallo di celle, ora, voglio copiare ogni riga e incollarle 3 volte nella riga successiva come mostrato nella seguente schermata. Come hai potuto affrontare questo lavoro in Excel?
  • Inserisci righe vuote quando il valore cambia in Excel
  • Supponendo di avere un intervallo di dati e ora si desidera inserire righe vuote tra i dati quando il valore cambia, in modo da poter separare gli stessi valori sequenziali in una colonna come mostrato nelle schermate seguenti. In questo articolo, parlerò di alcuni trucchi per risolvere questo problema.
  • Copia righe da più fogli di lavoro in base a criteri in un nuovo foglio
  • Supponiamo che tu abbia una cartella di lavoro con tre fogli di lavoro che hanno la stessa formattazione mostrata nell'immagine sottostante. Ora, vuoi copiare tutte le righe da questi fogli di lavoro la cui colonna C contiene il testo "Completato" in un nuovo foglio di lavoro. Come hai potuto risolvere questo problema rapidamente e facilmente senza copiarli e incollarli uno per uno manualmente?

I migliori strumenti per la produttività in ufficio

Kutools per Excel risolve la maggior parte dei tuoi problemi e aumenta la tua produttività dell'80%

  • Riutilizzo: Inserisci rapidamente formule complesse, grafici e tutto ciò che hai usato prima; Crittografa celle con password; Crea mailing list e invia email ...
  • Bar Super Formula (modifica facilmente più righe di testo e formula); Layout di lettura (leggi e modifica facilmente un gran numero di celle); Incolla su intervallo filtrato...
  • Unisci celle / righe / colonne senza perdere dati; Contenuto delle celle divise; Combina righe / colonne duplicate... Impedisci celle duplicate; Confronta intervalli...
  • Seleziona Duplica o Unico Righe; Seleziona Righe vuote (tutte le celle sono vuote); Super Find e Fuzzy Find in molte cartelle di lavoro; Selezione casuale ...
  • Copia esatta Più celle senza modificare il riferimento della formula; Riferimenti di creazione automatica a più fogli; Inserisci punti elenco, Caselle di controllo e altro ...
  • Estrai testo, Aggiungi testo, Rimuovi per posizione, Rimuovi spazio; Creare e stampare totali parziali di paging; Converti contenuto e commenti tra celle...
  • Super filtro (salva e applica schemi di filtri ad altri fogli); Ordinamento avanzato per mese / settimana / giorno, frequenza e altro; Filtro speciale in grassetto, corsivo ...
  • Combina cartelle di lavoro e fogli di lavoro; Unisci tabelle in base a colonne chiave; Suddividi i dati in più fogli; Conversione in batch xls, xlsx e PDF...
  • Più di 300 potenti funzionalità. Supporta Office/Excel 2007-2021 e 365. Supporta tutte le lingue. Facile implementazione nella tua azienda o organizzazione. Funzionalità complete Prova gratuita di 30 giorni. Garanzia di rimborso di 60 giorni.
scheda kte 201905

Scheda Office porta l'interfaccia a schede a Office e semplifica notevolmente il lavoro

  • Abilita la modifica e la lettura a schede in Word, Excel, PowerPoint, Publisher, Access, Visio e Project.
  • Apri e crea più documenti in nuove schede della stessa finestra, piuttosto che in nuove finestre.
  • Aumenta la produttività del 50% e riduce ogni giorno centinaia di clic del mouse!
fondo officetab
Commenti (39)
Rinomato 5 su 5 · Valutazioni 2
Questo commento è stato fatto dal moderatore sul sito
Ciao, sto usando il tuo codice (sotto) puoi dirmi come riempire quelle righe con testo personalizzato al suo interno. Ho usato il tuo codice per inserire tre righe, ha funzionato perfettamente, ma ora devo inserire il testo Riga1 = Data Riga2.= Posizione Riga3 = Numero di telefono Grazie in anticipo... "Sub InsertRowsAtIntervals() 'Updateby20150707 Dim Rng As Range Dim xInterval As Integer Dim xRows As Integer Dim xRowsCount 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) xRowsCount = WorkRng.Rows.Count xInterval = Application.InputBox("Enter row interval. ", xTitleId, 1, Type:=1) xRows = Application.InputBox("Quante righe da inserire ad ogni intervallo? ", xTitleId, 1, Type:=1) xNum1 = WorkRng.Row + xInterval xNum2 = xRows + xInterval Set xWs = WorkRng.Parent For i = 1 To Int(xRowsCount / xInterval) xWs.Range(xWs .Cells(xNum1, WorkRng.Column), xWs.Cells(xNum1 + xRows - 1, WorkRng.Column)).Seleziona Application.Selection.EntireRow.Insert xNum1= xNum1 + xNum2 Next End Sub"
Questo commento è stato fatto dal moderatore sul sito
grazie mille!!!!! questo è fantastico
Questo commento è stato fatto dal moderatore sul sito
Molte grazie!!
Questo commento è stato fatto dal moderatore sul sito
Hi


Uso il codice interval vba che funziona..Ma quando uso oltre 100000 righe non funziona.. suggerisci gentilmente cosa dovrei cambiare se presente.


Sub InsertRowsAtIntervals()
'Aggiornamento entro il 20150707
Dim Rng come intervallo
Dim xInterval As Integer
Dim xRighe come intero
Dim xRowsCount come intero
Dim xNum1 come intero
Dim xNum2 come intero
Dim WorkRng come intervallo
Dim xWs come foglio di lavoro
xTitleId = "KtoolsforExcel"
Imposta WorkRng = Selezione.Applicazione
Imposta WorkRng = Application.InputBox("Range", xTitleId, WorkRng.Address, Tipo:=8)
xRowsCount = WorkRng.Rows.Count
xInterval = Application.InputBox("Enter row interval. ", xTitleId, 1, Type:=1)
xRows = Application.InputBox("Quante righe inserire in ogni intervallo?", xTitleId, 1, Type:=1)
xNum1 = WorkRng.Row + xInterval
xNum2 = xRighe + xIntervallo
Imposta xWs = WorkRng.Parent
For i = 1 To Int(xRowsCount / xInterval)
xWs.Range(xWs.Cells(xNum1, WorkRng.Column), xWs.Cells(xNum1 + xRighe - 1, WorkRng.Column)).Seleziona
Application.Selection.EntireRow.Insert
xNum1 = xNum1 + xNum2
Successiva
End Sub
Questo commento è stato fatto dal moderatore sul sito
Fantastico: mi hai risparmiato un sacco di immissione di dati senza cervello, grazie mille
Questo commento è stato fatto dal moderatore sul sito
ciao come posso ottenere il codice per inserire un numero specifico di colonne nei dati a intervalli fissi
Questo commento è stato fatto dal moderatore sul sito
Ciao, PK,
Per inserire colonne vuote nei dati esistenti a intervalli specifici, il codice VBA sottostante può aiutarti! Per favore, provalo.

Sub InsertColumnsAtIntervals()
Dim Rng come intervallo
Dim xInterval As Integer
Dim xCs come intero
Dim xCCount As Integer
Dim xNum1 come intero
Dim xNum2 come intero
Dim WorkRng come intervallo
Dim xWs come foglio di lavoro
xTitleId = "KtoolsforExcel"
Imposta WorkRng = Selezione.Applicazione
Imposta WorkRng = Application.InputBox("Range", xTitleId, WorkRng.Address, Tipo:=8)
xCCount = WorkRng.Columns.Count
xInterval = Application.InputBox("Enter column interval. ", xTitleId, 1, Type:=1)
xCs = Application.InputBox("Quante colonne inserire ad ogni intervallo?", xTitleId, 1, Type:=1)
xNum1 = WorkRng.Column + xInterval
xNum2 = xCs + xIntervallo
Imposta xWs = WorkRng.Parent
For I = 1 To Int(xCCount / xInterval)
xWs.Range(xWs.Cells(WorkRng.Row, xNum1 + xCs - 1), xWs.Cells(WorkRng.Row, xNum1)).Seleziona
Application.Selection.EntireColumn.Insert
xNum1 = xNum1 + xNum2
Successiva
End Sub
Questo commento è stato fatto dal moderatore sul sito
Come aggiungere righe nei dati Excel secondo il numero menzionato nell'ultima cella, ad esempio in un dato Excel se l'ultima cella mostra il numero come 4 , qual è il modo per dd 4 righe automaticamente. in un'altra riga il numero è 72, ecc
Questo commento è stato fatto dal moderatore sul sito
Ciao, SPGupta,
Per inserire righe vuote in base a un elenco di numeri specifico, applicare il codice VBA sottostante.
Per favore, prova, spero che possa aiutarti!

Sottoscrivi()
'Aggiorna entroExtendoffice
Dim xRg come intervallo
Dim xAddress come stringa
Dim I, xNum, xLastRow, xFstRow, xCol, xCount As Long
On Error Resume Next
xAddress = ActiveWindow.RangeSelection.Address
Set xRg = Application.InputBox ("Seleziona la colonna del numero specifico da utilizzare (colonna singola):", "KuTools per Excel", xAddress, , , , , 8)
Se xRg non è niente, esci da Sub
Application.ScreenUpdating = False
xUltimaRiga = xRg(1).End(xlDown).Riga
xFstRow = xRg.Row
xCol = xRg.Colonna
Conteggio x = Conteggio xRg
Imposta xRg = xRg(1)
For I = xLastRow To xFstRow Passaggio -1
xNum = Celle(I, xCol)
Se IsNumeric(xNum) E xNum > 0 Allora
Righe(I + 1).Ridimensiona(xNum).Inserisci
xConteggio = xConteggio + xNum
End If
Successiva
xRg.Resize(xCount, 1).Seleziona
Application.ScreenUpdating = True
End Sub
Questo commento è stato fatto dal moderatore sul sito
Ciao, potresti aiutarmi, per favore? Come posso modificare questo codice per aggiungere una riga in meno rispetto al numero nella cella? Ad esempio, se il numero nella cella è 4, il programma aggiunge 3 righe. Se il numero nella cella è 1, le righe non vengono aggiunte
Questo commento è stato fatto dal moderatore sul sito
Ciao, Nina,
Per risolvere il tuo compito, utilizza il codice seguente:

Sottoscrivi()
'Aggiorna entroExtendoffice
Dim xRg come intervallo
Dim xAddress come stringa
Dim I, xNum, xLastRow, xFstRow, xCol, xCount As Long
On Error Resume Next
xAddress = ActiveWindow.RangeSelection.Address
Set xRg = Application.InputBox ("Seleziona la colonna del numero specifico da utilizzare (colonna singola):", "KuTools per Excel", xAddress, , , , , 8)
Se xRg non è niente, esci da Sub
Application.ScreenUpdating = False
xUltimaRiga = xRg(1).End(xlDown).Riga
xFstRow = xRg.Row
xCol = xRg.Colonna
Conteggio x = Conteggio xRg
Imposta xRg = xRg(1)
For I = xLastRow To xFstRow Passaggio -1
xNum = Celle(I, xCol)
xNum = xNum - 1
Se IsNumeric(xNum) E xNum > 0 Allora
Righe(I + 1).Ridimensiona(xNum).Inserisci
xConteggio = xConteggio + xNum
End If
Successiva
xRg.Resize(xCount, 1).Seleziona
Application.ScreenUpdating = True
End Sub


Per favore, prova, spero che possa aiutarti!
Questo commento è stato fatto dal moderatore sul sito
Funziona perfettamente, grazie mille!
Questo commento è stato fatto dal moderatore sul sito
Questo è fantastico. Mi chiedo solo... e il mio inglese non è perfetto quindi spero che mi capirai :) .....
È possibile riempire le righe vuote aggiunte con i valori della riga in cui era quel numero parametrico?
Questo commento è stato fatto dal moderatore sul sito
Ciao, Vladimir, intendi inserire righe vuote in base a un elenco di numeri nel foglio di lavoro? In tal caso, si prega di applicare il codice seguente:
Sottoscrivi()
'Aggiorna entroExtendoffice
Dim xRg come intervallo
Dim xAddress come stringa
Dim I, xNum, xLastRow, xFstRow, xCol, xCount As Long
On Error Resume Next
xAddress = ActiveWindow.RangeSelection.Address
Set xRg = Application.InputBox("Seleziona l'elenco di numeri su cui vuoi inserire le righe in base a:", "KuTools For Excel", xAddress, , , , , 8)
Se xRg non è niente, esci da Sub
Application.ScreenUpdating = False
xUltimaRiga = xRg(1).End(xlDown).Riga
xFstRow = xRg.Row
xCol = xRg.Colonna
Conteggio x = Conteggio xRg
Imposta xRg = xRg(1)
For I = xLastRow To xFstRow Passaggio -1
xNum = Celle(I, xCol)
Se IsNumeric(xNum) E xNum > 0 Allora
Righe(I + 1).Ridimensiona(xNum).Inserisci
xConteggio = xConteggio + xNum
End If
Successiva
xRg.Resize(xCount, 1).Seleziona
Application.ScreenUpdating = True
End SubPer favore provalo, se hai altre domande, commenta qui.
Questo commento è stato fatto dal moderatore sul sito
Questo codice è perfetto per inserire righe....Sub Insert()
'Aggiorna entroExtendoffice
Dim xRg come intervallo
Dim xAddress come stringa
Dim I, xNum, xLastRow, xFstRow, xCol, xCount As Long
On Error Resume Next
xAddress = ActiveWindow.RangeSelection.Address
Set xRg = Application.InputBox ("Seleziona la colonna del numero specifico da utilizzare (colonna singola):", "KuTools per Excel", xAddress, , , , , 8)
Se xRg non è niente, esci da Sub
Application.ScreenUpdating = False
xUltimaRiga = xRg(1).End(xlDown).Riga
xFstRow = xRg.Row
xCol = xRg.Colonna
Conteggio x = Conteggio xRg
Imposta xRg = xRg(1)
For I = xLastRow To xFstRow Passaggio -1
xNum = Celle(I, xCol)
xNum = xNum - 1
Se IsNumeric(xNum) E xNum > 0 Allora
Righe(I + 1).Ridimensiona(xNum).Inserisci
xConteggio = xConteggio + xNum
End If
Successiva
xRg.Resize(xCount, 1).Seleziona
Application.ScreenUpdating = True
End Sub

Ma è possibile... copiare i dati in quelle celle vuote dalla riga dove era quel numero parametrico? Posso postare qui una foto? Forse è più facile se ti mostro quello che mi serve :)
Questo commento è stato fatto dal moderatore sul sito
Ciao, Vladimir, potrebbe essere il codice VBA sottostante può aiutarti, per favore provalo. Sub CopyRow()
'Aggiorna entroExtendoffice
Dim xRg come intervallo
Dim xCRg come intervallo
Dim xFNum come intero
Dim xRN come intero
On Error Resume Next
Seleziona intervallo:
xTxt = ActiveWindow.RangeSelection.Address
Set xRg = Application.InputBox("Seleziona l'elenco dei numeri", "Ktools for Excel", xTxt, , , , , 8)
Se xRg non è niente, esci da Sub

Se xRg.Columns.Count > 1 Allora
MsgBox "Seleziona singola colonna!"
Vai a selezionare intervallo
End If
Application.ScreenUpdating = False
Per xFNum = xRg.Count a 1 passaggio -1
Imposta xCRg = xRg.Item(xFNum)
xRN = CInt(xCRg.Valore)
Con righe(xCRg.Row)
.Copia
.Ridimensiona(xRN).Inserisci
Fine Con
Successiva
Application.ScreenUpdating = True
End Sub

Questo commento è stato fatto dal moderatore sul sito
Siamo così vicini :) Tutto ciò di cui ho bisogno ora è una riga in meno rispetto all'ultimo codice VBA, rispetto al valore del numero parametrico. Ad esempio: Se il numero è 8 dobbiamo inserire e copiare 7 righe. Come hai fatto per Nina solo con questa COPIA
Quindi, se il numero è 8, dovremmo avere un totale di 8 righe inserite e copiate e con il codice VBA precedente abbiamo 9.
tnx
Questo commento è stato fatto dal moderatore sul sito
Ciao, In questo caso, il seguente codice potrebbe aiutarti, per favore prova: Sub CopyData()
'Aggiorna entro Extendoffice
Dim xRiga quanto a lungo
Dim VInSertNum come variante
xRiga = 1
Application.ScreenUpdating = False
Fai mentre (Cells(xRow, "A") <> "")
VInSertNum = Celle(xRiga, "B")
Se ((VInSertNum > 1) e IsNumeric(VInSertNum)) Allora
Intervallo(Cells(xRiga, "A"), Celle(xRiga, "B")).Copia
Intervallo(Cells(xRow + 1, "A"), Cells(xRow + VInSertNum - 1, "B")).Seleziona
Selection.Insert Shift: = xlDown
xRiga = xRiga + VInSertNum - 1
End If
xRiga = xRiga + 1
Ciclo continuo
Application.ScreenUpdating = False
End SubNote: nel codice sopra, la lettera A indica la colonna iniziale dell'intervallo di dati e la lettera B è la lettera della colonna su cui desideri duplicare le righe in base. Si prega di modificarli secondo le proprie necessità.
Questo commento è stato fatto dal moderatore sul sito
Hai un modulo che detrae di uno il numero copiato?
Questo commento è stato fatto dal moderatore sul sito
No. Ho questo, ma mi serve per detrarre 1?
Sub CopyRow()
'Aggiorna entroExtendoffice
Dim xRg come intervallo
Dim xCRg come intervallo
Dim xFNum come intero
Dim xRN come intero
On Error Resume Next
Seleziona intervallo:
xTxt = ActiveWindow.RangeSelection.Address
Set xRg = Application.InputBox("Seleziona l'elenco dei numeri", "Ktools for Excel", xTxt, , , , , 8)
Se xRg non è niente, esci da Sub

Se xRg.Columns.Count > 1 Allora
MsgBox "Seleziona singola colonna!"
Vai a selezionare intervallo
End If
Application.ScreenUpdating = False
Per xFNum = xRg.Count a 1 passaggio -1
Imposta xCRg = xRg.Item(xFNum)
xRN = CInt(xCRg.Valore)
Con righe(xCRg.Row)
.Copia
.Ridimensiona(xRN).Inserisci
Fine Con
Successiva
Application.ScreenUpdating = True
End Sub
Questo commento è stato fatto dal moderatore sul sito
Quello che sto cercando di fare è creare e stampare etichette in Word da un foglio di calcolo con più quantità?
Questo commento è stato fatto dal moderatore sul sito
Hai avuto modo di dare un'occhiata a questo?
Questo commento è stato fatto dal moderatore sul sito
L'oro ti benedica
Questo commento è stato fatto dal moderatore sul sito
Cerchi un codice per generare un elenco excel duplicando un numero in una cella e sottraendo 1 per l'originale?
Questo commento è stato fatto dal moderatore sul sito
Grazie autore! Ti meriti il ​​miglior encomio per questi! Ma per favore, potresti aiutarmi con il codice a inserire un valore costante in tutte le righe vuote che ho creato con il tuo codice sopra? Per essere più chiaro, devo inserire un valore costante in tutte le righe vuote (questo è già risolto con il tuo codice sopra), quindi devo inserire un valore costante in tutte le righe vuote (questo è il mio problema). Grazie perché mi aspetto una vostra gentile risposta.
Questo commento è stato fatto dal moderatore sul sito
Ciao, intendi riempire le righe vuote con un valore specifico? In tal caso, il seguente articolo può aiutarti:https://www.extendoffice.com/documents/excel/772-excel-fill-blank-cells-with-0-or-specific-value.html
Per favore, provalo.
Questo commento è stato fatto dal moderatore sul sito
Posso ottenere il codice VBA per l'eliminazione di righe in base a valori duplicati in una colonna selezionata mantenendo tutti i valori univoci?
Questo commento è stato fatto dal moderatore sul sito
Ciao, Roy, se vuoi rimuovere le righe in base a valori duplicati, normalmente puoi usare il file Rimuovi duplicati funzione in Excel per rimuovere le righe. Naturalmente, se è necessario un codice VBA, utilizzare il codice seguente: (In primo luogo, è necessario selezionare l'intervallo di dati che si desidera rimuovere, quindi eseguire questo codice, le righe in base al i valori duplicati nella prima colonna della selezione verranno rimossi immediatamente.) Sub Delete_duplicate_rows()
Dim Rng come intervallo
Imposta Rng = Selezione
Rng.RemoveDuplicates Columns:=Array(1), Header:=xlYes
End SubPer favore prova, spero che possa aiutarti!
Questo commento è stato fatto dal moderatore sul sito
Questo è veramente forte!! Molte grazie
Questo commento è stato fatto dal moderatore sul sito
Muito obrigado, salvou meu trabalho, eu não tinha idea de como fazer. Muito obrigado mesmo!
Questo commento è stato fatto dal moderatore sul sito
Ciao,
Prego. Felice che aiuti. Per tutte le domande, sentitevi liberi di contattarci. Vi auguro una buona giornata.
Cordiali saluti,
Mandy
Questo commento è stato fatto dal moderatore sul sito
puoi dirmi come inserire la colonna in questo modo, qual è il codice
Questo commento è stato fatto dal moderatore sul sito
Ciao amico,
Puoi usare questo codice VBA:

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


Cordiali saluti,
Mandy
Questo commento è stato fatto dal moderatore sul sito
Вот выручили так выручили!
Sidel, lomal голову как добавить строки по заданному количеству.
Le nostre macro non hanno molto tempo.
Rinomato 5 su 5
Questo commento è stato fatto dal moderatore sul sito
Nome E-mail Telefono Indirizzo
0 Nome E-mail Indirizzo di telefono
indirizzo riga 2 Nome Telefono 0
Nome E-mail Telefono Indirizzo
0 Nome E-mail Indirizzo di telefono
indirizzo riga 2 0


Come posso modificarlo per iniziare una nuova riga a ogni valore vuoto o valore 0 senza che i numeri di telefono con 0 inizino una nuova riga?
Questo commento è stato fatto dal moderatore sul sito
Ciao, Jarrod

Scusa, non riesco a capire chiaramente il tuo problema.
Potresti spiegare il tuo problema in modo più dettagliato? Oppure puoi inserire uno screenshot o un file qui.
.
Questo commento è stato fatto dal moderatore sul sito
hola, c'è un codice che mi permette di copiare i dati, ma che nella prima colonna che son fechas può essere consecutivo.

ejemplo

en vez de que quede asi

01/10/2022 19.258.369-4 Juan Ramirez
01/10/2022 19.258.369-4 Juan Ramirez
01/10/2022 19.258.369-4 Juan Ramirez

queda asi

01/10/2022 19.258.369-4 Juan Ramirez
02/10/2022 19.258.369-4 Juan Ramirez
03/10/2022 19.258.369-4 Juan Ramirez

grazie
Questo commento è stato fatto dal moderatore sul sito
hola, c'è un codice che mi permette di copiare i dati, ma che nella prima colonna quei pochi possono essere consecutivi.

ejemplo

en vez de que quede asi

10/01/2022 19.258.369-4 Juan Ramirez
10/01/2022 19.258.369-4 Juan Ramirez
10/01/2022 19.258.369-4 Juan Ramirez

queda asi

10/01/2022 19.258.369-4 Juan Ramirez
11/01/2022 19.258.369-4 Juan Ramirez
12/01/2022 19.258.369-4 Juan Ramirez

grazie
Questo commento è stato fatto dal moderatore sul sito
Meraviglioso copione vba!
Avevo oltre 5000 righe a cui devo aggiungere nuove righe intermedie. Tutte le altre guide mi dicevano che per creare una colonna "helper" mi ci sarebbe voluta buona parte della mia vita per aggiungere 1,2 copia incolla più e più volte solo per aggiungere nuove righe.
Quindi, grazie per questo!
Rinomato 5 su 5
Non ci sono ancora commenti pubblicati qui
Lasciate i vostri commenti
Pubblicazione come ospite
×
Valuta questo post:
0   Personaggi
Posizioni suggerite

Seguici

Copyright © 2009 - www.extendoffice.com. | Tutti i diritti riservati. Offerto da ExtendOffice, | Mappa del sito
Microsoft e il logo Office sono marchi o marchi registrati di Microsoft Corporation negli Stati Uniti e / o in altri paesi.
Protetto da Sectigo SSL