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

Hoe voeg ik een specifiek aantal rijen in met vaste intervallen in Excel?

In een Excel-werkblad kunt u een lege rij tussen bestaande rijen invoegen met de functie Invoegen. Maar als u een groot gegevensbereik heeft en u moet na elke derde of n-de rij twee lege rijen invoegen, hoe kunt u deze taak dan snel en gemakkelijk voltooien?


Voeg een specifiek aantal lege rijen in het gegevensbereik in met vaste intervallen met VBA-code

De volgende VBA-code kan u helpen om een ​​specifiek aantal rijen in te voegen na elke n-de rij in bestaande gegevens. Ga als volgt te werk:

1. Houd de ALT + F11 toetsen in Excel, en het opent het Microsoft Visual Basic voor toepassingen venster.

2. Klikken Invoegen > Moduleen plak de volgende code in het Module Venster.

VBA-code: voeg een specifiek aantal rijen in gegevens in met vaste intervallen

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. Druk na het plakken van deze code op F5 toets om deze code uit te voeren, verschijnt er een promptvenster om u eraan te herinneren het gegevensbereik te selecteren dat u lege rijen wilt invoegen, zie screenshot:

4. Klikken OK knop, er verschijnt een ander promptvenster, voer het aantal rij-intervallen in, zie screenshot:

5. Blijf klikken OK knop, voer in het volgende uitgeklapte promptvenster het aantal lege rijen in dat u wilt invoegen, zie screenshot:

6. Dan klikken OK, en de lege rijen zijn met regelmatige tussenpozen in de bestaande gegevens ingevoegd, zie screenshots:


Voeg een specifiek aantal lege rijen in het gegevensbereik in op basis van celwaarden met VBA-code

Soms moet u de lege rijen invoegen op basis van een lijst met celwaarden, in dit geval kan de onderstaande VBA-code u een plezier doen, doe dit als volgt:

1. Houd de ALT + F11 toetsen in Excel, en het opent het Microsoft Visual Basic voor toepassingen venster.

2. Klikken Invoegen > Moduleen plak de volgende code in het Module Venster.

VBA-code: voeg een specifiek aantal lege rijen in op basis van een lijst met nummers:

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. Druk na het plakken van deze code op F5 sleutel om deze code uit te voeren, selecteer in het uitgeklapte dialoogvenster de lijst met nummers waarop u lege rijen wilt invoegen op basis van, zie screenshot:

4. Dan klikken OK, en je krijgt de resultaten die je nodig hebt als volgende screenshots getoond:


Voeg een specifiek aantal lege rijen in het gegevensbereik in met vaste intervallen met een handige functie

Als u niet bekend bent met bovenstaande VBA-code, Kutools for Excel kan u ook helpen, zijn Voeg lege rijen en kolommen in feature kan snel en gemakkelijk een specifiek aantal rijen of kolommen invoegen in bestaande gegevens met vaste intervallen.

Opmerking:Om dit toe te passen Voeg lege rijen en kolommen in , ten eerste moet u het Kutools for Excelen pas de functie vervolgens snel en gemakkelijk toe.

Na het installeren van Kutools for Excelgaat u als volgt te werk:

1. Selecteer het gegevensbereik waarvoor u met intervallen lege rijen wilt invoegen.

2. Klikken Kutools > Invoegen > Voeg lege rijen en kolommen in, zie screenshot:

3. In de Voeg lege rijen en kolommen in dialoogvenster, kies Lege rijen optie van de Type invoegenen geef vervolgens het aantal intervalrijen en lege rijen op dat u wilt gebruiken, zoals in het volgende screenshot wordt getoond:

4. Dan klikken OK knop, en de lege rijen zijn met een specifiek interval in het geselecteerde bereik ingevoegd zoals in het volgende screenshot:

Download en gratis proef Kutools voor Excel nu!


Kopieer en voeg rijen meerdere keren in op basis van specifieke nummers met VBA-code

Stel dat je een reeks tada's hebt, en nu wil je elke rij kopiëren en meerdere keren in de volgende rij plakken op basis van een lijst met getallen zoals hieronder weergegeven schermafbeeldingen. Hoe kan deze taak in het Excel-werkblad worden opgelost?

Om deze klus te klaren, zal ik een nuttige code voor je introduceren, voer de volgende stappen uit:

1. Houd de ALT + F11 toetsen in Excel, en het opent het Microsoft Visual Basic voor toepassingen venster.

2. Klikken Invoegen > Moduleen plak de volgende code in het Module Venster.

VBA-code: kopieer en voeg rijen meerdere keren in op basis van specifieke nummers:

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. Druk na het plakken van deze code op F5 sleutel om deze code uit te voeren, selecteer in het uitgeklapte dialoogvenster de lijst met nummers die u wilt kopiëren en voeg de gegevensrijen in op basis van, zie screenshot:

4. Dan klikken OK knop, en het specifieke aantal rijen is gekopieerd en geplakt onder elke originele rij, zie screenshots:


Kopieer en voeg rijen meerdere keren in op basis van specifieke nummers met een geweldige functie

Als je Kutools for Excel, Met Dubbele rijen / kolommen op basis van celwaarde functie, kunt u de rijen of kolommen snel en gemakkelijk invoegen op basis van de lijst met getallen.

Opmerking:Om dit toe te passen Dubbele rijen / kolommen op basis van celwaarde, ten eerste moet u het Kutools for Excelen pas de functie vervolgens snel en gemakkelijk toe.

Na het installeren van Kutools for Excelgaat u als volgt te werk:

1. Klikken Kutools > Invoegen > Dubbele rijen / kolommen op basis van celwaarde, zie screenshot:

2. In de Kopieer en voeg rijen en kolommen in dialoogvenster, selecteer Kopieer en voeg rijen in optie in het Type sectie, selecteer vervolgens het gegevensbereik dat u wilt dupliceren en specificeer vervolgens de lijst met waarden waarop u rijen wilt kopiëren op basis van, zie screenshot:

4. Dan klikken Ok or Toepassen knop, krijg je het volgende resultaat als je nodig hebt:

Download en gratis proef Kutools voor Excel nu!

Meer relatieve artikelen:

  • Kopieer en voeg rij meerdere keren in of dupliceer de rij X keer
  • Heeft u in uw dagelijkse werk ooit geprobeerd een rij of elke rij te kopiëren en vervolgens meerdere keren onder de huidige gegevensrij in een werkblad in te voegen? Ik heb bijvoorbeeld een celbereik, nu wil ik elke rij kopiëren en ze 3 keer in de volgende rij plakken zoals in het volgende screenshot. Hoe kon je deze klus in Excel afhandelen?
  • Voeg lege rijen in wanneer waarde verandert in Excel
  • Stel dat u een gegevensbereik heeft en u wilt nu lege rijen tussen de gegevens invoegen wanneer de waarde verandert, zodat u de opeenvolgende dezelfde waarden in één kolom kunt scheiden, zoals in de volgende schermafbeeldingen. In dit artikel zal ik enkele trucs voor je bespreken om dit probleem op te lossen.
  • Voeg een lege rij in na specifieke tekst in Excel
  • Als u lege rijen na een specifieke tekst wilt invoegen zoals in de onderstaande schermafbeelding wordt getoond, hoe kunt u er dan snel en gemakkelijk mee omgaan zonder ze een voor een handmatig in te voegen?
  • Kopieer rijen van meerdere werkbladen op basis van criteria naar een nieuw blad
  • Stel dat u een werkmap heeft met drie werkbladen met dezelfde opmaak als onderstaand screenshot. Nu wilt u alle rijen van deze werkbladen, waarvan kolom C de tekst "Voltooid" bevat, naar een nieuw werkblad kopiëren. Hoe kunt u dit probleem snel en gemakkelijk oplossen zonder ze een voor een handmatig te kopiëren en te plakken?

De beste tools voor kantoorproductiviteit

Kutools voor Excel lost de meeste van uw problemen op en verhoogt uw productiviteit met 80%

  • visfuik: Snel invoegen complexe formules, grafieken en alles wat je eerder hebt gebruikt; Versleutel cellen met wachtwoord; Maak een mailinglijst en stuur e-mails ...
  • Super Formula-balk (bewerk eenvoudig meerdere regels tekst en formule); Lay-out lezen (gemakkelijk grote aantallen cellen lezen en bewerken); Plakken in gefilterd bereik...
  • Voeg cellen / rijen / kolommen samen zonder gegevens te verliezen; Gespleten cellen inhoud; Combineer dubbele rijen / kolommen... Voorkom dubbele cellen; Vergelijk Ranges...
  • Selecteer Dupliceren of Uniek Rijen; Selecteer lege rijen (alle cellen zijn leeg); Super zoeken en fuzzy zoeken in veel werkboeken; Willekeurige selectie ...
  • Exacte kopie Meerdere cellen zonder de formuleverwijzing te wijzigen; Maak automatisch verwijzingen naar meerdere bladen; Plaats kogels, Selectievakjes en meer ...
  • Extraheer tekst, Tekst toevoegen, Verwijderen op positie, Ruimte verwijderen; Paging-subtotalen maken en afdrukken; Converteren tussen celinhoud en opmerkingen...
  • Super filter (bewaar en pas filterschema's toe op andere bladen); Geavanceerd sorteren per maand / week / dag, frequentie en meer; Speciaal filter door vet, cursief ...
  • Combineer werkmappen en werkbladen; Tabellen samenvoegen op basis van sleutelkolommen; Gegevens splitsen in meerdere bladen; Batch Converteer xls, xlsx en PDF...
  • Meer dan 300 krachtige functies. Ondersteunt Office / Excel 2007-2021 en 365. Ondersteunt alle talen. Eenvoudig te implementeren in uw onderneming of organisatie. Volledige functies Gratis proefperiode van 30 dagen. 60 dagen geld-terug-garantie.
kte tabblad 201905

Office-tabblad Brengt een interface met tabbladen naar Office en maakt uw werk veel gemakkelijker

  • Schakel bewerken en lezen met tabbladen in Word, Excel, PowerPoint in, Publisher, Access, Visio en Project.
  • Open en maak meerdere documenten in nieuwe tabbladen van hetzelfde venster in plaats van in nieuwe vensters.
  • Verhoogt uw productiviteit met 50% en vermindert honderden muisklikken voor u elke dag!
officetab onderkant
Heb je vragen? Stel ze hier. (39)
Rated 5 uit 5 · 2 ratings
Deze opmerking is gemaakt door de moderator op de site
Hallo, ik gebruik je code (hieronder) kun je me vertellen hoe je die rijen kunt vullen met aangepaste tekst erin. Ik heb je code gebruikt om drie rijen in te voeren, het werkte perfect, maar nu moet ik de tekst invoeren Row1 = Date Row2.= Locatie Row3 = Phone Number Bij voorbaat... "Sub InsertRowsAtIntervals() 'Updateby20150707 Dim Rng As Range Dim xInterval Als Integer Dim xRows Als Integer Dim xRowsCount Als Integer Dim xNum1 Als Integer Dim xNum2 Als Integer Dim WorkRng As Range Dim xWs As Worksheet xTitleId = "KutoolsforExcel" Set WorkRng = Application.Selection Set WorkRng xTi = Application.Input", , WorkRng.Address, Type:=8) xRowsCount = WorkRng.Rows.Count xInterval = Application.InputBox("Voer rij-interval in. ", xTitleId, 1, Type:=1) xRows = Application.InputBox("Hoeveel rijen invoegen bij elk interval? ", xTitleId, 1, Type:=1) xNum1 = WorkRng.Rij + xInterval xNum2 = xRijen + 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)).Selecteer Application.Selection.EntireRow.Insert xNum1= xNum1 + xNum2 Volgende Einde Sub"
Deze opmerking is gemaakt door de moderator op de site
hartelijk bedankt!!!!! dit is geweldig
Deze opmerking is gemaakt door de moderator op de site
Hartelijk bedankt!!
Deze opmerking is gemaakt door de moderator op de site
Hi


Ik gebruik interval vba-code, het werkt ... Maar als ik meer dan 100000 rijen gebruik, werkt het niet ... stel voor wat ik eventueel moet veranderen.


Sub InsertRowsAtIntervals()
'Bijwerken door20150707'
Dim Rng als bereik
Dim xInterval als geheel getal
Dim xRows als geheel getal
Dim xRowsTellen als geheel getal
Dim xNum1 als geheel getal
Dim xNum2 als geheel getal
Dim WorkRng als bereik
Dim xWs als werkblad
xTitleId = "KutoolsforExcel"
Stel WorkRng = Application.Selection in
Set WorkRng = Application.InputBox("Bereik", xTitleId, WorkRng.Address, Type:=8)
xRowsCount = WorkRng.Rijen.Count
xInterval = Application.InputBox("Voer een rij-interval in. ", xTitleId, 1, Type:=1)
xRows = Application.InputBox("Hoeveel rijen moeten er bij elk interval worden ingevoegd? ", xTitleId, 1, Type:=1)
xNum1 = WorkRng.Rij + xInterval
xGetal2 = xRijen + xInterval
Stel xWs = WorkRng.Parent in
Voor i = 1 Naar Int(xRowsCount / xInterval)
xWs.Bereik(xWs.Cellen(xNum1, WorkRng.Column), xWs.Cells(xNum1 + xRows - 1, WorkRng.Column)).Selecteer
Toepassing.Selectie.Gehele rij.Invoegen
xGetal1 = xGetal1 + xGetal2
Volgende
End Sub
Deze opmerking is gemaakt door de moderator op de site
Fantastisch - je hebt me veel hersenloze gegevensinvoer bespaard, heel erg bedankt
Deze opmerking is gemaakt door de moderator op de site
hallo, hoe kan ik de code krijgen om met vaste tussenpozen een specifiek aantal kolommen in gegevens in te voegen?
Deze opmerking is gemaakt door de moderator op de site
Hallo, PK,
Om met bepaalde tussenpozen lege kolommen in bestaande gegevens in te voegen, kan de onderstaande VBA-code u helpen! Alstublieft probeer het.

Sub InsertColumnsAtIntervals()
Dim Rng als bereik
Dim xInterval als geheel getal
Dim xCs als geheel getal
Dim xCtelling als geheel getal
Dim xNum1 als geheel getal
Dim xNum2 als geheel getal
Dim WorkRng als bereik
Dim xWs als werkblad
xTitleId = "KutoolsforExcel"
Stel WorkRng = Application.Selection in
Set WorkRng = Application.InputBox("Bereik", xTitleId, WorkRng.Address, Type:=8)
xCCount = WorkRng.Columns.Count
xInterval = Application.InputBox("Voer kolominterval in. ", xTitleId, 1, Type:=1)
xCs = Application.InputBox("Hoeveel kolommen moeten er bij elk interval worden ingevoegd? ", xTitleId, 1, Type:=1)
xNum1 = WorkRng.Kolom + xInterval
xGetal2 = xCs + xInterval
Stel xWs = WorkRng.Parent in
Voor I = 1 Naar Int(xCCount / xInterval)
xWs.Bereik(xWs.Cellen(WerkRng.Rij, xNum1 + xCs - 1), xWs.Cellen(WerkRng.Rij, xNum1)).Selecteer
Toepassing.Selectie.Gehele kolom.Invoegen
xGetal1 = xGetal1 + xGetal2
Volgende
End Sub
Deze opmerking is gemaakt door de moderator op de site
Hoe rijen in Excel-gegevens toe te voegen volgens het genoemde nummer in de laatste cel, bijvoorbeeld in een Excel-gegevens als de laatste cel nummer als 4 toont, wat is de manier om automatisch 4 rijen toe te voegen. in een ander rijnummer is 72, enz.
Deze opmerking is gemaakt door de moderator op de site
Hallo, SPGupta,
Om lege rijen in te voegen op basis van een specifieke nummerlijst, past u de onderstaande VBA-code toe.
Probeer het alsjeblieft, ik hoop dat het je kan helpen!

Sub invoegen()
'Bijwerken door'Extendoffice
Dim xRg als bereik
Dim xAdres als string
Dim I, xAantal, xLaatste Rij, xFstRij, xKol, xTel zo lang
On Error Resume Next
xAddress = ActiveWindow.RangeSelection.Address
Set xRg = Application.InputBox ("Selecteer de specifieke nummerkolom die u wilt gebruiken (enkele kolom):", "KuTools For Excel", xAddress, , , , , 8)
Als xRg niets is, sluit dan Sub af
Application.ScreenUpdating = False
xLastRij = xRg(1).Einde(xlOmlaag).Rij
xFstRij = xRg.Rij
xKol = xRg.Kolom
xCount = xRg.Count
Stel xRg = xRg(1) in
Voor I = xLastRij Naar xFstRij Stap -1
xAantal = Cellen(I, xKol)
Als IsNumeriek(xGetal) En xGetal > 0 Dan
Rijen(I + 1).Formaat wijzigen(xNum).Invoegen
xAantal = xAantal + xAantal
End If
Volgende
xRg.Resize(xCount, 1).Select
Application.ScreenUpdating = True
End Sub
Deze opmerking is gemaakt door de moderator op de site
Hallo, zou je me kunnen helpen, alsjeblieft? Hoe kan ik deze code wijzigen in een advertentie minder rijen dan het aantal in de cel? Als het getal in de cel bijvoorbeeld 4 is, voegt u het programma 3 rijen toe. Als het getal in de cel 1 is, worden er geen rijen toegevoegd
Deze opmerking is gemaakt door de moderator op de site
Hallo, Nina,
Gebruik de onderstaande code om uw taak op te lossen:

Sub invoegen()
'Bijwerken door'Extendoffice
Dim xRg als bereik
Dim xAdres als string
Dim I, xAantal, xLaatste Rij, xFstRij, xKol, xTel zo lang
On Error Resume Next
xAddress = ActiveWindow.RangeSelection.Address
Set xRg = Application.InputBox ("Selecteer de specifieke nummerkolom die u wilt gebruiken (enkele kolom):", "KuTools For Excel", xAddress, , , , , 8)
Als xRg niets is, sluit dan Sub af
Application.ScreenUpdating = False
xLastRij = xRg(1).Einde(xlOmlaag).Rij
xFstRij = xRg.Rij
xKol = xRg.Kolom
xCount = xRg.Count
Stel xRg = xRg(1) in
Voor I = xLastRij Naar xFstRij Stap -1
xAantal = Cellen(I, xKol)
xGetal = xGetal - 1
Als IsNumeriek(xGetal) En xGetal > 0 Dan
Rijen(I + 1).Formaat wijzigen(xNum).Invoegen
xAantal = xAantal + xAantal
End If
Volgende
xRg.Resize(xCount, 1).Select
Application.ScreenUpdating = True
End Sub


Probeer het alsjeblieft, ik hoop dat het je kan helpen!
Deze opmerking is gemaakt door de moderator op de site
Het werkt perfect, heel erg bedankt!
Deze opmerking is gemaakt door de moderator op de site
Dit is geweldig. Ik vraag me gewoon af... en mijn Engels is niet perfect, dus ik hoop dat je me begrijpt :) .....
Is het mogelijk om toegevoegde lege rijen te vullen met waarden uit de rij waar dat parameternummer was?
Deze opmerking is gemaakt door de moderator op de site
Hallo, Vladimir, wil je lege rijen invoegen op basis van een lijst met getallen in het werkblad? Pas dan onderstaande code toe:
Sub invoegen()
'Bijwerken door'Extendoffice
Dim xRg als bereik
Dim xAdres als string
Dim I, xAantal, xLaatste Rij, xFstRij, xKol, xTel zo lang
On Error Resume Next
xAddress = ActiveWindow.RangeSelection.Address
Set xRg = Application.InputBox ("Selecteer de lijst met getallen die u wilt invoegen op basis van:", "KuTools For Excel", xAddress, , , , , 8)
Als xRg niets is, sluit dan Sub af
Application.ScreenUpdating = False
xLastRij = xRg(1).Einde(xlOmlaag).Rij
xFstRij = xRg.Rij
xKol = xRg.Kolom
xCount = xRg.Count
Stel xRg = xRg(1) in
Voor I = xLastRij Naar xFstRij Stap -1
xAantal = Cellen(I, xKol)
Als IsNumeriek(xGetal) En xGetal > 0 Dan
Rijen(I + 1).Formaat wijzigen(xNum).Invoegen
xAantal = xAantal + xAantal
End If
Volgende
xRg.Resize(xCount, 1).Select
Application.ScreenUpdating = True
End SubProbeer het eens, als je andere vragen hebt, reageer dan hier.
Deze opmerking is gemaakt door de moderator op de site
Deze code is perfect voor het invoegen van rijen....Sub Insert()
'Bijwerken door'Extendoffice
Dim xRg als bereik
Dim xAdres als string
Dim I, xAantal, xLaatste Rij, xFstRij, xKol, xTel zo lang
On Error Resume Next
xAddress = ActiveWindow.RangeSelection.Address
Set xRg = Application.InputBox ("Selecteer de specifieke nummerkolom die u wilt gebruiken (enkele kolom):", "KuTools For Excel", xAddress, , , , , 8)
Als xRg niets is, sluit dan Sub af
Application.ScreenUpdating = False
xLastRij = xRg(1).Einde(xlOmlaag).Rij
xFstRij = xRg.Rij
xKol = xRg.Kolom
xCount = xRg.Count
Stel xRg = xRg(1) in
Voor I = xLastRij Naar xFstRij Stap -1
xAantal = Cellen(I, xKol)
xGetal = xGetal - 1
Als IsNumeriek(xGetal) En xGetal > 0 Dan
Rijen(I + 1).Formaat wijzigen(xNum).Invoegen
xAantal = xAantal + xAantal
End If
Volgende
xRg.Resize(xCount, 1).Select
Application.ScreenUpdating = True
End Sub

Maar is het mogelijk .... kopieer gegevens in die lege cellen uit de rij waar dat parametrische getal was? Mag ik hier een foto plaatsen? Misschien is het makkelijker als ik je laat zien wat ik nodig heb :)
Deze opmerking is gemaakt door de moderator op de site
Hallo, Vladimir, misschien kan de onderstaande VBA-code je helpen, probeer het alsjeblieft. Sub CopyRij()
'Bijwerken door'Extendoffice
Dim xRg als bereik
Dim xCRg als bereik
Dim xFNum als geheel getal
Dim xRN als geheel getal
On Error Resume Next
SelecteerBereik:
xTxt = ActiveWindow.RangeSelection.Address
Set xRg = Application.InputBox ("Selecteer de nummerlijst", "Kutools for Excel", xTxt, , , , , 8)
Als xRg niets is, sluit dan Sub af

Als xRg.Columns.Count > 1 Dan
MsgBox "Selecteer een enkele kolom!"
Ga naar bereik selecteren
End If
Application.ScreenUpdating = False
Voor xFNum = xRg.Tel tot 1 stap -1
Stel xCRg = xRg.Item (xFNum) in
xRN = CInt(xCRg.Waarde)
Met rijen (xCRg.Rij)
.Kopiëren
.Formaat wijzigen(xRN).Invoegen
Eindigt met
Volgende
Application.ScreenUpdating = True
End Sub

Deze opmerking is gemaakt door de moderator op de site
We zijn zo dichtbij :) Alles wat ik nu nodig heb, is een rij minder dan in de laatste VBA-code, dan de waarde van het parametrische getal. Bijvoorbeeld: als het nummer 8 is, moeten we 7 rijen invoegen en kopiëren. Zoals je voor Nina hebt gemaakt, alleen met deze KOPIE
Dus als het nummer 8 is, zouden we in totaal 8 ingevoegde en gekopieerde rijen moeten hebben, en met de vorige VBA-code hebben we 9.
Tnx
Deze opmerking is gemaakt door de moderator op de site
Hallo, In dit geval kan de volgende code u helpen, probeer het alstublieft: Sub CopyData()
'Bijwerken door' Extendoffice
Dim xRow zo lang
Dim VInSertNum als variant
xRij = 1
Application.ScreenUpdating = False
Do While (Cellen(xRij, "A") <> "")
VInSertNum = Cellen (xRij, "B")
Als ((VInSertNum > 1) en IsNumeric (VInSertNum)) dan
Bereik(Cellen(xRij, "A"), Cellen(xRij, "B")).Kopiëren
Bereik(Cellen(xRij + 1, "A"), Cellen(xRij + VInSertNum - 1, "B")).Selecteer
Selectie.Verschuiving invoegen:=xlOmlaag
xRij = xRij + VInSertNum - 1
End If
xRij = xRij + 1
Ringleiding
Application.ScreenUpdating = False
End SubOpmerking: In de bovenstaande code, de letter A geeft de startkolom van uw gegevensbereik aan, en de letter B is de kolomletter waarop u de rijen wilt dupliceren op basis van. Wijzig ze naar uw behoefte.
Deze opmerking is gemaakt door de moderator op de site
Heeft u een module die het gekopieerde getal met één aftrekt?
Deze opmerking is gemaakt door de moderator op de site
Nee. Ik heb deze, maar ik heb hem nodig om er 1 af te trekken?
Sub CopyRij()
'Bijwerken door'Extendoffice
Dim xRg als bereik
Dim xCRg als bereik
Dim xFNum als geheel getal
Dim xRN als geheel getal
On Error Resume Next
SelecteerBereik:
xTxt = ActiveWindow.RangeSelection.Address
Set xRg = Application.InputBox ("Selecteer de nummerlijst", "Kutools for Excel", xTxt, , , , , 8)
Als xRg niets is, sluit dan Sub af

Als xRg.Columns.Count > 1 Dan
MsgBox "Selecteer een enkele kolom!"
Ga naar bereik selecteren
End If
Application.ScreenUpdating = False
Voor xFNum = xRg.Tel tot 1 stap -1
Stel xCRg = xRg.Item (xFNum) in
xRN = CInt(xCRg.Waarde)
Met rijen (xCRg.Rij)
.Kopiëren
.Formaat wijzigen(xRN).Invoegen
Eindigt met
Volgende
Application.ScreenUpdating = True
End Sub
Deze opmerking is gemaakt door de moderator op de site
Wat ik probeer te doen, is labels maken en afdrukken in Word vanuit een spreadsheet met meerdere hoeveelheden?
Deze opmerking is gemaakt door de moderator op de site
Heb je de kans gehad om hiernaar te kijken?
Deze opmerking is gemaakt door de moderator op de site
Goud zegene je
Deze opmerking is gemaakt door de moderator op de site
Op zoek naar code om een ​​Excel-lijst te genereren door een getal in een cel te dupliceren en 1 af te trekken voor het origineel?
Deze opmerking is gemaakt door de moderator op de site
Bedankt auteur! U verdient de beste lof voor deze! Maar kun je me alsjeblieft helpen met de code om een ​​constante waarde in alle lege rijen te plaatsen die ik heb gemaakt met je bovenstaande code? Om mezelf duidelijker te maken, moet ik een constante waarde invoegen in alle lege rijen (dit is al opgelost met je bovenstaande code) en dan moet ik een constante waarde invoegen in alle lege rijen (dit is mijn probleem). Bedankt, want ik verwacht uw vriendelijke reactie.
Deze opmerking is gemaakt door de moderator op de site
Hallo, Bedoel je om lege rijen met een specifieke waarde te vullen? Zo ja, dan kan het volgende artikel u misschien helpen:https://www.extendoffice.com/documents/excel/772-excel-fill-blank-cells-with-0-or-specific-value.html
Alstublieft probeer het.
Deze opmerking is gemaakt door de moderator op de site
Kan ik de VBA-code krijgen voor het verwijderen van rijen op basis van dubbele waarden in een geselecteerde kolom, waarbij alle unieke waarden behouden blijven?
Deze opmerking is gemaakt door de moderator op de site
Hallo Roy, als je rijen wilt verwijderen op basis van dubbele waarden, kun je normaal gesproken de . gebruiken Verwijder duplicaten functie in Excel om de rijen te verwijderen. Als u een VBA-code nodig heeft, gebruik dan de onderstaande code: (Eerst moet u het gegevensbereik selecteren dat u wilt verwijderen en vervolgens deze code uitvoeren, de rijen op basis van de dubbele waarden in de eerste kolom van uw selectie worden in één keer verwijderd. ) Sub Delete_duplicate_rows()
Dim Rng als bereik
Stel Rng = Selectie in
Rng.RemoveDuplicates Columns:=Array(1), Header:=xlJa
End SubProbeer het eens, ik hoop dat het je kan helpen!
Deze opmerking is gemaakt door de moderator op de site
Dit is zo cool!! Hartelijk bedankt
Deze opmerking is gemaakt door de moderator op de site
Muito obrigado, salvou meu trabalho, eu não tinha ideia de como fazer. Muito obrigado-mesmo!
Deze opmerking is gemaakt door de moderator op de site
Hallo,
Alstublieft. Fijn dat het helpt. Heeft u vragen, neem dan gerust contact met ons op. Een fijne dag verder.
Hoogachtend,
Mandy
Deze opmerking is gemaakt door de moderator op de site
kun je me vertellen hoe ik een kolom op deze manier moet invoegen, wat is de code?
Deze opmerking is gemaakt door de moderator op de site
Hallo vriend,
U kunt deze VBA-code gebruiken:

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


Hoogachtend,
Mandy
Deze opmerking is gemaakt door de moderator op de site
от или ак или!
идел, омал олову как добавить строки о заданному количеству.
аш макрос е очень омог.
Rated 5 uit 5
Deze opmerking is gemaakt door de moderator op de site
Naam E-mail Telefoon Adres
0 Naam E-mail Telefoon Adres
adresregel 2 Naam Telefoon 0
Naam E-mail Telefoon Adres
0 Naam E-mail Telefoon Adres
adresregel 2 0


Hoe kan ik dit bewerken om een ​​nieuwe rij te beginnen bij elke lege waarde of 0-waarde zonder dat telefoonnummers met 0 een nieuwe rij beginnen?
Deze opmerking is gemaakt door de moderator op de site
Hallo, Jarrod

Sorry, ik kan je probleem niet duidelijk krijgen.
Kunt u uw probleem nader toelichten? Of u kunt hier een screenshot of bestand invoegen.
Dank je!
Deze opmerking is gemaakt door de moderator op de site
hola, ik heb al een code geschreven die me toestemming geeft om los gegevens te kopiëren, pero que een eerste kolom die mijn consecutivo kan opleveren.

voorbeeld bekijken

en vez de que quede asi

01/10/2022 19.258.369-4 Juan Ramírez
01/10/2022 19.258.369-4 Juan Ramírez
01/10/2022 19.258.369-4 Juan Ramírez

hoezo

01/10/2022 19.258.369-4 Juan Ramírez
02/10/2022 19.258.369-4 Juan Ramírez
03/10/2022 19.258.369-4 Juan Ramírez

bedankt
Deze opmerking is gemaakt door de moderator op de site
Hoe dan ook, ik weet dat ik toestemming heb om gegevens te kopiëren, pero que een eerste kolom die mijn consecutiva kan opleveren.

voorbeeld bekijken

en vez de que quede asi

10/01/2022 19.258.369-4 Juan Ramírez
10/01/2022 19.258.369-4 Juan Ramírez
10/01/2022 19.258.369-4 Juan Ramírez

hoezo

10/01/2022 19.258.369-4 Juan Ramírez
11/01/2022 19.258.369-4 Juan Ramírez
12/01/2022 19.258.369-4 Juan Ramírez

bedankt
Deze opmerking is gemaakt door de moderator op de site
Prachtig vba-script!
Ik had meer dan 5000 rijen waaraan ik tussendoor nieuwe rijen moet toevoegen. Alle andere gidsen vertelden me om een ​​"helper" -kolom te maken, het zou me een groot deel van mijn leven kosten om 1,2 keer op keer kopiëren en plakken toe te voegen, alleen maar om nieuwe rijen toe te voegen.
Dus bedankt hiervoor!
Rated 5 uit 5
Er zijn nog geen reacties geplaatst
Laat uw commentaar
Posten als gast
×
Beoordeel dit bericht:
0   Personages
Voorgestelde locaties

Volg ons

Copyright © 2009 - www.extendoffice.com. | Alle rechten voorbehouden. Aangedreven door ExtendOffice. | Sitemap
Microsoft en het Office-logo zijn handelsmerken of gedeponeerde handelsmerken van Microsoft Corporation in de Verenigde Staten en / of andere landen.
Beschermd door Sectigo SSL