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

Sut i fewnosod nifer benodol o resi ar gyfnodau penodol yn Excel?

Yn nhaflen waith Excel, gallwch fewnosod rhes wag rhwng y rhesi presennol trwy ddefnyddio swyddogaeth Mewnosod. Ond, os oes gennych ystod eang o ddata, ac, mae angen i chi fewnosod dwy res wag ar ôl pob trydydd rhes, sut allech chi orffen y swydd hon yn gyflym ac yn gyfleus?


Mewnosod nifer benodol o resi gwag yn yr ystod ddata ar gyfnodau penodol â chod VBA

Gall y cod VBA canlynol eich helpu i fewnosod nifer benodol o resi ar ôl pob nawfed rhes yn y data presennol. Gwnewch fel a ganlyn:

1. Daliwch i lawr y ALT + F11 allweddi yn Excel, ac mae'n agor y Microsoft Visual Basic ar gyfer Ceisiadau ffenestr.

2. Cliciwch Mewnosod > Modiwlau, a gludwch y cod canlynol yn y Ffenestr Modiwl.

Cod VBA: Mewnosod nifer benodol o resi mewn data ar gyfnodau penodol

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. Ar ôl pasio'r cod hwn, pwyswch F5 yn allweddol i redeg y cod hwn, bydd blwch prydlon yn popio allan i'ch atgoffa rhag dewis yr ystod ddata rydych chi am ei mewnosod rhesi gwag, gweler y screenshot:

4. Cliciwch OK botwm, bydd blwch prydlon arall yn popio allan, nodwch nifer yr ysbeidiau rhes, gweler y screenshot:

5. Ewch ymlaen i glicio OK botwm, yn y blwch prydlon popped canlynol, nodwch nifer y rhesi gwag rydych chi am eu mewnosod, gweler y screenshot:

6. Yna cliciwch OK, ac mae'r rhesi gwag wedi'u mewnosod yn y data presennol yn rheolaidd, gweler sgrinluniau:


Mewnosod nifer benodol o resi gwag yn yr ystod ddata yn seiliedig ar werthoedd celloedd gyda chod VBA

Weithiau, efallai y bydd angen i chi fewnosod y rhesi gwag yn seiliedig ar restr o werthoedd celloedd, yn yr achos hwn, gall y cod VBA isod ffafrio chi, gwnewch fel hyn:

1. Daliwch i lawr y ALT + F11 allweddi yn Excel, ac mae'n agor y Microsoft Visual Basic ar gyfer Ceisiadau ffenestr.

2. Cliciwch Mewnosod > Modiwlau, a gludwch y cod canlynol yn y Ffenestr Modiwl.

Cod VBA: Mewnosod nifer benodol o resi gwag yn seiliedig ar restr rhifau:

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. Ar ôl pasio'r cod hwn, pwyswch F5 allwedd i redeg y cod hwn, yn y blwch deialog popped out, dewiswch y rhestr o rifau yr ydych am fewnosod rhesi gwag yn seiliedig arnynt, gweler y screenshot:

4. Yna, cliciwch OK, a byddwch yn cael y canlyniadau sydd eu hangen arnoch fel y sgrinluniau canlynol a ddangosir:


Mewnosod nifer benodol o resi gwag yn yr ystod ddata ar gyfnodau penodol gyda nodwedd ddefnyddiol

Os nad ydych chi'n gyfarwydd â'r cod VBA uchod, Kutools ar gyfer Excel hefyd yn gallu eich helpu chi, ei Mewnosod Rhesi a Cholofnau Gwag gall nodwedd fewnosod nifer benodol o resi neu golofnau yn y data presennol ar gyfnodau penodol yn gyflym ac yn hawdd.

Nodyn:I gymhwyso hyn Mewnosod Rhesi a Cholofnau Gwag , yn gyntaf, dylech lawrlwytho'r Kutools ar gyfer Excel, ac yna cymhwyswch y nodwedd yn gyflym ac yn hawdd.

Ar ôl gosod Kutools ar gyfer Excel, gwnewch fel a ganlyn:

1. Dewiswch yr ystod ddata rydych chi am fewnosod rhesi gwag ar gyfnodau.

2. Cliciwch Kutools > Mewnosod > Mewnosod Rhesi a Cholofnau Gwag, gweler y screenshot:

3. Yn y Mewnosod Blank Row & Colofnau blwch deialog, dewiswch Rhesi gwag opsiwn o'r Teipiwch y math, ac yna nodwch nifer y rhesi egwyl a gwag rydych chi am eu defnyddio fel y screenshot canlynol a ddangosir:

4. Yna cliciwch OK botwm, ac mae'r rhesi gwag wedi'u mewnosod yn yr ystod a ddewiswyd ar egwyl benodol fel y dangosir y screenshot canlynol:

Dadlwythwch a threial am ddim Kutools ar gyfer Excel Now!


Copïo a mewnosod rhesi sawl gwaith yn seiliedig ar rifau penodol gyda chod VBA

Gan dybio, mae gennych chi ystod o tada, ac nawr, rydych chi am gopïo pob rhes a'u pastio sawl gwaith i'r rhes nesaf yn seiliedig ar restr o rifau fel isod sgrinluniau a ddangosir. Sut allai ddatrys y dasg hon yn nhaflen waith Excel?

Er mwyn delio â'r swydd hon, byddaf yn cyflwyno cod defnyddiol i chi, gwnewch y camau canlynol:

1. Daliwch i lawr y ALT + F11 allweddi yn Excel, ac mae'n agor y Microsoft Visual Basic ar gyfer Ceisiadau ffenestr.

2. Cliciwch Mewnosod > Modiwlau, a gludwch y cod canlynol yn y Ffenestr Modiwl.

Cod VBA: Copïo a mewnosod rhesi sawl gwaith yn seiliedig ar rifau penodol:

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. Ar ôl pasio'r cod hwn, pwyswch F5 allwedd i redeg y cod hwn, yn y blwch deialog popped out, dewiswch y rhestr o rifau rydych chi am eu copïo a mewnosodwch y rhesi data yn seiliedig arnynt, gweler y screenshot:

4. Yna, cliciwch OK botwm, ac mae'r nifer benodol o resi wedi'u copïo a'u pastio o dan bob rhes wreiddiol, gweler sgrinluniau:


Copïo a mewnosod rhesi sawl gwaith yn seiliedig ar rifau penodol sydd â nodwedd anhygoel

Os oes gennych Kutools ar gyfer Excel, Gyda'i Rhesi / Colofnau Dyblyg yn seiliedig ar werth celloedd nodwedd, gallwch fewnosod y rhesi neu'r colofnau yn seiliedig ar y rhestr rhifau yn gyflym ac yn hawdd.

Nodyn:I gymhwyso hyn Rhesi / Colofnau Dyblyg yn seiliedig ar werth celloedd, yn gyntaf, dylech lawrlwytho'r Kutools ar gyfer Excel, ac yna cymhwyswch y nodwedd yn gyflym ac yn hawdd.

Ar ôl gosod Kutools ar gyfer Excel, gwnewch fel a ganlyn:

1. Cliciwch Kutools > Mewnosod > Rhesi / Colofnau Dyblyg yn seiliedig ar werth celloedd, gweler y screenshot:

2. Yn y Copïo a mewnosod rhesi a cholofnau blwch deialog, dewiswch Copïo a mewnosod rhesi opsiwn yn y math adran, yna dewiswch yr ystod ddata rydych chi am ei dyblygu, ac yna nodwch y rhestr o werthoedd rydych chi am gopïo rhesi yn seiliedig arni, gweler y screenshot:

4. Yna, cliciwch Ok or Gwneud cais botwm, fe gewch y canlyniad canlynol yn ôl yr angen:

Dadlwythwch a threial am ddim Kutools ar gyfer Excel Now!

Erthyglau mwy cymharol:

  • Copïo A Mewnosod Rownd Amseroedd Lluosog Neu Dyblygu The Row X Times
  • Yn eich gwaith beunyddiol, a ydych erioed wedi ceisio copïo rhes neu bob rhes ac yna mewnosod sawl gwaith o dan y rhes ddata gyfredol mewn taflen waith? Er enghraifft, mae gen i ystod o gelloedd, nawr, rydw i eisiau copïo pob rhes a'u pastio 3 gwaith i'r rhes nesaf fel y dangosir y screenshot canlynol. Sut allech chi ddelio â'r swydd hon yn Excel?
  • Mewnosod Rhesi Gwag Pan fydd Gwerth yn Newid Yn Excel
  • Gan dybio bod gennych chi ystod o ddata, ac nawr rydych chi am fewnosod rhesi gwag rhwng y data pan fydd gwerth yn newid, fel y gallwch chi wahanu'r un gwerthoedd dilyniannol mewn un golofn â'r sgrinluniau canlynol a ddangosir. Yn yr erthygl hon, byddaf yn siarad am rai triciau i chi ddatrys y broblem hon.
  • Copi Rhesi O Daflenni Gwaith Lluosog Yn Seiliedig ar Feini Prawf I Mewn i Daflen Newydd
  • Yn ôl pob tebyg, mae gennych lyfr gwaith gyda thair taflen waith sydd â'r un fformatio ag islaw'r screenshot a ddangosir. Nawr, rydych chi am gopïo'r holl resi o'r taflenni gwaith hyn y mae colofn C yn cynnwys y testun “Wedi'i Gwblhau” i mewn i daflen waith newydd. Sut allech chi ddatrys y broblem hon yn gyflym ac yn hawdd heb eu copïo a'u pastio fesul un â llaw?

Yr Offer Cynhyrchedd Swyddfa Gorau

Mae Kutools for Excel yn Datrys y rhan fwyaf o'ch Problemau, ac yn Cynyddu Eich Cynhyrchedd 80%

  • Ailddefnyddio: Mewnosod yn gyflym fformwlâu cymhleth, siartiau ac unrhyw beth rydych chi wedi'i ddefnyddio o'r blaen; Amgryptio Celloedd gyda chyfrinair; Creu Rhestr Bostio ac anfon e-byst ...
  • Bar Fformiwla Gwych (golygu llinellau lluosog o destun a fformiwla yn hawdd); Cynllun Darllen (darllen a golygu nifer fawr o gelloedd yn hawdd); Gludo i'r Ystod Hidlo...
  • Uno Celloedd / Rhesi / Colofnau heb golli Data; Cynnwys Celloedd Hollt; Cyfuno Rhesi / Colofnau Dyblyg... Atal Celloedd Dyblyg; Cymharwch y Meysydd...
  • Dewiswch Dyblyg neu Unigryw Rhesi; Dewiswch Blank Rows (mae pob cell yn wag); Darganfyddiad Gwych a Darganfyddiad Niwlog mewn Llawer o Lyfrau Gwaith; Dewis ar Hap ...
  • Copi Union Celloedd Lluosog heb newid cyfeirnod fformiwla; Auto Creu Cyfeiriadau i Daflenni Lluosog; Mewnosod Bwledi, Blychau Gwirio a mwy ...
  • Testun Detholiad, Ychwanegu Testun, Tynnu yn ôl Swydd, Tynnwch y Gofod; Creu ac Argraffu Subtotals Paging; Trosi rhwng Cynnwys a Sylwadau Celloedd...
  • Hidlo Super (arbed a chymhwyso cynlluniau hidlo i ddalenni eraill); Trefnu Uwch yn ôl mis / wythnos / dydd, amlder a mwy; Hidlo Arbennig gan feiddgar, italig ...
  • Cyfuno Llyfrau Gwaith a Thaflenni Gwaith; Uno Tablau yn seiliedig ar golofnau allweddol; Rhannwch Ddata yn Daflenni Lluosog; Trosi Swp xls, xlsx a PDF...
  • Mwy na 300 o nodweddion pwerus. Yn cefnogi Swyddfa / Excel 2007-2019 a 365. Yn cefnogi pob iaith. Defnydd hawdd yn eich menter neu sefydliad. Nodweddion llawn treial am ddim 30 diwrnod. Gwarant arian yn ôl 60 diwrnod.
tab kte 201905

Mae Tab Office yn Dod â rhyngwyneb Tabbed i'r Swyddfa, a Gwneud Eich Gwaith yn Haws o lawer

  • Galluogi golygu a darllen tabbed yn Word, Excel, PowerPoint, Cyhoeddwr, Mynediad, Visio a Phrosiect.
  • Agor a chreu dogfennau lluosog mewn tabiau newydd o'r un ffenestr, yn hytrach nag mewn ffenestri newydd.
  • Yn cynyddu eich cynhyrchiant 50%, ac yn lleihau cannoedd o gliciau llygoden i chi bob dydd!
gwaelod officetab
sylwadau (36)
Wedi graddio 5 allan o 5 · Graddfeydd 1
Lleihawyd y sylw hwn gan y safonwr ar y wefan
Helo, rwy'n defnyddio'ch cod (isod) a allwch chi ddweud wrthyf sut y gallwch chi lenwi'r rhesi hynny â thestun wedi'i deilwra i mewn iddo. Rwyf wedi defnyddio'ch cod i nodi tair rhes roedd yn gweithio'n berffaith ond nawr mae angen i mi nodi'r testun Row1 = Dyddiad Row2. = Lleoliad Row3 = Rhif Ffôn Diolch ymlaen llaw... "Sub InsertRowsAtIntervals() 'Updateby20150707 Dim Rng As Range Dim xCyfwng Fel Cyfanrif Dim xRows Fel Cyfanrif Dim xRowsCyfrif Fel Cyfanrif Dim xNum1 Fel Cyfanrif Dim xNum2 Fel Cyfanrif Dim WorkRng Fel Ystod Dim xWs Fel Taflen Waith xTitleId = "KutoolsforExcel" Set WorkRng = Application.Selection Set WorkRng = Application.InputBox("Rng) , WorkRng.Address, Math:=8) xRowsCount = WorkRng.Rows.Count xInterval = Application.InputBox("Rhowch gyfwng rhes." , xTitleId, 1, Math:=1) xRows = Application.InputBox("Sawl rhes i mewnosod ar bob cyfwng?" , xTitleId, 1, Math:=1) xNum1 = WorkRng.Row + xInterval xNum2 = xRows + xInterval Set xWs = WorkRng.Parent Ar gyfer i = 1 I Int(xRowsCount / xInterval) xWs.Range(xWs) .Celloedd(xNum1, WorkRng.Column), xWs.Cells(xNum1 + xRows - 1, WorkRng.Column)).Dewis Cais.Selection.EntireRow.Insert xNum1= xNum1 + xNum2 Is-Ddiwedd Nesaf"
Lleihawyd y sylw hwn gan y safonwr ar y wefan
Diolch yn fawr iawn!!!!! Mae hyn yn anhygoel
Lleihawyd y sylw hwn gan y safonwr ar y wefan
Diolch yn fawr!!
Lleihawyd y sylw hwn gan y safonwr ar y wefan
Hi


Rwy'n defnyddio cod vba cyfwng ei weithio... Ond pan fyddaf yn defnyddio uchod 100000 rhesi nid yw'n gweithio... garedig yn awgrymu beth ddylwn i ei newid os o gwbl.


Is-fewnosod RhesiAt Cyfnodau()
'Diweddariad erbyn20150707
Dim Rng Fel Ystod
Dim xCyfwng Fel Cyfanrif
Dim xRows Fel Cyfanrif
Dim xRowsCyfrif Fel Cyfanrif
Dim xNum1 Fel Cyfanrif
Dim xNum2 Fel Cyfanrif
Dim WorkRng Fel Ystod
Dim xWs Fel Taflen Waith
xTitleId = "KutoolsforExcel"
Gosod WorkRng = Application.Selection
Gosod WorkRng = Application.InputBox ("Ystod", xTitleId, WorkRng.Address, Math:=8)
xRowsCount = WorkRng.Rows.Count
xInterval = Application.InputBox("Rhowch gyfwng rhes." , xTitleId, 1, Math:=1)
xRows = Application.InputBox("Faint o resi i'w mewnosod ar bob cyfwng?", xTitleId, 1, Math:=1)
xNum1 = WorkRng.Row + xInterval
xNum2 = xRows + xCyfwng
Gosod xWs = WorkRng.Parent
Ar gyfer i = 1 I Int(xRowsCount / xInterval)
xWs.Range(xWs.Cells(xNum1, WorkRng.Column), xWs.Cells(xNum1 + xRows - 1, WorkRng.Column)).Dewis
Cais.Dethol.EntireRow.Insert
xNum1 = xNum1 + xNum2
Digwyddiadau
Is-End
Lleihawyd y sylw hwn gan y safonwr ar y wefan
Ffantastig - fe wnaethoch chi arbed llawer o fewnbynnu data difeddwl i mi, diolch yn fawr iawn
Lleihawyd y sylw hwn gan y safonwr ar y wefan
helo sut alla i gael y cod ar gyfer Mewnosod nifer penodol o golofnau i mewn i ddata ar gyfnodau penodol
Lleihawyd y sylw hwn gan y safonwr ar y wefan
Helo, PK,
I fewnosod colofnau gwag yn y data presennol ar adegau penodol, gall y cod VBA isod eich helpu chi! Rhowch gynnig arni.

Is-fewnosod Colofnau Ar Gyfwng()
Dim Rng Fel Ystod
Dim xCyfwng Fel Cyfanrif
Dim xCs Fel Cyfanrif
Dim xCyfrif Fel Cyfanrif
Dim xNum1 Fel Cyfanrif
Dim xNum2 Fel Cyfanrif
Dim WorkRng Fel Ystod
Dim xWs Fel Taflen Waith
xTitleId = "KutoolsforExcel"
Gosod WorkRng = Application.Selection
Gosod WorkRng = Application.InputBox ("Ystod", xTitleId, WorkRng.Address, Math:=8)
xCCount = WorkRng.Columns.Count
xInterval = Application.InputBox("Rhowch gyfwng colofn." , xTitleId, 1, Math:=1)
xCs = Application.InputBox("Faint o golofnau i'w mewnosod ar bob cyfwng?", xTitleId, 1, Math:=1)
xNum1 = WorkRng.Column + xInterval
xNum2 = xCs + xCyfwng
Gosod xWs = WorkRng.Parent
Ar gyfer I = 1 I Int(xCCCount / xInterval)
xWs.Range(xWs.Cells(WorkRng.Row, xNum1 + xCs - 1), xWs.Cells(WorkRng.Row, xNum1)).Dewis
Cais.Dethol.CyfanColofn.Insert
xNum1 = xNum1 + xNum2
Digwyddiadau
Is-End
Lleihawyd y sylw hwn gan y safonwr ar y wefan
Sut i ychwanegu rhesi mewn data excel yn unol â'r rhif a grybwyllwyd yn y gell ddiwethaf dywedwch mewn data excel os yw'r gell olaf yn dangos rhif fel 4 , beth yw'r ffordd i dd 4 rhes yn awtomatig. rhif rhes arall yw 72, etc
Lleihawyd y sylw hwn gan y safonwr ar y wefan
Helo, SPGupta,
I fewnosod rhesi gwag yn seiliedig ar restr rhifau penodol, cymhwyswch y cod VBA isod.
Ceisiwch, gobeithio y gall eich helpu!

Is-fewnosod()
'UpdatebyExtendoffice
Dim xRg Fel Ystod
Dim xCyfeiriad Fel Llinyn
Dim I, xNum, xLastRow, xFstRow, xCol, xCyfrif Cyhyd
Ar Ail-ddechrau Gwall Nesaf
xAddress = ActiveWindow.RangeSelection.Address
Gosod xRg = Application.InputBox("Dewiswch y golofn rhif penodol i'w defnyddio (colofn sengl):", "KuTools For Excel", xAddress, , , , , 8)
Os yw xRg Yn Ddim Yna Ymadael Is
Application.ScreenUpdating = Anghywir
xLastRow = xRg(1).Diwedd(xlDown). Rhes
xFstRow = xRg.Row
xCol = xRg.Column
xCount = xRg.Count
Gosod xRg = xRg(1)
Ar gyfer I = xLastRow I xFstRow Cam -1
xNum = Celloedd(I, xCol)
Os yw'n Rhifol(xNum) A xNum > 0 Yna
Rhesi (I + 1). Newid maint (xNum). Mewnosod
xCount = xCyfrif + xNum
Gorffennwch Os
Digwyddiadau
xRg.Resize(xCount, 1).Dewiswch
Application.ScreenUpdating = Gwir
Is-End
Lleihawyd y sylw hwn gan y safonwr ar y wefan
Helo, allech chi fy helpu, os gwelwch yn dda? Sut alla i newid y cod hwn i hysbyseb un rhes yn llai na'r rhif yn y gell? Er enghraifft, os yw'r rhif yn y gell yn 4, rhaglen ychwanegu 3 rhes. Os mai 1 yw'r rhif yn y gell, ni chaiff rhesi eu hychwanegu
Lleihawyd y sylw hwn gan y safonwr ar y wefan
Helo, Nina,
I ddatrys eich tasg, defnyddiwch y cod isod:

Is-fewnosod()
'UpdatebyExtendoffice
Dim xRg Fel Ystod
Dim xCyfeiriad Fel Llinyn
Dim I, xNum, xLastRow, xFstRow, xCol, xCyfrif Cyhyd
Ar Ail-ddechrau Gwall Nesaf
xAddress = ActiveWindow.RangeSelection.Address
Gosod xRg = Application.InputBox("Dewiswch y golofn rhif penodol i'w defnyddio (colofn sengl):", "KuTools For Excel", xAddress, , , , , 8)
Os yw xRg Yn Ddim Yna Ymadael Is
Application.ScreenUpdating = Anghywir
xLastRow = xRg(1).Diwedd(xlDown). Rhes
xFstRow = xRg.Row
xCol = xRg.Column
xCount = xRg.Count
Gosod xRg = xRg(1)
Ar gyfer I = xLastRow I xFstRow Cam -1
xNum = Celloedd(I, xCol)
xNum = xNum - 1
Os yw'n Rhifol(xNum) A xNum > 0 Yna
Rhesi (I + 1). Newid maint (xNum). Mewnosod
xCount = xCyfrif + xNum
Gorffennwch Os
Digwyddiadau
xRg.Resize(xCount, 1).Dewiswch
Application.ScreenUpdating = Gwir
Is-End


Ceisiwch, gobeithio y gall eich helpu!
Lleihawyd y sylw hwn gan y safonwr ar y wefan
Mae'n gweithio'n berffaith, diolch yn fawr!
Lleihawyd y sylw hwn gan y safonwr ar y wefan
Mae hyn yn wych. Tybed... a dyw fy Saesneg ddim yn berffaith felly gobeithio y byddwch chi'n fy neall i :) .....
A yw'n bosibl llenwi rhesi gwag ychwanegol â gwerthoedd o'r rhes lle'r oedd y rhif parametrig hwnnw?
Lleihawyd y sylw hwn gan y safonwr ar y wefan
Helo, Vladimir,Ydych chi'n bwriadu mewnosod rhesi gwag yn seiliedig ar restr o rifau yn y daflen waith? Os felly, cymhwyswch y cod isod:
Is-fewnosod()
'UpdatebyExtendoffice
Dim xRg Fel Ystod
Dim xCyfeiriad Fel Llinyn
Dim I, xNum, xLastRow, xFstRow, xCol, xCyfrif Cyhyd
Ar Ail-ddechrau Gwall Nesaf
xAddress = ActiveWindow.RangeSelection.Address
Gosodwch xRg = Application.InputBox ("Dewiswch y rhestr o rifau yr ydych am fewnosod rhesi yn seiliedig arnynt:"", "KuTools For Excel", xAddress, , , , , 8)
Os yw xRg Yn Ddim Yna Ymadael Is
Application.ScreenUpdating = Anghywir
xLastRow = xRg(1).Diwedd(xlDown). Rhes
xFstRow = xRg.Row
xCol = xRg.Column
xCount = xRg.Count
Gosod xRg = xRg(1)
Ar gyfer I = xLastRow I xFstRow Cam -1
xNum = Celloedd(I, xCol)
Os yw'n Rhifol(xNum) A xNum > 0 Yna
Rhesi (I + 1). Newid maint (xNum). Mewnosod
xCount = xCyfrif + xNum
Gorffennwch Os
Digwyddiadau
xRg.Resize(xCount, 1).Dewiswch
Application.ScreenUpdating = Gwir
Diwedd SubRhowch gynnig arni, os oes gennych gwestiynau eraill, rhowch sylwadau yma.
Lleihawyd y sylw hwn gan y safonwr ar y wefan
Mae'r cod hwn yn berffaith ar gyfer mewnosod rhesi... Is-osod()
'UpdatebyExtendoffice
Dim xRg Fel Ystod
Dim xCyfeiriad Fel Llinyn
Dim I, xNum, xLastRow, xFstRow, xCol, xCyfrif Cyhyd
Ar Ail-ddechrau Gwall Nesaf
xAddress = ActiveWindow.RangeSelection.Address
Gosod xRg = Application.InputBox("Dewiswch y golofn rhif penodol i'w defnyddio (colofn sengl):", "KuTools For Excel", xAddress, , , , , 8)
Os yw xRg Yn Ddim Yna Ymadael Is
Application.ScreenUpdating = Anghywir
xLastRow = xRg(1).Diwedd(xlDown). Rhes
xFstRow = xRg.Row
xCol = xRg.Column
xCount = xRg.Count
Gosod xRg = xRg(1)
Ar gyfer I = xLastRow I xFstRow Cam -1
xNum = Celloedd(I, xCol)
xNum = xNum - 1
Os yw'n Rhifol(xNum) A xNum > 0 Yna
Rhesi (I + 1). Newid maint (xNum). Mewnosod
xCount = xCyfrif + xNum
Gorffennwch Os
Digwyddiadau
xRg.Resize(xCount, 1).Dewiswch
Application.ScreenUpdating = Gwir
Is-End

Ond a yw'n bosibl....copïo data yn y celloedd gwag hynny o'r rhes lle'r oedd y rhif parametrig hwnnw? Ga i bostio llun yma? Efallai ei bod hi'n haws os ydw i'n dangos i chi beth sydd ei angen arnaf :)
Lleihawyd y sylw hwn gan y safonwr ar y wefan
Helo, Vladimir, Efallai y gall y cod VBA isod eich helpu chi, rhowch gynnig arni. Is-Gopi Rhes()
'UpdatebyExtendoffice
Dim xRg Fel Ystod
Dim xCRg Fel Ystod
Dim xFNum Fel Cyfanrif
Dim xRN Fel Cyfanrif
Ar Ail-ddechrau Gwall Nesaf
Ystod Dewis:
xTxt = ActiveWindow.RangeSelection.Address
Gosod xRg = Application.InputBox ("Dewiswch y rhestr rhifau", "Kutools ar gyfer Excel", xTxt, , , , , 8)
Os yw xRg Yn Ddim Yna Ymadael Is

Os xRg.Columns.Count > 1 Yna
msgstr "Dewiswch golofn sengl!"
Ewch i DewisRange
Gorffennwch Os
Application.ScreenUpdating = Anghywir
Ar gyfer xFNum = xRg.Count I 1 Cam -1
Gosod xCRg = xRg.Item(xFNum)
xRN = CInt(xCRg.Value)
Gyda Rhesi(xCRg.Row)
.Copi
.Newid maint(xRN).Mewnosod
Diwedd Gyda
Digwyddiadau
Application.ScreenUpdating = Gwir
Is-End

Lleihawyd y sylw hwn gan y safonwr ar y wefan
Rydyn ni mor agos :) Y cyfan sydd ei angen arnaf nawr yw un rhes yn llai nag yn y cod VBA diwethaf, na gwerth y rhif parametrig. Er enghraifft: Os yw'r rhif yn 8 mae angen i ni fewnosod a chopïo 7 rhes. Fel y gwnaethoch chi i Nina dim ond gyda'r COPI hwn
Felly, os yw'r rhif yn 8 yna dylem gael cyfanswm o 8 rhes wedi'u mewnosod a'u copïo, a gyda'r cod VBA blaenorol mae gennym 9.
Tnx
Lleihawyd y sylw hwn gan y safonwr ar y wefan
Helo, Yn yr achos hwn, efallai y bydd y cod canlynol yn eich helpu chi, ceisiwch: Is-Data Copi()
'Updateby Extendoffice
Dim xRow Cyhyd
Dim VInSertNum Fel Amrywiad
xRhes = 1
Application.ScreenUpdating = Anghywir
Gwnewch Tra (Celloedd(xRow, "A") <> "")
VInSertNum = Celloedd(xRow, "B")
Os ((VInSertNum > 1) Ac IsNumeric(VInSertNum)) Yna
Ystod (Celloedd (xRow, "A")), Celloedd (xRow, "B")). Copi
Ystod (Celloedd (xRow + 1, "A")), Celloedd (xRow + VInSertNum - 1, "B")). Dewiswch
Selection.Insert Shift:=xlDown
xRow = xRow + VInSertNum - 1
Gorffennwch Os
xRow = xRhes + 1
dolen
Application.ScreenUpdating = Anghywir
Diwedd Is-nodyn: Yn y cod uchod, y llythyr A yn nodi colofn gychwyn eich ystod ddata, a'r llythyr B yw'r llythyr colofn rydych chi am ddyblygu'r rhesi yn seiliedig arno. Os gwelwch yn dda eu newid i'ch angen.
Lleihawyd y sylw hwn gan y safonwr ar y wefan
A oes gennych fodiwl sy'n tynnu'r rhif a gopïwyd fesul un?
Lleihawyd y sylw hwn gan y safonwr ar y wefan
Na. Mae gen i hwn, ond mae ei angen arnaf i ddidynnu 1?
Rhes Is-Gopi()
'UpdatebyExtendoffice
Dim xRg Fel Ystod
Dim xCRg Fel Ystod
Dim xFNum Fel Cyfanrif
Dim xRN Fel Cyfanrif
Ar Ail-ddechrau Gwall Nesaf
Ystod Dewis:
xTxt = ActiveWindow.RangeSelection.Address
Gosod xRg = Application.InputBox ("Dewiswch y rhestr rhifau", "Kutools ar gyfer Excel", xTxt, , , , , 8)
Os yw xRg Yn Ddim Yna Ymadael Is

Os xRg.Columns.Count > 1 Yna
msgstr "Dewiswch golofn sengl!"
Ewch i DewisRange
Gorffennwch Os
Application.ScreenUpdating = Anghywir
Ar gyfer xFNum = xRg.Count I 1 Cam -1
Gosod xCRg = xRg.Item(xFNum)
xRN = CInt(xCRg.Value)
Gyda Rhesi(xCRg.Row)
.Copi
.Newid maint(xRN).Mewnosod
Diwedd Gyda
Digwyddiadau
Application.ScreenUpdating = Gwir
Is-End
Lleihawyd y sylw hwn gan y safonwr ar y wefan
Yr hyn yr wyf yn ceisio ei wneud yw creu ac argraffu labeli yn Word o daenlen gyda meintiau lluosog?
Lleihawyd y sylw hwn gan y safonwr ar y wefan
Ydych chi wedi cael cyfle i edrych ar hwn?
Lleihawyd y sylw hwn gan y safonwr ar y wefan
Aur bendithia chi
Lleihawyd y sylw hwn gan y safonwr ar y wefan
Chwilio am god i gynhyrchu rhestr excel yn dyblygu gan rif mewn cell ac yn tynnu 1 ar gyfer y gwreiddiol?
Lleihawyd y sylw hwn gan y safonwr ar y wefan
Diolch awdur! Rydych chi'n haeddu'r ganmoliaeth orau am y rhain! Ond os gwelwch yn dda a allech chi fy helpu gyda'r cod i roi gwerth cyson ym mhob rhes wag a greais gyda'ch cod uchod? Er mwyn gwneud fy hun yn gliriach, mae angen i mi fewnosod gwerth cyson ym mhob rhes wag (mae hyn eisoes wedi'i ddatrys gyda'ch cod uchod) yna mae angen i mi fewnosod gwerth cyson ym mhob un o'r rhesi gwag (dyma fy mhroblem). Diolch i chi gan fy mod yn disgwyl eich ymateb caredig.
Lleihawyd y sylw hwn gan y safonwr ar y wefan
Helo, A ydych chi'n bwriadu llenwi rhesi gwag â gwerth penodol? Os felly, fe all yr erthygl ganlynol eich helpu chi:https://www.extendoffice.com/documents/excel/772-excel-fill-blank-cells-with-0-or-specific-value.html
Rhowch gynnig arni.
Lleihawyd y sylw hwn gan y safonwr ar y wefan
A allaf gael y cod VBA ar gyfer dileu rhesi yn seiliedig ar werthoedd dyblyg mewn colofn ddethol sy'n cadw'r holl werthoedd unigryw?
Lleihawyd y sylw hwn gan y safonwr ar y wefan
Helo, Roy, Os ydych chi am gael gwared ar resi yn seiliedig ar werthoedd dyblyg, fel arfer, gallwch chi ddefnyddio'r Tynnwch y Dyblygion nodwedd yn Excel i gael gwared ar y rhesi.Wrth gwrs, os oes angen cod VBA arnoch, defnyddiwch y cod isod: (Yn gyntaf, dylech ddewis yr ystod ddata yr ydych am ei dynnu, ac yna rhedeg y cod hwn, y rhesi yn seiliedig ar y bydd gwerthoedd dyblyg yng ngholofn gyntaf eich dewis yn cael eu dileu ar unwaith. ) Is-ddileu_rhesi_dyblyg()
Dim Rng Fel Ystod
Gosod Rng = Dewis
Rng.RemoveDuplicates Colofnau:=Arae(1), Pennawd:=xlIe
Diwedd SubPlease Ceisiwch, gobeithio y gall eich helpu!
Lleihawyd y sylw hwn gan y safonwr ar y wefan
Mae hyn mor Cŵl!! Diolch yn fawr
Lleihawyd y sylw hwn gan y safonwr ar y wefan
Muito obrigado, salvou meu trabalho, eu não tinha syniad de como fazer. Ystyr geiriau: Muito obrigado mesmo!
Lleihawyd y sylw hwn gan y safonwr ar y wefan
Helo,
Croeso. Falch ei fod yn helpu. Unrhyw gwestiynau, mae croeso i chi gysylltu â ni. Cael diwrnod gwych.
Yn gywir,
Mandy
Lleihawyd y sylw hwn gan y safonwr ar y wefan
allwch chi ddweud wrthyf sut i fewnosod colofn fel hyn, beth yw'r cod
Lleihawyd y sylw hwn gan y safonwr ar y wefan
Helo ffrind,
Gallwch ddefnyddio'r cod VBA hwn:

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


Yn gywir,
Mandy
Lleihawyd y sylw hwn gan y safonwr ar y wefan
Вот выручили так выручили!
Сидел, ломал голову как добавить строки по заданному количеству.
Ваш макрос мне очень помог.
Wedi graddio 5 allan o 5
Lleihawyd y sylw hwn gan y safonwr ar y wefan
Enw Cyfeiriad Ffôn E-bost
0 Enw Cyfeiriad Ffôn E-bost
llinell cyfeiriad 2 Enw Ffôn 0
Enw Cyfeiriad Ffôn E-bost
0 Enw Cyfeiriad Ffôn E-bost
llinell cyfeiriad 2 0


Sut allwn i olygu hyn i gychwyn rhes newydd ar bob gwerth gwag neu werth 0 heb gael rhifau ffôn gyda 0 dechrau rhes newydd?
Lleihawyd y sylw hwn gan y safonwr ar y wefan
Helo, Jarrod

Mae'n ddrwg gennyf, ni allaf gael eich problem yn glir.
A allech chi egluro eich problem yn fanylach? Neu gallwch fewnosod llun neu ffeil yma.
Diolch yn fawr!
Nid oes unrhyw sylwadau wedi'u postio yma eto
Gadewch eich sylwadau
Postio fel Gwestai
×
Graddiwch y swydd hon:
0   Cymeriadau
Lleoliadau a Awgrymir