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

Hvordan indsættes specifikt antal rækker med faste intervaller i Excel?

I Excel-regneark kan du indsætte en tom række mellem eksisterende rækker ved hjælp af funktionen Indsæt. Men hvis du har et stort udvalg af data, og du skal indsætte to tomme rækker efter hver tredje ottende række, hvordan kan du afslutte dette job hurtigt og bekvemt?


Indsæt specifikt antal tomme rækker i dataområdet med faste intervaller med VBA-kode

Følgende VBA-kode kan hjælpe dig med at indsætte et specifikt antal rækker efter hver niende række inden for eksisterende data. Gør følgende:

1. Hold nede ALT + F11 nøgler i Excel, og det åbner Microsoft Visual Basic til applikationer vindue.

2. Klik indsatte > Moduler, og indsæt følgende kode i Modul vindue.

VBA-kode: Indsæt specifikt antal rækker i data med faste intervaller

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. Når du har indsat denne kode, skal du trykke på F5 nøgle til at køre denne kode, vises et promptfelt for at minde dig om at vælge det dataområde, som du vil indsætte tomme rækker, se skærmbillede:

4. Klik OK knap, en anden promptboks vises. Indtast venligst antallet af rækkeintervaller, se skærmbillede:

5. Fortsæt med at klikke OK knap, i følgende poppede boks ud, bedes du indtaste antallet af tomme rækker, som du vil indsætte, se skærmbillede:

6. Klik derefter på OK, og de tomme rækker er indsat i de eksisterende data med jævne mellemrum, se skærmbilleder:


Indsæt specifikt antal tomme rækker i dataområdet baseret på celleværdier med VBA-kode

Nogle gange skal du muligvis indsætte de tomme rækker baseret på en liste over celleværdier. I dette tilfælde kan nedenstående VBA-kode gøre dig en tjeneste, gør venligst som dette:

1. Hold nede ALT + F11 nøgler i Excel, og det åbner Microsoft Visual Basic til applikationer vindue.

2. Klik indsatte > Moduler, og indsæt følgende kode i Modul vindue.

VBA-kode: Indsæt specifikt antal tomme rækker baseret på en liste med tal:

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. Når du har indsat denne kode, skal du trykke på F5 nøgle til at køre denne kode, i den poppede dialogboks skal du vælge listen over numre, som du vil indsætte tomme rækker baseret på, se skærmbillede:

4. Klik derefter på OK, og du får de resultater, du har brug for, som følgende skærmbilleder vist:


Indsæt specifikt antal tomme rækker i dataområdet med faste intervaller med en praktisk funktion

Hvis du ikke er bekendt med ovenstående VBA-kode, Kutools til Excel også kan hjælpe dig, dens Indsæt tomme rækker og kolonner funktionen kan indsætte specifikt antal rækker eller kolonner i eksisterende data med faste intervaller hurtigt og nemt.

Bemærk:At anvende dette Indsæt tomme rækker og kolonner For det første skal du downloade Kutools til Excel, og anvend derefter funktionen hurtigt og nemt.

Efter installation Kutools til Excelskal du gøre som følger:

1. Vælg det dataområde, som du vil indsætte tomme rækker med intervaller.

2. Klik Kutools > indsatte > Indsæt tomme rækker og kolonner, se skærmbillede:

3. I Indsæt tom række og kolonner dialogboksen, vælg Tomme rækker mulighed fra Indsæt type, og angiv derefter antallet af interval og tomme rækker, som du vil bruge som følgende skærmbillede vist:

4. Klik derefter på OK knappen, og de tomme rækker er indsat i det valgte interval med et bestemt interval som følgende skærmbillede vist:

Download og gratis prøveversion Kutools til Excel nu!


Kopier og indsæt rækker flere gange baseret på bestemte tal med VBA-kode

Antag, at du har en række tada, og nu vil du kopiere hver række og indsætte dem flere gange til den næste række baseret på en liste med tal som vist nedenfor. Hvordan kunne løse denne opgave i Excel-regneark?

For at håndtere dette job vil jeg introducere en nyttig kode til dig. Benyt følgende trin:

1. Hold nede ALT + F11 nøgler i Excel, og det åbner Microsoft Visual Basic til applikationer vindue.

2. Klik indsatte > Moduler, og indsæt følgende kode i Modul vindue.

VBA-kode: Kopier og indsæt rækker flere gange baseret på specifikke tal:

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. Når du har indsat denne kode, skal du trykke på F5 nøgle til at køre denne kode, i den poppede dialogboks skal du vælge listen over numre, du vil kopiere, og indsætte datarækkerne baseret på, se skærmbillede:

4. Klik derefter på OK knappen, og det specifikke antal rækker er blevet kopieret og indsat under hver originale række, se skærmbilleder:


Kopier og indsæt rækker flere gange baseret på bestemte tal med en fantastisk funktion

Hvis du har Kutools til Excel, Med Kopier rækker / kolonner baseret på celleværdi funktion, kan du hurtigt og nemt indsætte rækker eller kolonner baseret på listen over numre.

Bemærk:At anvende dette Kopier rækker / kolonner baseret på celleværdiFor det første skal du downloade Kutools til Excel, og anvend derefter funktionen hurtigt og nemt.

Efter installation Kutools til Excelskal du gøre som følger:

1. Klik Kutools > indsatte > Kopier rækker / kolonner baseret på celleværdi, se skærmbillede:

2. I Kopier og indsæt rækker og kolonner dialogboksen, vælg Kopier og indsæt rækker valgmulighed i Type sektion, vælg derefter det dataområde, du vil duplikere, og angiv derefter listen over værdier, som du vil kopiere rækker baseret på, se skærmbillede:

4. Klik derefter på Ok or Indløs knappen, får du følgende resultat, som du har brug for:

Download og gratis prøveversion Kutools til Excel nu!

Flere relative artikler:

  • Kopier og indsæt række flere gange eller duplikér række X gange
  • Har du nogensinde i dit daglige arbejde forsøgt at kopiere en række eller hver række og derefter indsætte flere gange under den aktuelle datarække i et regneark? For eksempel har jeg en række celler, nu vil jeg kopiere hver række og indsætte dem 3 gange til den næste række som vist nedenstående skærmbillede. Hvordan kunne du håndtere dette job i Excel?
  • Indsæt tomme rækker, når værdien ændres i Excel
  • Antag at du har en række data, og nu vil du indsætte tomme rækker mellem dataene, når værdien ændres, så du kan adskille de sekventielle samme værdier i en kolonne som følgende skærmbilleder vist. I denne artikel vil jeg tale om nogle tricks til dig for at løse dette problem.
  • Kopier rækker fra flere regneark baseret på kriterier til et nyt ark
  • Antag, du har en projektmappe med tre regneark, der har samme formatering som vist nedenstående skærmbillede. Nu vil du kopiere alle rækkerne fra disse regneark, hvilken kolonne C indeholder teksten "Fuldført" til et nyt regneark. Hvordan kunne du løse dette problem hurtigt og nemt uden at kopiere og indsætte dem en efter en manuelt?

De bedste Office-produktivitetsværktøjer

Kutools til Excel løser de fleste af dine problemer og øger din produktivitet med 80%

  • Genbruge: Indsæt hurtigt komplekse formler, diagrammer og alt, hvad du har brugt før; Krypter celler med adgangskode Opret postliste og send e-mails ...
  • Super formel bar (let redigere flere linjer med tekst og formel); Læsning Layout (let at læse og redigere et stort antal celler); Indsæt til filtreret rækkevidde...
  • Flet celler / rækker / kolonner uden at miste data; Split celler indhold; Kombiner duplikerede rækker / kolonner... Forhindre duplikerede celler; Sammenlign områder...
  • Vælg Duplicate eller Unique Rækker; Vælg tomme rækker (alle celler er tomme); Super Find og Fuzzy Find i mange arbejdsbøger; Tilfældig valg ...
  • Præcis kopi Flere celler uden at ændre formelreference; Auto Opret referencer til flere ark; Indsæt kugler, Afkrydsningsfelter og mere ...
  • Uddrag tekst, Tilføj tekst, Fjern efter position, Fjern mellemrum; Opret og udskriv personsøgningssubtotaler; Konverter mellem celler indhold og kommentarer...
  • Superfilter (gem og anvend filterskemaer på andre ark); Avanceret sortering efter måned / uge / dag, hyppighed og mere; Specielt filter af fed, kursiv ...
  • Kombiner arbejdsbøger og arbejdsark; Fletabeller baseret på nøglekolonner; Opdel data i flere ark; Batch Konverter xls, xlsx og PDF...
  • Mere end 300 kraftfulde funktioner. Understøtter Office / Excel 2007-2021 og 365. Understøtter alle sprog. Nem implementering i din virksomhed eller organisation. Fuld funktioner 30-dages gratis prøveperiode. 60 dages pengene tilbage garanti.
kte-fane 201905

Fanen Office bringer en grænseflade til et kontor med Office, og gør dit arbejde meget lettere

  • Aktiver redigering og læsning af faner i Word, Excel, PowerPoint, Publisher, Access, Visio og Project.
  • Åbn og opret flere dokumenter i nye faner i det samme vindue snarere end i nye vinduer.
  • Øger din produktivitet med 50 % og reducerer hundredvis af museklik for dig hver dag!
officetab bund
Sorter kommentarer efter
Kommentarer (39)
Bedømt 5 ud af 5 · 2 vurderinger
Denne kommentar blev minimeret af moderatoren på webstedet
Hej, jeg bruger din kode (nedenfor) kan du fortælle mig, hvordan du kan fylde disse rækker med tilpasset tekst. Jeg har brugt din kode til at indtaste tre rækker, den fungerede perfekt, men nu skal jeg indtaste teksten Row1 = Date Row2.= Location Row3 = Phone Number På forhånd tak... "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("Irge", xTitleId = "KutoolsforExcel" , WorkRng.Address, Type:=8) xRowsCount = WorkRng.Rows.Count xInterval = Application.InputBox("Indtast rækkeinterval. ", xTitleId, 1, Type:=1) xRows = Application.InputBox("Hvor mange rækker der skal indsætte ved hvert 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)).Vælg Application.Selection.EntireRow.Insert xNum1= xNum1 + xNum2 Next End Sub"
Denne kommentar blev minimeret af moderatoren på webstedet
mange tak!!!!! dette er forbløffende
Denne kommentar blev minimeret af moderatoren på webstedet
Mange tak!!
Denne kommentar blev minimeret af moderatoren på webstedet
Hi


Jeg bruger interval vba-kode, det virker.. Men når jeg bruger over 100000 rækker, virker det ikke.. foreslå venligst, hvad jeg skal ændre, hvis nogen.


Sub InsertRowsAtIntervals()
'Opdatering senest 20150707
Dim Rng Som Range
Dim xInterval Som heltal
Dim xRows Som heltal
Dim xRowsCount Som heltal
Dim xNum1 Som heltal
Dim xNum2 Som heltal
Dæmp WorkRng As Range
Dim xWs Som arbejdsark
xTitleId = "KutoolsforExcel"
Indstil WorkRng = Application.Selection
Indstil WorkRng = Application.InputBox("Range", xTitleId, WorkRng.Address, Type:=8)
xRowsCount = WorkRng.Rows.Count
xInterval = Application.InputBox("Indtast rækkeinterval. ", xTitleId, 1, Type:=1)
xRows = Application.InputBox("Hvor mange rækker skal indsættes ved hvert interval?", xTitleId, 1, Type:=1)
xNum1 = WorkRng.Row + xInterval
xNum2 = xRækker + xInterval
Indstil xWs = WorkRng.Parent
For i = 1 til Int(xRowsCount / xInterval)
xWs.Range(xWs.Cells(xNum1, WorkRng.Column), xWs.Cells(xNum1 + xRows - 1, WorkRng.Column)).Vælg
Application.Selection.EntireRow.Insert
xNum1 = xNum1 + xNum2
Næste
End Sub
Denne kommentar blev minimeret af moderatoren på webstedet
Fantastisk - du sparede mig for en masse tankeløs dataindtastning, mange tak
Denne kommentar blev minimeret af moderatoren på webstedet
hej hvordan kan jeg få koden til Indsæt specifikt antal kolonner i data med faste intervaller
Denne kommentar blev minimeret af moderatoren på webstedet
Hej PK,
For at indsætte tomme kolonner i eksisterende data med bestemte intervaller, kan nedenstående VBA-kode hjælpe dig! Prøv det venligst.

Sub InsertColumnsAtIntervals()
Dim Rng Som Range
Dim xInterval Som heltal
Dim xCs Som heltal
Dim xCCount Som heltal
Dim xNum1 Som heltal
Dim xNum2 Som heltal
Dæmp WorkRng As Range
Dim xWs Som arbejdsark
xTitleId = "KutoolsforExcel"
Indstil WorkRng = Application.Selection
Indstil WorkRng = Application.InputBox("Range", xTitleId, WorkRng.Address, Type:=8)
xCCount = WorkRng.Columns.Count
xInterval = Application.InputBox("Indtast kolonneinterval. ", xTitleId, 1, Type:=1)
xCs = Application.InputBox("Hvor mange kolonner skal indsættes ved hvert interval? ", xTitleId, 1, Type:=1)
xNum1 = WorkRng.Column + xInterval
xNum2 = xCs + xInterval
Indstil xWs = WorkRng.Parent
For I = 1 til Int(xCCount / xInterval)
xWs.Range(xWs.Cells(WorkRng.Row, xNum1 + xCs - 1), xWs.Cells(WorkRng.Row, xNum1)).Vælg
Application.Selection.EntireColumn.Insert
xNum1 = xNum1 + xNum2
Næste
End Sub
Denne kommentar blev minimeret af moderatoren på webstedet
Sådan tilføjer du rækker i excel-data som nævnt nummer i sidste celle siger i en excel-data, hvis sidste celle viser nummer som 4, hvad er vejen til at dd 4 rækker automatisk. i en anden række er nummer 72 osv
Denne kommentar blev minimeret af moderatoren på webstedet
Hej SPGupta,
For at indsætte tomme rækker baseret på en specifik nummerliste skal du anvende nedenstående VBA-kode.
Prøv venligst, håber det kan hjælpe dig!

Sub Insert()
'Opdatering afExtendoffice
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
Indstil xRg = Application.InputBox("Vælg den specifikke nummerkolonne, der skal bruges (enkelt kolonne):", "KuTools For Excel", xAddress, , , , , 8)
Hvis xRg ikke er noget, skal du afslutte Sub
Application.ScreenUpdating = False
xLastRow = xRg(1).End(xlDown).Række
xFstRow = xRg.Row
xCol = xRg.Column
xCount = xRg.Count
Indstil xRg = xRg(1)
For I = xLastRow Til xFstRow Trin -1
xNum = Celler(I, xCol)
Hvis IsNumeric(xNum) Og xNum > 0 Så
Rækker(I + 1). Ændr størrelse(xNum).Indsæt
xCount = xCount + xNum
End If
Næste
xRg.Resize(xCount, 1).Vælg
Application.ScreenUpdating = True
End Sub
Denne kommentar blev minimeret af moderatoren på webstedet
Hej, kan du hjælpe mig, tak? Hvordan kan jeg ændre denne kode til at ad en række flere færre end antallet i cellen? For eksempel, hvis tallet i cellen er 4, skal du programmere tilføje 3 rækker. Hvis nummeret i cellen er 1, tilføjes rækker ikke
Denne kommentar blev minimeret af moderatoren på webstedet
Hej Nina,
For at løse din opgave, brug venligst nedenstående kode:

Sub Insert()
'Opdatering afExtendoffice
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
Indstil xRg = Application.InputBox("Vælg den specifikke nummerkolonne, der skal bruges (enkelt kolonne):", "KuTools For Excel", xAddress, , , , , 8)
Hvis xRg ikke er noget, skal du afslutte Sub
Application.ScreenUpdating = False
xLastRow = xRg(1).End(xlDown).Række
xFstRow = xRg.Row
xCol = xRg.Column
xCount = xRg.Count
Indstil xRg = xRg(1)
For I = xLastRow Til xFstRow Trin -1
xNum = Celler(I, xCol)
xNum = xNum - 1
Hvis IsNumeric(xNum) Og xNum > 0 Så
Rækker(I + 1). Ændr størrelse(xNum).Indsæt
xCount = xCount + xNum
End If
Næste
xRg.Resize(xCount, 1).Vælg
Application.ScreenUpdating = True
End Sub


Prøv venligst, håber det kan hjælpe dig!
Denne kommentar blev minimeret af moderatoren på webstedet
Det fungerer perfekt, mange tak!
Denne kommentar blev minimeret af moderatoren på webstedet
Dette er godt. Jeg undrer mig bare... og mit engelsk er ikke perfekt, så jeg håber du vil forstå mig :) .....
Er det muligt at udfylde tilføjede tomme rækker med værdier fra rækken, hvor var det parametriske nummer?
Denne kommentar blev minimeret af moderatoren på webstedet
Hej Vladimir, Mener du at indsætte tomme rækker baseret på en liste over tal i regnearket? Hvis ja, anvend venligst nedenstående kode:
Sub Insert()
'Opdatering afExtendoffice
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("Vælg listen over tal, som du vil indsætte rækker baseret på:", "KuTools For Excel", xAddress, , , , , 8)
Hvis xRg ikke er noget, skal du afslutte Sub
Application.ScreenUpdating = False
xLastRow = xRg(1).End(xlDown).Række
xFstRow = xRg.Row
xCol = xRg.Column
xCount = xRg.Count
Indstil xRg = xRg(1)
For I = xLastRow Til xFstRow Trin -1
xNum = Celler(I, xCol)
Hvis IsNumeric(xNum) Og xNum > 0 Så
Rækker(I + 1). Ændr størrelse(xNum).Indsæt
xCount = xCount + xNum
End If
Næste
xRg.Resize(xCount, 1).Vælg
Application.ScreenUpdating = True
Afslut SubPrøv det venligst, hvis du har andre spørgsmål, bedes du kommentere her.
Denne kommentar blev minimeret af moderatoren på webstedet
Denne kode er perfekt til at indsætte rækker....Sub Insert()
'Opdatering afExtendoffice
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
Indstil xRg = Application.InputBox("Vælg den specifikke nummerkolonne, der skal bruges (enkelt kolonne):", "KuTools For Excel", xAddress, , , , , 8)
Hvis xRg ikke er noget, skal du afslutte Sub
Application.ScreenUpdating = False
xLastRow = xRg(1).End(xlDown).Række
xFstRow = xRg.Row
xCol = xRg.Column
xCount = xRg.Count
Indstil xRg = xRg(1)
For I = xLastRow Til xFstRow Trin -1
xNum = Celler(I, xCol)
xNum = xNum - 1
Hvis IsNumeric(xNum) Og xNum > 0 Så
Rækker(I + 1). Ændr størrelse(xNum).Indsæt
xCount = xCount + xNum
End If
Næste
xRg.Resize(xCount, 1).Vælg
Application.ScreenUpdating = True
End Sub

Men er det muligt... kopiere data i de tomme celler fra rækken, hvor var det parametriske nummer? Må jeg poste et billede her? Måske er det nemmere, hvis jeg viser dig, hvad jeg har brug for :)
Denne kommentar blev minimeret af moderatoren på webstedet
Hej, Vladimir, kan være nedenstående VBA-kode kan hjælpe dig, prøv det. Sub CopyRow()
'Opdatering afExtendoffice
Dim xRg As Range
Dim xCRg Som rækkevidde
Dim xFNum Som heltal
Dim xRN Som heltal
On Error Resume Next
Vælg område:
xTxt = ActiveWindow.RangeSelection.Address
Indstil xRg = Application.InputBox("Vælg nummerlisten", "Kutools for Excel", xTxt, , , , , 8)
Hvis xRg ikke er noget, skal du afslutte Sub

Hvis xRg.Columns.Count > 1 Så
MsgBox "Vælg venligst enkelt kolonne!"
Gå til Vælg område
End If
Application.ScreenUpdating = False
For xFNum = xRg.Count To 1 Step -1
Indstil xCRg = xRg.Item(xFNum)
xRN = CInt(xCRg.Value)
Med rækker(xCRg.række)
.Kopi
.Resize(xRN).Indsæt
Slut med
Næste
Application.ScreenUpdating = True
End Sub

Denne kommentar blev minimeret af moderatoren på webstedet
Vi er så tæt på :) Alt hvad jeg har brug for nu er en række mindre end i sidste VBA-kode, end værdien af ​​det parametriske tal. For eksempel: Hvis tallet er 8, skal vi indsætte og kopiere 7 rækker. Som du lavede til Nina netop med denne KOPI
Så hvis tallet er 8, skal vi have i alt 8 indsatte og kopierede rækker, og med den tidligere VBA-kode har vi 9.
tnx
Denne kommentar blev minimeret af moderatoren på webstedet
Hej, I dette tilfælde kan følgende kode måske hjælpe dig, prøv venligst: Sub CopyData()
'Opdatering af Extendoffice
Dim xRow As Long
Dim VInSertNum Som Variant
x række = 1
Application.ScreenUpdating = False
Gør mens (Cells(xRow, "A") <> "")
VInSertNum = Cells(xRow, "B")
Hvis ((VInSertNum > 1) And IsNumeric(VInSertNum)) så
Område(Cells(xRow, "A"), Cells(xRow, "B")). Kopi
Område(Cells(xRow + 1, "A"), Cells(xRow + VInSertNum - 1, "B")).Vælg
Selection.Insert Shift:=xlDown
xRow = xRow + VInSertNum - 1
End If
xRow = xRow + 1
Loop
Application.ScreenUpdating = False
Slut underbemærkning: I ovenstående kode, bogstavet A angiver startkolonnen i dit dataområde og bogstavet B er det kolonnebrev, som du vil duplikere rækkerne baseret på. Skift dem til dit behov.
Denne kommentar blev minimeret af moderatoren på webstedet
Har du et modul, der trækker det kopierede antal med én?
Denne kommentar blev minimeret af moderatoren på webstedet
Nej. Jeg har denne, men jeg skal have den til at trække 1 fra?
Sub CopyRow()
'Opdatering afExtendoffice
Dim xRg As Range
Dim xCRg Som rækkevidde
Dim xFNum Som heltal
Dim xRN Som heltal
On Error Resume Next
Vælg område:
xTxt = ActiveWindow.RangeSelection.Address
Indstil xRg = Application.InputBox("Vælg nummerlisten", "Kutools for Excel", xTxt, , , , , 8)
Hvis xRg ikke er noget, skal du afslutte Sub

Hvis xRg.Columns.Count > 1 Så
MsgBox "Vælg venligst enkelt kolonne!"
Gå til Vælg område
End If
Application.ScreenUpdating = False
For xFNum = xRg.Count To 1 Step -1
Indstil xCRg = xRg.Item(xFNum)
xRN = CInt(xCRg.Value)
Med rækker(xCRg.række)
.Kopi
.Resize(xRN).Indsæt
Slut med
Næste
Application.ScreenUpdating = True
End Sub
Denne kommentar blev minimeret af moderatoren på webstedet
Hvad jeg forsøger at gøre, er at oprette og udskrive etiketter i Word fra et regneark med flere mængder?
Denne kommentar blev minimeret af moderatoren på webstedet
Har du haft mulighed for at se på dette?
Denne kommentar blev minimeret af moderatoren på webstedet
Guld velsigne dig
Denne kommentar blev minimeret af moderatoren på webstedet
Leder du efter kode til at generere en excel-liste, der duplikerer med et tal i en celle og trækker 1 fra for originalen?
Denne kommentar blev minimeret af moderatoren på webstedet
Tak forfatter! Du fortjener den bedste ros for disse! Men kan du hjælpe mig med koden til at sætte en konstant værdi i alle tomme rækker, jeg oprettede med din kode ovenfor? For at gøre mig mere tydelig, skal jeg indsætte en konstant værdi i alle tomme rækker (dette er allerede løst med din kode ovenfor), så skal jeg indsætte en konstant værdi i alle de tomme rækker (dette er mit problem). Tak, da jeg forventer dit venlige svar.
Denne kommentar blev minimeret af moderatoren på webstedet
Hej, Mener du at udfylde tomme rækker med en bestemt værdi? Hvis ja, kan følgende artikel hjælpe dig:https://www.extendoffice.com/documents/excel/772-excel-fill-blank-cells-with-0-or-specific-value.html
Prøv det venligst.
Denne kommentar blev minimeret af moderatoren på webstedet
Kan jeg få VBA-koden til sletning af rækker baseret på duplikerede værdier i en valgt kolonne med alle unikke værdier?
Denne kommentar blev minimeret af moderatoren på webstedet
Hej, Roy, Hvis du vil fjerne rækker baseret på duplikerede værdier, kan du normalt bruge Fjern duplikater funktion i Excel for at fjerne rækkerne. Hvis du har brug for en VBA-kode, skal du selvfølgelig bruge nedenstående kode: (Først skal du vælge det dataområde, du vil fjerne, og derefter køre denne kode, rækkerne baseret på duplikerede værdier i den første kolonne i dit valg fjernes med det samme. ) Sub Delete_duplicate_rows()
Dim Rng Som Range
Indstil Rng = Valg
Rng.RemoveDuplicates Columns:=Array(1), Header:=xlYes
Afslut SubPrøv venligst, håber det kan hjælpe dig!
Denne kommentar blev minimeret af moderatoren på webstedet
Det er så sejt!! Mange tak
Denne kommentar blev minimeret af moderatoren på webstedet
Muito obrigado, salvou meu trabalho, eu não tinha ideia de como fazer. Muito obrigado mesmo!
Denne kommentar blev minimeret af moderatoren på webstedet
Hej,
Det var så lidt. Godt det hjælper. Eventuelle spørgsmål, er du velkommen til at kontakte os. Hav en god dag.
Med venlig hilsen,
Mandy
Denne kommentar blev minimeret af moderatoren på webstedet
kan du fortælle mig, hvordan man indsætter kolonne på denne måde, hvad er koden
Denne kommentar blev minimeret af moderatoren på webstedet
Hej ven,
Du kan bruge denne VBA-kode:

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


Med venlig hilsen,
Mandy
Denne kommentar blev minimeret af moderatoren på webstedet
Вот выручили так выручили!
Сидел, ломал голову как добавить строки по заданному количеству.
Ваш макрос мне очень помог.
Bedømt 5 ud af 5
Denne kommentar blev minimeret af moderatoren på webstedet
Navn Email Telefonadresse
0 Navn E-mail Telefon Adresse
adresselinje 2 Navn Telefon 0
Navn Email Telefon Adresse
0 Navn E-mail Telefon Adresse
adresselinje 2 0


Hvordan kunne jeg redigere dette for at starte en ny række ved hver tom værdi eller 0 værdi uden at have telefonnumre med 0 til at starte en ny række?
Denne kommentar blev minimeret af moderatoren på webstedet
Hej Jarrod

Beklager, jeg kan ikke forstå dit problem klart.
Kan du forklare dit problem mere detaljeret? Eller du kan indsætte et skærmbillede eller en fil her.
Tak!
Denne kommentar blev minimeret af moderatoren på webstedet
hola, hay algun codigo que me permita copiar los data, men que en la primera columna que son fechas pueda ser 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

quede 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

tak
Denne kommentar blev minimeret af moderatoren på webstedet
hola, hay algun codigo que me permita copiar los data, men que en la primera columna que son fechas puedan ser consecutivas.

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

quede 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

tak
Denne kommentar blev minimeret af moderatoren på webstedet
Fantastisk vba script!
Jeg havde over 5000 rækker, som jeg skal tilføje nye rækker til imellem. Alle andre guider fortalte mig, at jeg skulle lave "hjælper"-kolonnen, det ville tage mig en god del af mit liv at tilføje 1,2 copy paste igen og igen bare for at tilføje nye rækker.
Så, tak for dette!
Bedømt 5 ud af 5
Der er endnu ingen kommentarer her
Efterlad dine kommentarer
Sender som gæst
×
Bedøm dette indlæg:
0   Tegn
Foreslåede steder

Følg os

Copyright © 2009 - www.extendoffice.com. | Alle rettigheder forbeholdes. Drevet af ExtendOffice. | | Sitemap
Microsoft og Office-logoet er varemærker eller registrerede varemærker tilhørende Microsoft Corporation i USA og / eller andre lande.
Beskyttet af Sectigo SSL