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
- Mewnosod nifer benodol o resi gwag yn yr ystod ddata yn seiliedig ar werthoedd celloedd gyda chod VBA
- Mewnosod nifer benodol o resi gwag yn yr ystod ddata ar gyfnodau penodol gyda nodwedd ddefnyddiol
- Copïo a mewnosod rhesi sawl gwaith yn seiliedig ar rifau penodol gyda chod VBA
- Copïo a mewnosod rhesi sawl gwaith yn seiliedig ar rifau penodol sydd â nodwedd anhygoel
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.
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 Nawr !
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.
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 Nawr !
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.
- Mewnosod Rhes wag ar ôl testun penodol yn Excel
- Os ydych chi am fewnosod rhesi gwag ar ôl testun penodol fel y dangosir y llun isod, sut i ddelio ag ef yn gyflym ac yn hawdd heb eu mewnosod â llaw fesul un?
- 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?
Offer Cynhyrchiant Swyddfa Gorau
Supercharge Eich Sgiliau Excel gyda Kutools ar gyfer Excel, a Phrofiad Effeithlonrwydd Fel Erioed Erioed. Kutools ar gyfer Excel Yn Cynnig Dros 300 o Nodweddion Uwch i Hybu Cynhyrchiant ac Arbed Amser. Cliciwch Yma i Gael Y Nodwedd Sydd Ei Angen Y Mwyaf...
Mae Office Tab yn dod â rhyngwyneb Tabbed i Office, ac yn 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!
