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

Kako v Excel vstaviti določeno število vrstic v določenih intervalih?

V Excelov delovni list lahko s pomočjo funkcije Vstavi vstavi prazno vrstico med obstoječe vrstice. Če pa imate velik obseg podatkov in morate za vsako tretjo vrstico vstaviti dve prazni vrstici, kako lahko to delo končate hitro in priročno?


V podatkovno območje v določenih intervalih s kodo VBA vstavite določeno število praznih vrstic

Naslednja koda VBA vam lahko pomaga vstaviti določeno število vrstic po vsaki n-ti vrstici znotraj obstoječih podatkov. Naredite naslednje:

1. Držite tipko ALT + F11 tipke v Excelu in odpre Microsoft Visual Basic za aplikacije okno.

2. Kliknite Vstavi > Moduliin prilepite naslednjo kodo v Okno modula.

Koda VBA: V podatke v določenih intervalih vstavite določeno število vrstic

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. Po lepljenju te kode pritisnite F5 tipko za zagon te kode, se bo pojavilo pozivno polje, ki vas bo opozorilo na izbiro obsega podatkov, v katerega želite vstaviti prazne vrstice, glejte posnetek zaslona:

4. Kliknite OK gumb, se bo pojavilo drugo pozivno polje, vnesite število intervalov vrstic, glejte posnetek zaslona:

5. Pojdi na klik OK gumb, v naslednje izpustno polje za vnos vnesite število praznih vrstic, ki jih želite vstaviti, glejte posnetek zaslona:

6. Nato kliknite OK, in prazne vrstice so bile redno vstavljene v obstoječe podatke, glejte posnetke zaslona:


V podatkovno območje vstavite določeno število praznih vrstic na podlagi vrednosti celic s kodo VBA

Včasih boste morda morali vstaviti prazne vrstice na podlagi seznama vrednosti celic, v tem primeru vam lahko spodnja koda VBA naredi uslugo, storite tako:

1. Držite tipko ALT + F11 tipke v Excelu in odpre Microsoft Visual Basic za aplikacije okno.

2. Kliknite Vstavi > Moduliin prilepite naslednjo kodo v Okno modula.

Koda VBA: Vnesite določeno število praznih vrstic na podlagi seznama številk:

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. Po lepljenju te kode pritisnite F5 tipko za zagon te kode, v pojavnem pogovornem oknu izberite seznam številk, na podlagi katerih želite vstaviti prazne vrstice, glejte posnetek zaslona:

4. Nato kliknite OK, in dobili boste potrebne rezultate, kot je prikazano na naslednjih posnetkih zaslona:


V priročno območje vstavite določeno število praznih vrstic v obseg podatkov s priročno funkcijo

Če niste seznanjeni z zgornjo kodo VBA, Kutools za Excel lahko vam tudi pomaga, njegovo Vstavite prazne vrstice in stolpce Funkcija lahko v določene intervale hitro in enostavno vstavi določeno število vrstic ali stolpcev v obstoječe podatke.

Opomba:Če želite uporabiti to Vstavite prazne vrstice in stolpce , najprej bi morali prenesti Kutools za Excelin nato funkcijo hitro in enostavno uporabite.

Po namestitvi Kutools za Excel, naredite naslednje:

1. Izberite obseg podatkov, v katerega želite vstaviti prazne vrstice v presledkih.

2. Kliknite Kutools > Vstavi > Vstavite prazne vrstice in stolpce, glej posnetek zaslona:

3. v Vstavi prazne vrstice in stolpce izberite pogovorno okno Prazne vrstice možnost iz Vstavi vrstoin nato določite število intervalnih in praznih vrstic, ki jih želite uporabiti, kot je prikazano na sliki spodaj:

4. Nato kliknite OK in prazne vrstice so bile v določen interval vstavljene v izbrani obseg, kot je prikazano na sliki spodaj:

Prenesite in brezplačno preizkusite Kutools za Excel zdaj!


Kopirajte in vstavite vrstice večkrat na podlagi določenih številk s kodo VBA

Recimo, da imate obseg tada, zdaj pa želite kopirati vsako vrstico in jih večkrat prilepiti v naslednjo vrstico na podlagi seznama številk, kot je prikazano spodaj. Kako lahko rešim to nalogo v Excelovem delovnem listu?

Za reševanje tega dela vam bom predstavil koristno kodo, naredite naslednje:

1. Držite tipko ALT + F11 tipke v Excelu in odpre Microsoft Visual Basic za aplikacije okno.

2. Kliknite Vstavi > Moduliin prilepite naslednjo kodo v Okno modula.

Koda VBA: Kopirajte in vstavite vrstice večkrat glede na določene številke:

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. Po lepljenju te kode pritisnite F5 tipko za zagon te kode, v pojavnem pogovornem oknu izberite seznam številk, ki jih želite kopirati, in vstavite podatkovne vrstice na podlagi, glejte posnetek zaslona:

4. Nato kliknite OK in določeno število vrstic je bilo kopirano in prilepljeno pod vsako izvirno vrstico, glejte posnetke zaslona:


Kopirajte in vstavite vrstice večkrat na podlagi določenih številk z neverjetno funkcijo

Če imate Kutools za Excel, Z njegovim Podvojene vrstice / stolpci na podlagi vrednosti celice vrstico ali stolpce lahko hitro in enostavno vstavite glede na seznam številk.

Opomba:Če želite uporabiti to Podvojene vrstice / stolpci na podlagi vrednosti celice, najprej bi morali prenesti Kutools za Excelin nato funkcijo hitro in enostavno uporabite.

Po namestitvi Kutools za Excel, naredite naslednje:

1. Kliknite Kutools > Vstavi > Podvojene vrstice / stolpci na podlagi vrednosti celice, glej posnetek zaslona:

2. v Kopirajte in vstavite vrstice in stolpce pogovorno okno, izberite Kopirajte in vstavite vrstice možnost v tip , nato izberite obseg podatkov, ki ga želite podvojiti, in nato navedite seznam vrednosti, na podlagi katerih želite kopirati vrstice, glejte posnetek zaslona:

4. Nato kliknite Ok or Uporabi gumb, boste dobili naslednji rezultat, kot ga potrebujete:

Prenesite in brezplačno preizkusite Kutools za Excel zdaj!

Več relativnih člankov:

  • Kopirajte in vstavite vrstico večkrat ali podvojite vrstico X Times
  • Ali ste pri svojem vsakodnevnem delu že poskusili kopirati vrstico ali vsako vrstico in nato na delovni list večkrat vstaviti pod trenutno vrstico s podatki? Na primer, imam vrsto celic, zdaj želim kopirati vsako vrstico in jih 3-krat prilepiti v naslednjo vrstico, kot je prikazano na spodnji sliki zaslona. Kako bi se lahko spopadli s tem delom v Excelu?
  • Vstavite prazne vrstice, ko se vrednost v Excelu spremeni
  • Recimo, da imate obseg podatkov in zdaj želite med podatke vstaviti prazne vrstice, ko se vrednost spremeni, tako da lahko zaporedoma enake vrednosti ločite v enem stolpcu, kot kažejo naslednji prikazani posnetki zaslona. V tem članku bom spregovoril o nekaj trikih, s katerimi boste rešili to težavo.
  • Kopirajte vrstice iz več delovnih listov na podlagi meril v nov list
  • Recimo, da imate delovni zvezek s tremi delovnimi listi, ki imajo enako obliko kot spodnja slika zaslona. Zdaj želite kopirati vse vrstice s teh delovnih listov, stolpec C vsebuje besedilo »Dokončano«, v nov delovni list. Kako lahko to težavo rešite hitro in enostavno, ne da bi jih ročno kopirali in prilepili?

Najboljša orodja za pisarniško produktivnost

Kutools za Excel rešuje večino vaših težav in poveča vašo produktivnost za 80%

  • Ponovna uporaba: Hitro vstavite zapletene formule, grafikoni in vse, kar ste že uporabljali; Šifriraj celice z geslom; Ustvari poštni seznam in pošiljanje e-pošte ...
  • Vrstica Super Formula (enostavno urejanje več vrstic besedila in formule); Bralna postavitev (enostavno branje in urejanje velikega števila celic); Prilepite v filtrirani obseg...
  • Združi celice / vrstice / stolpce brez izgube podatkov; Vsebina razdeljenih celic; Združi podvojene vrstice / stolpce... prepreči podvojene celice; Primerjaj obsege...
  • Izberite Duplicate ali Unique Vrstice; Izberite prazne vrstice (vse celice so prazne); Super Find in Fuzzy Find v mnogih delovnih zvezkih; Naključna izbira ...
  • Natančna kopija Več celic brez spreminjanja sklica formule; Samodejno ustvarjanje referenc na več listov; Vstavi oznake, Potrditvena polja in še več ...
  • Izvleček besedila, Dodaj besedilo, Odstrani po položaju, Odstrani presledek; Ustvari in natisni vmesne seštevke strani Pretvarjanje med vsebino celic in komentarji...
  • Super filter (shranite in uporabite sheme filtrov za druge liste); Napredno razvrščanje glede na mesec / teden / dan, pogostost in drugo; Poseben filter s krepko, ležeče ...
  • Združite delovne zvezke in delovne liste; Spoji tabele na podlagi ključnih stolpcev; Razdelite podatke na več listov; Paketna pretvorba xls, xlsx in PDF...
  • Več kot 300 zmogljivih funkcij. Podpira Office / Excel 2007-2021 in 365. Podpira vse jezike. Enostavna uvedba v vašem podjetju ali organizaciji. 30-dnevna brezplačna preizkusna različica vseh funkcij. 60-dnevna garancija vračila denarja.
zavihek kte 201905

Kartica Office prinaša vmesnik z zavihki v Office in poenostavi vaše delo

  • Omogočite urejanje in branje z zavihki v Wordu, Excelu, PowerPointu, Publisher, Access, Visio in Project.
  • Odprite in ustvarite več dokumentov v novih zavihkih istega okna in ne v novih oknih.
  • Poveča vašo produktivnost za 50%in vsak dan zmanjša na stotine klikov miške za vas!
dno pisarniške mize
Komentarji (39)
Ocenjeno 5 iz 5 · 2 ocene
Ta komentar je moderator na spletnem mestu minimiziral
Živjo, uporabljam vašo kodo (spodaj), mi lahko prosim poveste, kako lahko te vrstice zapolnim z besedilom po meri. Uporabil sem vašo kodo za vnos treh vrstic, odlično je delovala, zdaj pa moram vnesti besedilo Row1 = Date Row2.= Lokacija Vrstica 3 = Telefonska številka Hvala vnaprej ... "Sub InsertRowsAtIntervals() 'Updateby20150707 Dim Rng As Range Dim xInterval As Integer Dim xRows As Integer Dim xRowsCount As Integer Dim xNum1 Kot Integer Dim xNum2 Kot Integer Dim WorkRng kot obseg Dim xWs Kot delovni list xTitleId = "KutoolsforExcel" Set WorkRng = Application.RangeIn Set WorkRng(I), , WorkRng.Address, Type:=8) xRowsCount = WorkRng.Rows.Count xInterval = Application.InputBox("Vnesite interval vrstice. ", xTitleId, 1, Type:=1) xRows = Application.InputBox("Koliko vrstic do vstavite v vsakem intervalu? ", 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)).Izberi Application.Selection.EntireRow.Insert xNum1= xNum1 + xNum2 Next End Sub"
Ta komentar je moderator na spletnem mestu minimiziral
najlepša hvala!!!!! To je neverjetno
Ta komentar je moderator na spletnem mestu minimiziral
Najlepša hvala!!
Ta komentar je moderator na spletnem mestu minimiziral
Hi


Uporabljam intervalno vba kodo, ki deluje.. Toda ko uporabim več kot 100000 vrstic, ne deluje.. prijazno predlagajte, kaj naj spremenim, če sploh.


Sub InsertRowsAtIntervals()
'Posodobitev do 20150707
Dim Rng kot domet
Dim xInterval kot celo število
Zatemni xRows kot celo število
Dim xRowsCount kot celo število
Dim xNum1 kot celo število
Dim xNum2 kot celo število
Dim WorkRng As Range
Dim xWs kot delovni list
xTitleId = "KutoolsforExcel"
Nastavite WorkRng = Aplikacija.Izbor
Nastavi WorkRng = Application.InputBox("Range", xTitleId, WorkRng.Address, Type:=8)
xRowsCount = WorkRng.Rows.Count
xInterval = Application.InputBox("Vnesite interval vrstice. ", xTitleId, 1, Type:=1)
xRows = Application.InputBox("Koliko vrstic vstaviti v vsakem intervalu? ", xTitleId, 1, Vrsta:=1)
xNum1 = WorkRng.Row + xInterval
xNum2 = xVrstice + xInterval
Nastavite xWs = WorkRng.Parent
Za i = 1 do Int(xRowsCount/xInterval)
xWs.Range(xWs.Cells(xNum1, WorkRng.Column), xWs.Cells(xNum1 + xRows - 1, WorkRng.Column)).Izberi
Application.Selection.EntireRow.Insert
xNum1 = xNum1 + xNum2
Naslednji
End Sub
Ta komentar je moderator na spletnem mestu minimiziral
Fantastično - prihranil si mi veliko neumnega vnosa podatkov, najlepša hvala
Ta komentar je moderator na spletnem mestu minimiziral
zdravo, kako lahko dobim kodo za vstavljanje določenega števila stolpcev v podatke v določenih intervalih
Ta komentar je moderator na spletnem mestu minimiziral
Pozdravljeni, PK,
Za vstavljanje praznih stolpcev v obstoječe podatke v določenih intervalih vam lahko pomaga spodnja koda VBA! Prosim poskusite.

Sub Insert ColumnsAtIntervals()
Dim Rng kot domet
Dim xInterval kot celo število
Dim xCs kot celo število
Dim xCCount kot celo število
Dim xNum1 kot celo število
Dim xNum2 kot celo število
Dim WorkRng As Range
Dim xWs kot delovni list
xTitleId = "KutoolsforExcel"
Nastavite WorkRng = Aplikacija.Izbor
Nastavi WorkRng = Application.InputBox("Range", xTitleId, WorkRng.Address, Type:=8)
xCCount = WorkRng.Columns.Count
xInterval = Application.InputBox("Vnesite interval stolpca. ", xTitleId, 1, Type:=1)
xCs = Application.InputBox("Koliko stolpcev vstaviti v vsakem intervalu? ", xTitleId, 1, Vrsta:=1)
xNum1 = WorkRng.Column + xInterval
xNum2 = xCs + xInterval
Nastavite xWs = WorkRng.Parent
Za I = 1 do Int(xCCount / xInterval)
xWs.Range(xWs.Cells(WorkRng.Row, xNum1 + xCs - 1), xWs.Cells(WorkRng.Row, xNum1)).Izberi
Application.Selection.EntireColumn.Insert
xNum1 = xNum1 + xNum2
Naslednji
End Sub
Ta komentar je moderator na spletnem mestu minimiziral
Kako dodati vrstice v Excelove podatke v skladu z omenjeno številko v zadnji celici recimo v Excelovih podatkih, če zadnja celica prikazuje številko kot 4, kakšen je način za samodejno dodajanje 4 vrstic. v drugi vrstici je številka 72 itd
Ta komentar je moderator na spletnem mestu minimiziral
Živjo, SPGupta,
Če želite vstaviti prazne vrstice na podlagi določenega seznama številk, uporabite spodnjo kodo VBA.
Prosim poskusite, upam, da vam lahko pomaga!

Podvložek()
'PosodobitevExtendoffice
Dim xRg As Range
Dim xAddress kot niz
Dim I, xNum, xLastRow, xFstRow, xCol, xCount As Long
On Error Resume Next
xAddress = ActiveWindow.RangeSelection.Address
Nastavite xRg = Application.InputBox("Izberite določen stolpec s številko za uporabo (en stolpec):", "KuTools For Excel", xAddress, , , , , 8)
Če xRg ni nič, zapustite Sub
Application.ScreenUpdating = Napačno
xLastRow = xRg(1).End(xlDown).Row
xFstRow = xRg.Row
xCol = xRg.Stolpec
xCount = xRg.Count
Nastavi xRg = xRg(1)
Za I = xLastRow To xFstRow Korak -1
xNum = Celice(I, xCol)
Če je IsNumeric(xNum) In xNum > 0 Potem
Vrstice (I + 1). Spremeni velikost (xNum). Vstavi
xŠtevilo = xŠtevilo + xŠtev
Konec Če
Naslednji
xRg.Resize(xCount, 1).Izberi
Application.ScreenUpdating = Res
End Sub
Ta komentar je moderator na spletnem mestu minimiziral
Živjo, mi lahko pomagate, prosim? Kako lahko spremenim to kodo, da prikažem eno več vrstic manj kot število v celici? Na primer, če je številka v celici 4, program doda 3 vrstice. Če je številka v celici 1, se vrstice ne dodajajo
Ta komentar je moderator na spletnem mestu minimiziral
Živjo Nina,
Če želite rešiti svojo nalogo, uporabite spodnjo kodo:

Podvložek()
'PosodobitevExtendoffice
Dim xRg As Range
Dim xAddress kot niz
Dim I, xNum, xLastRow, xFstRow, xCol, xCount As Long
On Error Resume Next
xAddress = ActiveWindow.RangeSelection.Address
Nastavite xRg = Application.InputBox("Izberite določen stolpec s številko za uporabo (en stolpec):", "KuTools For Excel", xAddress, , , , , 8)
Če xRg ni nič, zapustite Sub
Application.ScreenUpdating = Napačno
xLastRow = xRg(1).End(xlDown).Row
xFstRow = xRg.Row
xCol = xRg.Stolpec
xCount = xRg.Count
Nastavi xRg = xRg(1)
Za I = xLastRow To xFstRow Korak -1
xNum = Celice(I, xCol)
xNum = xNum - 1
Če je IsNumeric(xNum) In xNum > 0 Potem
Vrstice (I + 1). Spremeni velikost (xNum). Vstavi
xŠtevilo = xŠtevilo + xŠtev
Konec Če
Naslednji
xRg.Resize(xCount, 1).Izberi
Application.ScreenUpdating = Res
End Sub


Prosim poskusite, upam, da vam lahko pomaga!
Ta komentar je moderator na spletnem mestu minimiziral
Deluje popolno, najlepša hvala!
Ta komentar je moderator na spletnem mestu minimiziral
To je odlično. Sprašujem se ... in moja angleščina ni popolna, zato upam, da me boste razumeli :) .....
Ali je mogoče zapolniti dodane prazne vrstice z vrednostmi iz vrstice, kjer je bila ta parametrična številka?
Ta komentar je moderator na spletnem mestu minimiziral
Pozdravljeni, Vladimir, ali misliš vstaviti prazne vrstice na podlagi seznama številk na delovnem listu? Če je tako, uporabite spodnjo kodo:
Sub Insert()
'PosodobitevExtendoffice
Dim xRg As Range
Dim xAddress kot niz
Dim I, xNum, xLastRow, xFstRow, xCol, xCount As Long
On Error Resume Next
xAddress = ActiveWindow.RangeSelection.Address
Nastavite xRg = Application.InputBox("Izberite seznam številk, za katere želite vstaviti vrstice na podlagi:", "KuTools For Excel", xAddress, , , , , 8)
Če xRg ni nič, zapustite Sub
Application.ScreenUpdating = Napačno
xLastRow = xRg(1).End(xlDown).Row
xFstRow = xRg.Row
xCol = xRg.Stolpec
xCount = xRg.Count
Nastavi xRg = xRg(1)
Za I = xLastRow To xFstRow Korak -1
xNum = Celice(I, xCol)
Če je IsNumeric(xNum) In xNum > 0 Potem
Vrstice (I + 1). Spremeni velikost (xNum). Vstavi
xŠtevilo = xŠtevilo + xŠtev
Konec Če
Naslednji
xRg.Resize(xCount, 1).Izberi
Application.ScreenUpdating = Res
Konec SubProsimo, poskusite, če imate druga vprašanja, komentirajte tukaj.
Ta komentar je moderator na spletnem mestu minimiziral
Ta koda je kot nalašč za vstavljanje vrstic....Sub Insert()
'PosodobitevExtendoffice
Dim xRg As Range
Dim xAddress kot niz
Dim I, xNum, xLastRow, xFstRow, xCol, xCount As Long
On Error Resume Next
xAddress = ActiveWindow.RangeSelection.Address
Nastavite xRg = Application.InputBox("Izberite določen stolpec s številko za uporabo (en stolpec):", "KuTools For Excel", xAddress, , , , , 8)
Če xRg ni nič, zapustite Sub
Application.ScreenUpdating = Napačno
xLastRow = xRg(1).End(xlDown).Row
xFstRow = xRg.Row
xCol = xRg.Stolpec
xCount = xRg.Count
Nastavi xRg = xRg(1)
Za I = xLastRow To xFstRow Korak -1
xNum = Celice(I, xCol)
xNum = xNum - 1
Če je IsNumeric(xNum) In xNum > 0 Potem
Vrstice (I + 1). Spremeni velikost (xNum). Vstavi
xŠtevilo = xŠtevilo + xŠtev
Konec Če
Naslednji
xRg.Resize(xCount, 1).Izberi
Application.ScreenUpdating = Res
End Sub

Toda ali je mogoče ... kopirati podatke v te prazne celice iz vrstice, kjer je bila ta parametrična številka? Lahko tukaj objavim sliko? Mogoče je lažje, če ti pokažem, kaj potrebujem :)
Ta komentar je moderator na spletnem mestu minimiziral
Živjo, Vladimir, morda ti lahko pomaga spodnja koda VBA, poskusi. Sub CopyRow()
'PosodobitevExtendoffice
Dim xRg As Range
Dim xCRg As Range
Dim xFNum kot celo število
Dim xRN kot celo število
On Error Resume Next
Izberi obseg:
xTxt = ActiveWindow.RangeSelection.Address
Nastavi xRg = Application.InputBox("Izberi seznam številk", "Kutools za Excel", xTxt, , , , , 8)
Če xRg ni nič, zapustite Sub

Če je xRg.Columns.Count > 1 Potem
MsgBox "Prosim, izberite en stolpec!"
Pojdi na SelectRange
Konec Če
Application.ScreenUpdating = Napačno
Za xFNum = xRg. Število do 1 koraka -1
Nastavi xCRg = xRg.Item(xFNum)
xRN = CInt(xCRg.Vrednost)
Z vrsticami (xCRg.Row)
.Kopirati
.Spremeni velikost(xRN).Vstavi
Končaj s
Naslednji
Application.ScreenUpdating = Res
End Sub

Ta komentar je moderator na spletnem mestu minimiziral
Tako blizu smo :) Vse, kar potrebujem zdaj, je ena vrstica manj kot v zadnji kodi VBA, kot je vrednost parametričnega števila. Na primer: Če je številka 8, moramo vstaviti in kopirati 7 vrstic. Kot si naredil za Nino samo s to KOPIJA
Torej, če je številka 8, bi morali imeti skupaj 8 vstavljenih in kopiranih vrstic, s prejšnjo kodo VBA pa jih imamo 9.
Tnx
Ta komentar je moderator na spletnem mestu minimiziral
Pozdravljeni, v tem primeru vam lahko pomaga naslednja koda, poskusite: Sub CopyData()
'Posodobitev Extendoffice
Dim xRow As Long
Dim VInSertNum kot različica
xVrstica = 1
Application.ScreenUpdating = Napačno
Naredi medtem (celice(xRow, "A") <> "")
VInSertNum = Celice (xRow, "B")
Če ((VInSertNum > 1) In IsNumeric(VInSertNum)) potem
Obseg(celice(xRow, "A"), Celice(xRow, "B")).Kopiraj
Obseg(celice(xRow + 1, "A"), Celice(xRow + VInSertNum - 1, "B")).Izberi
Selection.Insert Shift:=xlDown
xRow = xRow + VInSertNum - 1
Konec Če
xVrstica = xVrstica + 1
Zanka
Application.ScreenUpdating = Napačno
Končna podopomba: V zgornji kodi črka A označuje začetni stolpec vašega obsega podatkov in črko B je črka stolpca, na podlagi katere želite podvojiti vrstice. Prosimo, spremenite jih glede na vaše potrebe.
Ta komentar je moderator na spletnem mestu minimiziral
Ali imate modul, ki kopirano številko odšteje za eno?
Ta komentar je moderator na spletnem mestu minimiziral
Ne. Imam tega, vendar ga potrebujem, da odštejem 1?
Sub CopyRow()
'PosodobitevExtendoffice
Dim xRg As Range
Dim xCRg As Range
Dim xFNum kot celo število
Dim xRN kot celo število
On Error Resume Next
Izberi obseg:
xTxt = ActiveWindow.RangeSelection.Address
Nastavi xRg = Application.InputBox("Izberi seznam številk", "Kutools za Excel", xTxt, , , , , 8)
Če xRg ni nič, zapustite Sub

Če je xRg.Columns.Count > 1 Potem
MsgBox "Prosim, izberite en stolpec!"
Pojdi na SelectRange
Konec Če
Application.ScreenUpdating = Napačno
Za xFNum = xRg. Število do 1 koraka -1
Nastavi xCRg = xRg.Item(xFNum)
xRN = CInt(xCRg.Vrednost)
Z vrsticami (xCRg.Row)
.Kopirati
.Spremeni velikost(xRN).Vstavi
Končaj s
Naslednji
Application.ScreenUpdating = Res
End Sub
Ta komentar je moderator na spletnem mestu minimiziral
Poskušam ustvariti in natisniti nalepke v Wordu iz preglednice z več količinami?
Ta komentar je moderator na spletnem mestu minimiziral
Ste imeli priložnost pogledati to?
Ta komentar je moderator na spletnem mestu minimiziral
Zlato te blagoslovi
Ta komentar je moderator na spletnem mestu minimiziral
Iščete kodo za ustvarjanje Excelovega seznama, ki podvoji številko v celici in odšteje 1 za izvirnik?
Ta komentar je moderator na spletnem mestu minimiziral
Hvala avtorju! Za to si zaslužiš najboljšo pohvalo! Ampak, prosim, mi lahko pomagate s kodo, da dam konstantno vrednost v vse prazne vrstice, ki sem jih ustvaril z vašo zgornjo kodo? Da bom bolj jasen, moram v vse prazne vrstice vstaviti konstantno vrednost (to je že rešeno z vašo zgornjo kodo), nato pa moram v vse prazne vrstice vstaviti konstantno vrednost (to je moj problem). Hvala, saj pričakujem vaš prijazen odgovor.
Ta komentar je moderator na spletnem mestu minimiziral
Pozdravljeni, ali mislite zapolniti prazne vrstice z določeno vrednostjo? Če je tako, bi vam lahko pomagal naslednji članek:https://www.extendoffice.com/documents/excel/772-excel-fill-blank-cells-with-0-or-specific-value.html
Prosim poskusite.
Ta komentar je moderator na spletnem mestu minimiziral
Ali lahko dobim kodo VBA za brisanje vrstic na podlagi podvojenih vrednosti v izbranem stolpcu, ki ohranja vse edinstvene vrednosti?
Ta komentar je moderator na spletnem mestu minimiziral
Pozdravljeni, Roy, če želite odstraniti vrstice na podlagi podvojenih vrednosti, lahko običajno uporabite Odstrani dvojnike funkcijo v Excelu za odstranitev vrstic. Seveda, če potrebujete kodo VBA, uporabite spodnjo kodo: (Najprej izberite obseg podatkov, ki ga želite odstraniti, nato pa zaženite to kodo, vrstice na podlagi podvojene vrednosti v prvem stolpcu vaše izbire bodo takoj odstranjene. ) Sub Delete_duplicate_rows()
Dim Rng kot domet
Nastavite Rng = Izbira
Rng.RemoveDuplicates Columns:=Array(1), Header:=xlYes
Konec SubProsim, poskusite, upam, da vam lahko pomaga!
Ta komentar je moderator na spletnem mestu minimiziral
To je tako kul!! Najlepša hvala
Ta komentar je moderator na spletnem mestu minimiziral
Muito obrigado, salvou meu trabalho, eu não tinha ideia de como fazer. Muito obrigado mesmo!
Ta komentar je moderator na spletnem mestu minimiziral
Zdravo,
Ni za kaj. Veseli me, da pomaga. Vsa vprašanja, vas prosimo, da nas kontaktirate. Imej lep dan.
S spoštovanjem,
Mandy
Ta komentar je moderator na spletnem mestu minimiziral
mi lahko poveste, kako vstaviti stolpec na ta način, kakšna je koda
Ta komentar je moderator na spletnem mestu minimiziral
Pozdravljen, prijatelj,
Uporabite lahko to kodo 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


S spoštovanjem,
Mandy
Ta komentar je moderator na spletnem mestu minimiziral
Вот выручили tako выручили!
Sidel, lomal glavo, kako dodati vrstice po zadanem številu.
Vaš makros mi je zelo pomagal.
Ocenjeno 5 iz 5
Ta komentar je moderator na spletnem mestu minimiziral
Ime E-pošta Telefonski naslov
0 Ime E-pošta Telefon Naslov
naslovna vrstica 2 Ime Telefon 0
Ime E-pošta Telefon Naslov
0 Ime E-pošta Telefon Naslov
naslovna vrstica 2 0


Kako bi lahko to uredil tako, da bi začel novo vrstico pri vsaki prazni vrednosti ali vrednosti 0, ne da bi telefonske številke z 0 začele novo vrstico?
Ta komentar je moderator na spletnem mestu minimiziral
Živjo, Jarrod

Oprostite, ne morem jasno razumeti vaše težave.
Ali lahko podrobneje razložite svojo težavo? Lahko pa sem vstavite posnetek zaslona ali datoteko.
Hvala!
Ta komentar je moderator na spletnem mestu minimiziral
hola, hay algun codigo que me permita copiar los datos, pero 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

hvala
Ta komentar je moderator na spletnem mestu minimiziral
hola, hay algun codigo que me permita copiar los datos, pero 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

hvala
Ta komentar je moderator na spletnem mestu minimiziral
Čudovit skript vba!
Imel sem več kot 5000 vrstic, ki jim moram vmes dodati nove vrstice. Vsi drugi vodniki so mi rekli, naj naredim "pomočni" stolpec, kar bi mi vzelo dober del življenja, da dodajam 1,2 copy paste znova in znova samo za dodajanje novih vrstic.
Torej, hvala za to!
Ocenjeno 5 iz 5
Tu še ni objavljenih komentarjev
Pustite vaše komentarje
Objava kot gost
×
Ocenite to objavo:
0   Znaki
Predlagane lokacije

Sledi nam

Copyright © 2009 - www.extendoffice.com. | Vse pravice pridržane. Poganja ga ExtendOffice. | Kazalo
Microsoft in logotip Office sta blagovni znamki ali registrirani blagovni znamki družbe Microsoft Corporation v ZDA in / ali drugih državah.
Zaščiteno s Sectigo SSL