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

Hur infogar man specifikt antal rader med fasta intervall i Excel?

I Excel-kalkylbladet kan du infoga en tom rad mellan befintliga rader med hjälp av Infoga-funktionen. Men om du har ett stort utbud av data och måste infoga två tomma rader efter var tredje tionde rad, hur kan du avsluta det här jobbet snabbt och bekvämt?


Infoga specifikt antal tomma rader i dataområdet med fasta intervall med VBA-kod

Följande VBA-kod kan hjälpa dig att infoga ett visst antal rader efter varje nionde rad i befintlig data. Gör så här:

1. Håll ner ALT + F11 nycklar i Excel, och det öppnar Microsoft Visual Basic för applikationer fönster.

2. Klicka Insert > Modulernaoch klistra in följande kod i Modulfönster.

VBA-kod: Infoga specifikt antal rader i data med fasta intervall

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 klistrat in den här koden, tryck på F5 nyckel för att köra den här koden, kommer en snabbruta att dyka upp för att påminna dig om att välja det dataområde som du vill infoga tomma rader, se skärmdump:

4. Klicka OK -knappen, en annan rutan kommer att dyka ut, ange antalet radintervall, se skärmdump:

5. Fortsätt klicka OK -knappen, i följande utpekade rutan, ange antalet tomma rader som du vill infoga, se skärmdump:

6. Klicka sedan OKoch de tomma raderna har infogats i befintlig data med jämna mellanrum, se skärmdumpar:


Infoga specifikt antal tomma rader i dataområdet baserat på cellvärden med VBA-kod

Ibland kan du behöva infoga de tomma raderna baserat på en lista över cellvärden. I det här fallet kan nedanstående VBA-kod göra dig en tjänst, gör så här:

1. Håll ner ALT + F11 nycklar i Excel, och det öppnar Microsoft Visual Basic för applikationer fönster.

2. Klicka Insert > Modulernaoch klistra in följande kod i Modulfönster.

VBA-kod: Infoga specifikt antal tomma rader baserat på en lista med siffror:

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 klistrat in den här koden trycker du på F5 nyckel för att köra den här koden, i den poppade dialogrutan, välj listan över siffror som du vill infoga tomma rader baserat på, se skärmdump:

4. Klicka sedan OK, och du får de resultat du behöver som följande skärmdumpar visas:


Infoga specifikt antal tomma rader i dataområdet med fasta intervaller med en praktisk funktion

Om du inte känner till ovanstående VBA-kod, Kutools för Excel också kan hjälpa dig, dess Infoga tomma rader och kolumner funktionen kan infoga specifikt antal rader eller kolumner i befintliga data med fasta intervaller snabbt och enkelt.

Notera:Att tillämpa detta Infoga tomma rader och kolumner För det första bör du ladda ner Kutools för Excel, och använd sedan funktionen snabbt och enkelt.

När du har installerat Kutools för Excel, gör så här:

1. Välj det dataområde som du vill infoga tomma rader med intervaller.

2. Klicka Kutools > Insert > Infoga tomma rader och kolumner, se skärmdump:

3. I Infoga Tom rad och kolumner dialogrutan, välj Tomma rader alternativ från Infoga typ, och ange sedan antalet intervall och tomma rader som du vill använda som följande skärmdump som visas:

4. Klicka sedan OK -knappen och de tomma raderna har infogats i det valda intervallet vid ett visst intervall enligt följande skärmdump:

Ladda ner och testa gratis Kutools för Excel nu!


Kopiera och infoga rader flera gånger baserat på specifika nummer med VBA-kod

Om du antar att du har en rad tada, och nu vill du kopiera varje rad och klistra in dem flera gånger till nästa rad baserat på en lista med siffror som visas nedan. Hur kan man lösa denna uppgift i Excel-kalkylblad?

För att hantera det här jobbet kommer jag att presentera en användbar kod för dig, gör med följande steg:

1. Håll ner ALT + F11 nycklar i Excel, och det öppnar Microsoft Visual Basic för applikationer fönster.

2. Klicka Insert > Modulernaoch klistra in följande kod i Modulfönster.

VBA-kod: Kopiera och infoga rader flera gånger baserat på specifika nummer:

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 klistrat in den här koden trycker du på F5 nyckel för att köra den här koden, i den poppade dialogrutan, välj listan med siffror som du vill kopiera och infoga dataraderna baserat på, se skärmdump:

4. Klicka sedan OK knappen, och det specifika antalet rader har kopierats och klistrats in under varje originalrad, se skärmdumpar:


Kopiera och infoga rader flera gånger baserat på specifika nummer med en fantastisk funktion

Om du har Kutools för Excel, med dess Duplicera rader / kolumner baserat på cellvärde kan du infoga rader eller kolumner baserat på listan med siffror snabbt och enkelt.

Notera:Att tillämpa detta Duplicera rader / kolumner baserat på cellvärdeFör det första bör du ladda ner Kutools för Excel, och använd sedan funktionen snabbt och enkelt.

När du har installerat Kutools för Excel, gör så här:

1. Klicka Kutools > Insert > Duplicera rader / kolumner baserat på cellvärde, se skärmdump:

2. I Kopiera och infoga rader och kolumner dialogrutan väljer du Kopiera och infoga rader alternativet i Typ markera sedan det dataintervall du vill kopiera och ange sedan listan över värden som du vill kopiera rader baserat på, se skärmdump:

4. Klicka sedan Ok or tillämpas -knappen får du följande resultat efter behov:

Ladda ner och testa gratis Kutools för Excel nu!

Fler relativa artiklar:

  • Kopiera och infoga rad flera gånger eller duplicera rad X gånger
  • Har du någonsin försökt kopiera en rad eller varje rad i ditt dagliga arbete och sedan infoga flera gånger under den aktuella dataraden i ett kalkylblad? Till exempel har jag ett antal celler, nu vill jag kopiera varje rad och klistra in dem tre gånger till nästa rad enligt följande skärmdump. Hur kan du hantera det här jobbet i Excel?
  • Infoga tomma rader när värdet ändras i Excel
  • Om du antar att du har en rad data och nu vill du infoga tomma rader mellan data när värdet ändras, så att du kan separera samma sekventiella värden i en kolumn som följande skärmdumpar visas. I den här artikeln kommer jag att prata om några knep för att lösa detta problem.
  • Kopiera rader från flera kalkylblad baserat på kriterier till ett nytt ark
  • Om du antar att du har en arbetsbok med tre kalkylblad som har samma formatering som bilden nedan visas. Nu vill du kopiera alla raderna från dessa kalkylblad, vilken kolumn C innehåller texten "Slutförd" till ett nytt kalkylblad. Hur kunde du lösa detta problem snabbt och enkelt utan att kopiera och klistra in dem en efter en manuellt?

De bästa Office-produktivitetsverktygen

Kutools för Excel löser de flesta av dina problem och ökar din produktivitet med 80%

  • återanvändning: Sätt snabbt i komplexa formler, diagram och allt som du har använt tidigare; Kryptera celler med lösenord; Skapa e-postlista och skicka e-post ...
  • Super Formula Bar (enkelt redigera flera rader med text och formel); Läslayout (enkelt läsa och redigera ett stort antal celler); Klistra in i filtrerat intervall...
  • Sammanfoga celler / rader / kolumner utan att förlora data; Delat cellinnehåll; Kombinera duplicerade rader / kolumner... Förhindra duplicerade celler; Jämför intervall...
  • Välj Duplicera eller Unikt Rader; Välj tomma rader (alla celler är tomma); Super Find och Fuzzy Find i många arbetsböcker; Slumpmässigt val ...
  • Exakt kopia Flera celler utan att ändra formelreferens; Skapa referenser automatiskt till flera ark; Sätt in kulor, Kryssrutor och mer ...
  • Extrahera text, Lägg till text, ta bort efter position, Ta bort mellanslag; Skapa och skriva ut personsökningstalsatser; Konvertera mellan celler innehåll och kommentarer...
  • Superfilter (spara och tillämpa filterscheman på andra ark); Avancerad sortering efter månad / vecka / dag, frekvens och mer; Specialfilter av fet, kursiv ...
  • Kombinera arbetsböcker och arbetsblad; Sammanfoga tabeller baserat på nyckelkolumner; Dela data i flera ark; Batchkonvertera xls, xlsx och PDF...
  • Mer än 300 kraftfulla funktioner. Stöder Office / Excel 2007-2021 och 365. Stöder alla språk. Enkel implementering i ditt företag eller organisation. Fullständiga funktioner 30 dagars gratis provperiod. 60 dagars pengarna tillbaka-garanti.
kte-flik 201905

Fliken Office ger ett flikgränssnitt till Office och gör ditt arbete mycket enklare

  • Aktivera flikredigering och läsning i Word, Excel, PowerPoint, Publisher, Access, Visio och Project.
  • Öppna och skapa flera dokument i nya flikar i samma fönster, snarare än i nya fönster.
  • Ökar din produktivitet med 50 % och minskar hundratals musklick för dig varje dag!
officetab botten
Sortera kommentarer efter
Kommentarer (39)
Klassad 5 av 5 · 2 betyg
Denna kommentar minimerades av moderatoren på webbplatsen
Hej, jag använder din kod (nedan) kan du berätta för mig hur jag kan fylla dessa rader med anpassad text i den. Jag har använt din kod för att ange tre rader den fungerade perfekt men nu måste jag ange texten Rad1 = Datum Rad2.= Plats Rad3 = Telefonnummer Tack på förhand... "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 = "KutoolsforExcel" , WorkRng.Address, Typ:=8) xRowsCount = WorkRng.Rows.Count xInterval = Application.InputBox("Ange radintervall. ", xTitleId, 1, Typ:=1) xRows = Application.InputBox("Hur många rader till infoga vid varje intervall? ", xTitleId, 1, Typ:=1) xNum1 = WorkRng.Row + xInterval xNum2 = xRows + xInterval Set xWs = WorkRng.Prent For i = 1 To Int(xRowsCount / xInterval) xWs.Range(xWs) .Cells(xNum1, WorkRng.Column), xWs.Cells(xNum1 + xRows - 1, WorkRng.Column)).Välj Application.Selection.EntireRow.Insert xNum1= xNum1 + xNum2 Next End Sub"
Denna kommentar minimerades av moderatoren på webbplatsen
tack så mycket!!!!! det här är otroligt
Denna kommentar minimerades av moderatoren på webbplatsen
Tack så mycket!!
Denna kommentar minimerades av moderatoren på webbplatsen
Hi


Jag använder intervall vba-kod det fungerar .. Men när jag använder över 100000 XNUMX rader fungerar det inte .. vänligen föreslå vad jag ska ändra om någon.


Sub InsertRowsAtIntervals()
'Uppdatering senast 20150707
Dim Rng som intervall
Dim xInterval Som heltal
Dim xRows Som heltal
Dim xRowsCount Som heltal
Dim xNum1 Som heltal
Dim xNum2 Som heltal
Dim WorkRng As Range
Dim xWs Som arbetsblad
xTitleId = "KutoolsforExcel"
Set WorkRng = Application.Selection
Set WorkRng = Application.InputBox("Range", xTitleId, WorkRng.Address, Type:=8)
xRowsCount = WorkRng.Rows.Count
xInterval = Application.InputBox("Ange radintervall. ", xTitleId, 1, Typ:=1)
xRows = Application.InputBox("Hur många rader ska infogas vid varje intervall?", xTitleId, 1, Typ:=1)
xNum1 = WorkRng.Row + xInterval
xNum2 = xRader + xIntervall
Ställ in xWs = WorkRng.Parent
För i = 1 Till Int(xRowsCount / xInterval)
xWs.Range(xWs.Cells(xNum1, WorkRng.Column), xWs.Cells(xNum1 + xRows - 1, WorkRng.Column)).Välj
Application.Selection.EntireRow.Insert
xNum1 = xNum1 + xNum2
Nästa
End Sub
Denna kommentar minimerades av moderatoren på webbplatsen
Fantastiskt - du sparade mig en hel del tanklös datainmatning, tack så mycket
Denna kommentar minimerades av moderatoren på webbplatsen
hej hur kan jag få koden för Infoga specifikt antal kolumner i data med fasta intervall
Denna kommentar minimerades av moderatoren på webbplatsen
Hej PK,
För att infoga tomma kolumner i befintliga data med specifika intervall, kan nedanstående VBA-kod hjälpa dig! Vänligen prova det.

Sub InsertColumnsAtIntervals()
Dim Rng som intervall
Dim xInterval Som heltal
Dim xCs Som heltal
Dim xCCount Som heltal
Dim xNum1 Som heltal
Dim xNum2 Som heltal
Dim WorkRng As Range
Dim xWs Som arbetsblad
xTitleId = "KutoolsforExcel"
Set WorkRng = Application.Selection
Set WorkRng = Application.InputBox("Range", xTitleId, WorkRng.Address, Type:=8)
xCCount = WorkRng.Columns.Count
xInterval = Application.InputBox("Ange kolumnintervall. ", xTitleId, 1, Typ:=1)
xCs = Application.InputBox("Hur många kolumner ska infogas vid varje intervall?", xTitleId, 1, Typ:=1)
xNum1 = WorkRng.Column + xInterval
xNum2 = xCs + xInterval
Ställ in xWs = WorkRng.Parent
För I = 1 Till Int(xCCount / xInterval)
xWs.Range(xWs.Cells(WorkRng.Row, xNum1 + xCs -1), xWs.Cells(WorkRng.Row, xNum1)).Välj
Application.Selection.EntireColumn.Insert
xNum1 = xNum1 + xNum2
Nästa
End Sub
Denna kommentar minimerades av moderatoren på webbplatsen
Hur man lägger till rader i excel-data enligt nämnt nummer i sista cellen säg i en excel-data om sista cellen visar nummer som 4, vad är sättet att lägga till 4 rader automatiskt. i en annan rad är nummer 72 osv
Denna kommentar minimerades av moderatoren på webbplatsen
Hej SPGupta,
För att infoga tomma rader baserat på specifik nummerlista, använd nedanstående VBA-kod.
Försök gärna, hoppas det kan hjälpa dig!

Sub Insert()
'Uppdatering avExtendoffice
Dim xRg As Range
Dim xAddress As String
Dim I, xNum, xLast Row, xFstRow, xCol, xCount As Long
On Error Resume Next
xAddress = ActiveWindow.RangeSelection.Address
Set xRg = Application.InputBox("Välj den specifika nummerkolumnen som ska användas (enkel kolumn):", "KuTools for Excel", xAddress, , , , , 8)
Om xRg är ingenting, avsluta Sub
Application.ScreenUpdating = False
xLastRow = xRg(1).End(xlDown).Row
xFstRow = xRg.Row
xCol = xRg.Column
xCount = xRg.Count
Ställ in xRg = xRg(1)
För I = xLastRow Till xFstRow Steg -1
xNum = Celler(I, xCol)
Om IsNumeric(xNum) Och xNum > 0 Då
Rader(I + 1). Ändra storlek(xNum).Infoga
xCount = xCount + xNum
End If
Nästa
xRg.Resize(xCount, 1). Välj
Application.ScreenUpdating = True
End Sub
Denna kommentar minimerades av moderatoren på webbplatsen
Hej, kan du hjälpa mig, snälla? Hur kan jag ändra den här koden till att annonsen en rad färre än antalet i cellen? Till exempel, om numret i cellen är 4, programmera lägg till 3 rader. Om numret i cellen är 1 läggs inte raderna till
Denna kommentar minimerades av moderatoren på webbplatsen
Hej Nina,
För att lösa din uppgift, använd koden nedan:

Sub Insert()
'Uppdatering avExtendoffice
Dim xRg As Range
Dim xAddress As String
Dim I, xNum, xLast Row, xFstRow, xCol, xCount As Long
On Error Resume Next
xAddress = ActiveWindow.RangeSelection.Address
Set xRg = Application.InputBox("Välj den specifika nummerkolumnen som ska användas (enkel kolumn):", "KuTools for Excel", xAddress, , , , , 8)
Om xRg är ingenting, avsluta Sub
Application.ScreenUpdating = False
xLastRow = xRg(1).End(xlDown).Row
xFstRow = xRg.Row
xCol = xRg.Column
xCount = xRg.Count
Ställ in xRg = xRg(1)
För I = xLastRow Till xFstRow Steg -1
xNum = Celler(I, xCol)
xNum = xNum - 1
Om IsNumeric(xNum) Och xNum > 0 Då
Rader(I + 1). Ändra storlek(xNum).Infoga
xCount = xCount + xNum
End If
Nästa
xRg.Resize(xCount, 1). Välj
Application.ScreenUpdating = True
End Sub


Försök gärna, hoppas det kan hjälpa dig!
Denna kommentar minimerades av moderatoren på webbplatsen
Det fungerar perfekt, tack så mycket!
Denna kommentar minimerades av moderatoren på webbplatsen
Det här är bra. Jag bara undrar... och min engelska är inte perfekt så jag hoppas att ni förstår mig :) .....
Är det möjligt att fylla tillagda tomma rader med värden från rad där var det parametriska numret?
Denna kommentar minimerades av moderatoren på webbplatsen
Hej, Vladimir, menar du att infoga tomma rader baserat på en lista med siffror i kalkylbladet? Om så är fallet, använd koden nedan:
Sub Insert()
'Uppdatering avExtendoffice
Dim xRg As Range
Dim xAddress As String
Dim I, xNum, xLast Row, xFstRow, xCol, xCount As Long
On Error Resume Next
xAddress = ActiveWindow.RangeSelection.Address
Set xRg = Application.InputBox("Välj listan med nummer som du vill infoga rader baserat på:", "KuTools for Excel", xAddress, , , , , 8)
Om xRg är ingenting, avsluta Sub
Application.ScreenUpdating = False
xLastRow = xRg(1).End(xlDown).Row
xFstRow = xRg.Row
xCol = xRg.Column
xCount = xRg.Count
Ställ in xRg = xRg(1)
För I = xLastRow Till xFstRow Steg -1
xNum = Celler(I, xCol)
Om IsNumeric(xNum) Och xNum > 0 Då
Rader(I + 1). Ändra storlek(xNum).Infoga
xCount = xCount + xNum
End If
Nästa
xRg.Resize(xCount, 1). Välj
Application.ScreenUpdating = True
Avsluta SubProva det, om du har andra frågor, vänligen kommentera här.
Denna kommentar minimerades av moderatoren på webbplatsen
Denna kod är perfekt för att infoga rader....Sub Insert()
'Uppdatering avExtendoffice
Dim xRg As Range
Dim xAddress As String
Dim I, xNum, xLast Row, xFstRow, xCol, xCount As Long
On Error Resume Next
xAddress = ActiveWindow.RangeSelection.Address
Set xRg = Application.InputBox("Välj den specifika nummerkolumnen som ska användas (enkel kolumn):", "KuTools for Excel", xAddress, , , , , 8)
Om xRg är ingenting, avsluta Sub
Application.ScreenUpdating = False
xLastRow = xRg(1).End(xlDown).Row
xFstRow = xRg.Row
xCol = xRg.Column
xCount = xRg.Count
Ställ in xRg = xRg(1)
För I = xLastRow Till xFstRow Steg -1
xNum = Celler(I, xCol)
xNum = xNum - 1
Om IsNumeric(xNum) Och xNum > 0 Då
Rader(I + 1). Ändra storlek(xNum).Infoga
xCount = xCount + xNum
End If
Nästa
xRg.Resize(xCount, 1). Välj
Application.ScreenUpdating = True
End Sub

Men är det möjligt... kopiera data i de tomma cellerna från raden var var det parametriska numret? Kan jag lägga upp en bild här? Kanske är det lättare om jag visar dig vad jag behöver :)
Denna kommentar minimerades av moderatoren på webbplatsen
Hej, Vladimir, VBA-koden nedan kan hjälpa dig, försök gärna. Sub CopyRow()
'Uppdatering avExtendoffice
Dim xRg As Range
Dim xCRg As Range
Dim xFNum Som heltal
Dim xRN Som heltal
On Error Resume Next
Välj intervall:
xTxt = ActiveWindow.RangeSelection.Address
Set xRg = Application.InputBox("Välj nummerlistan", "Kutools för Excel", xTxt, , , , , 8)
Om xRg är ingenting, avsluta Sub

Om xRg.Columns.Count > 1 Då
MsgBox "Välj en kolumn!"
Gå till SelectRange
End If
Application.ScreenUpdating = False
För xFNum = xRg.Count To 1 Step -1
Ställ in xCRg = xRg.Item(xFNum)
xRN = CInt(xCRg.Value)
Med rader(xCRg.Row)
.Kopiera
.Ändra storlek (xRN). Infoga
Sluta med
Nästa
Application.ScreenUpdating = True
End Sub

Denna kommentar minimerades av moderatoren på webbplatsen
Vi är så nära :) Allt jag behöver nu är en rad mindre än i förra VBA-koden, än värdet på parametriskt nummer. Till exempel: Om siffran är 8 måste vi infoga och kopiera 7 rader. Som du gjorde för Nina just med denna KOPIA
Så om siffran är 8 bör vi ha totalt 8 infogade och kopierade rader, och med den tidigare VBA-koden har vi 9.
tnx
Denna kommentar minimerades av moderatoren på webbplatsen
Hej, I det här fallet kan följande kod hjälpa dig, försök: Sub CopyData()
'Uppdatering av Extendoffice
Dim xRow As Long
Dim VInSertNum Som variant
xRad = 1
Application.ScreenUpdating = False
Gör medan (Cells(xRow, "A") <> "")
VInSertNum = Cells(xRow, "B")
Om ((VInSertNum > 1) And IsNumeric(VInSertNum)) Då
Område(Cells(xRow, "A"), Cells(xRow, "B")). Kopiera
Område(Cells(xRow + 1, "A"), Cells(xRow + VInSertNum - 1, "B")).Välj
Selection.Insert Shift:=xlDown
xRow = xRow + VInSertNum - 1
End If
xRow = xRow + 1
loop
Application.ScreenUpdating = False
Slutanmärkning: I ovanstående kod, bokstaven A anger startkolumnen för ditt dataområde och bokstaven B är kolumnbokstaven som du vill kopiera raderna baserat på. Ändra dem efter dina behov.
Denna kommentar minimerades av moderatoren på webbplatsen
Har du en modul som drar av det kopierade antalet med ett?
Denna kommentar minimerades av moderatoren på webbplatsen
Nej. Jag har den här, men jag behöver den för att dra av 1?
Sub CopyRow()
'Uppdatering avExtendoffice
Dim xRg As Range
Dim xCRg As Range
Dim xFNum Som heltal
Dim xRN Som heltal
On Error Resume Next
Välj intervall:
xTxt = ActiveWindow.RangeSelection.Address
Set xRg = Application.InputBox("Välj nummerlistan", "Kutools för Excel", xTxt, , , , , 8)
Om xRg är ingenting, avsluta Sub

Om xRg.Columns.Count > 1 Då
MsgBox "Välj en kolumn!"
Gå till SelectRange
End If
Application.ScreenUpdating = False
För xFNum = xRg.Count To 1 Step -1
Ställ in xCRg = xRg.Item(xFNum)
xRN = CInt(xCRg.Value)
Med rader(xCRg.Row)
.Kopiera
.Ändra storlek (xRN). Infoga
Sluta med
Nästa
Application.ScreenUpdating = True
End Sub
Denna kommentar minimerades av moderatoren på webbplatsen
Vad jag försöker göra är att skapa och skriva ut etiketter i Word från ett kalkylblad med flera kvantiteter?
Denna kommentar minimerades av moderatoren på webbplatsen
Har du haft en chans att titta på detta?
Denna kommentar minimerades av moderatoren på webbplatsen
Guld välsigne dig
Denna kommentar minimerades av moderatoren på webbplatsen
Letar du efter kod för att generera en excel-lista som dupliceras med ett nummer i en cell och subtraherar 1 för originalet?
Denna kommentar minimerades av moderatoren på webbplatsen
Tack författare! Du förtjänar den bästa beröm för dessa! Men snälla kan du hjälpa mig med koden för att sätta ett konstant värde i alla tomma rader som jag skapade med din kod ovan? För att göra mig tydligare måste jag infoga ett konstant värde i alla tomma rader (detta löstes redan med din kod ovan) sedan måste jag infoga ett konstant värde i alla tomma rader (detta är mitt problem). Tack för jag förväntar mig ditt vänliga svar.
Denna kommentar minimerades av moderatoren på webbplatsen
Hej, menar du att fylla tomma rader med ett specifikt värde? Om så är fallet, kanske följande artikel kan hjälpa dig:https://www.extendoffice.com/documents/excel/772-excel-fill-blank-cells-with-0-or-specific-value.html
Vänligen prova det.
Denna kommentar minimerades av moderatoren på webbplatsen
Kan jag få VBA-koden för radering av rader baserat på dubbletter av värden i en vald kolumn med alla unika värden?
Denna kommentar minimerades av moderatoren på webbplatsen
Hej Roy, om du vill ta bort rader baserade på dubbletter av värden kan du normalt använda Ta bort dubbletter funktion i Excel för att ta bort raderna. Naturligtvis, om du behöver en VBA-kod, använd koden nedan: (Först bör du välja det dataintervall som du vill ta bort och sedan köra den här koden, raderna baserat på dubbletter av värden i den första kolumnen i ditt val kommer att tas bort på en gång. ) Sub Delete_duplicate_rows()
Dim Rng som intervall
Ställ in Rng = Urval
Rng.RemoveDuplicates Columns:=Array(1), Header:=xlYes
Avsluta SubSnälla försök, hoppas det kan hjälpa dig!
Denna kommentar minimerades av moderatoren på webbplatsen
Det här är så coolt!! Tack så mycket
Denna kommentar minimerades av moderatoren på webbplatsen
Muito obrigado, salvou meu trabalho, eu não tinha ideia de como fazer. Muito obrigado mesmo!
Denna kommentar minimerades av moderatoren på webbplatsen
Hallå,
Varsågod. Kul att det hjälper. Har du frågor, kontakta oss gärna. Ha en bra dag.
Vänliga hälsningar,
Mandy
Denna kommentar minimerades av moderatoren på webbplatsen
kan du berätta för mig hur man infogar kolumn på det här sättet, vad är koden
Denna kommentar minimerades av moderatoren på webbplatsen
Hej kompis,
Du kan använda denna VBA-kod:

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


Vänliga hälsningar,
Mandy
Denna kommentar minimerades av moderatoren på webbplatsen
Вот выручили так выручили!
Сидел, ломал голову как добавить строки по заданному количеству.
Ваш макрос мне очень помог.
Klassad 5 av 5
Denna kommentar minimerades av moderatoren på webbplatsen
Namn E-post Telefonadress
0 Namn E-post Telefon Adress
adressrad 2 Namn Telefon 0
Namn E-post Telefon Adress
0 Namn E-post Telefon Adress
adressrad 2 0


Hur kunde jag redigera detta för att starta en ny rad vid varje tomt värde eller 0 värde utan att ha telefonnummer med 0 starta en ny rad?
Denna kommentar minimerades av moderatoren på webbplatsen
Hej, Jarrod

Jag kan tyvärr inte förstå ditt problem tydligt.
Kan du förklara ditt problem mer detaljerat? Eller så kan du infoga en skärmdump eller fil här.
Tack!
Denna kommentar minimerades av moderatoren på webbplatsen
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

Tack
Denna kommentar minimerades av moderatoren på webbplatsen
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

Tack
Denna kommentar minimerades av moderatoren på webbplatsen
Fantastiskt vba-script!
Jag hade över 5000 rader som jag behöver lägga till nya rader i mellan. Alla andra guider sa åt mig att göra en "hjälpar"-kolumn det skulle ta mig en stor del av mitt liv att lägga till 1,2 copy paste om och om igen bara för att lägga till nya rader.
Så, tack för detta!
Klassad 5 av 5
Det finns inga kommentarer här ännu
Lämna dina kommentarer
Postar som gäst
×
Betygsätt detta inlägg:
0   Tecken
Föreslagna platser

Följ oss

Copyright © 2009 - www.extendoffice.com. | Alla rättigheter förbehållna. Drivs av ExtendOffice. | | Sitemap
Microsoft och Office-logotypen är varumärken eller registrerade varumärken som tillhör Microsoft Corporation i USA och / eller andra länder.
Skyddad av Sectigo SSL