Conas líon sonrach sraitheanna a chur isteach ag eatraimh shocraithe in Excel?

I mbileog oibre Excel, is féidir leat as a chéile bán a chur isteach idir na sraitheanna atá ann cheana trí fheidhm Ionsáigh a úsáid. Ach má tá réimse mór sonraí agat, agus, ní mór duit dhá shraith bhána a chur isteach i ndiaidh gach tríú sraith, conas a d’fhéadfá an post seo a chríochnú go tapa agus go caothúil?

• Cuir líon sonrach sraitheanna bána isteach sa raon sonraí ag eatraimh shocraithe le cód VBA
• Cuir líon sonrach sraitheanna bána isteach sa raon sonraí bunaithe ar luachanna cille le cód VBA
• Cuir líon sonrach sraitheanna bána isteach sa raon sonraí ag eatraimh shocraithe le gné áisiúil
• Cóipeáil agus cuir isteach sraitheanna arís agus arís eile bunaithe ar uimhreacha ar leith le cód VBA
• Cóipeáil agus cuir isteach sraitheanna arís agus arís eile bunaithe ar uimhreacha ar leith a bhfuil gné iontach acu

Cuir líon sonrach sraitheanna bána isteach sa raon sonraí ag eatraimh shocraithe le cód VBA

Is féidir leis an gcód VBA seo a leanas cabhrú leat líon sonrach sraitheanna a chur isteach i ndiaidh gach naoú as a chéile laistigh de na sonraí atá ann. Déan mar a leanas le do thoil:

1. Coinnigh síos an ALT + F11 eochracha in Excel, agus osclaíonn sé an Microsoft Visual Basic d’Fheidhmchláir fhuinneog.

2. Cliceáil Ionsáigh > Modúil, agus greamaigh an cód seo a leanas sa Fuinneog an Mhodúil.

Cód VBA: Cuir líon sonrach sraitheanna isteach i sonraí ag eatraimh shocraithe

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. Tar éis duit an cód seo a ghreamú, brúigh le do thoil F5 eochair chun an cód seo a rith, tiocfaidh bosca pras amach le cur i gcuimhne duit an raon sonraí a theastaíonn uait sraitheanna bán a chur isteach a roghnú, féach an scáileán:

4. Cliceáil OK cnaipe, popfaidh bosca pras eile amach, iontráil líon na n-eatramh as a chéile, féach an scáileán:

5. Téigh ar cliceáil OK cnaipe, sa bhosca pras popped amach seo a leanas, cuir isteach líon na sraitheanna bán a theastaíonn uait a chur isteach, féach an scáileán:

6. Ansin cliceáil OK, agus cuireadh na sraitheanna bána isteach sna sonraí atá ann go tráthrialta, féach scáileáin scáileáin:

Cuir líon sonrach sraitheanna bána isteach sa raon sonraí bunaithe ar luachanna cille le cód VBA

Uaireanta, b’fhéidir go mbeidh ort na sraitheanna bána a chur isteach bunaithe ar liosta de luachanna cille, sa chás seo, is féidir leis an gcód VBA thíos fabhar a dhéanamh duit, déan mar seo é le do thoil:

1. Coinnigh síos an ALT + F11 eochracha in Excel, agus osclaíonn sé an Microsoft Visual Basic d’Fheidhmchláir fhuinneog.

2. Cliceáil Ionsáigh > Modúil, agus greamaigh an cód seo a leanas sa Fuinneog an Mhodúil.

Cód VBA: Cuir isteach líon sonrach sraitheanna bán bunaithe ar liosta uimhreacha:

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. Tar éis an cód seo a ghreamú, brúigh F5 eochair chun an cód seo a rith, sa bhosca dialóige popped out, roghnaigh liosta na n-uimhreacha ar mhaith leat sraitheanna bána a chur isteach bunaithe orthu, féach an scáileán:

4. Ansin, cliceáil OK, agus gheobhaidh tú na torthaí a theastaíonn uait mar scáileáin scáileáin a leanas a thaispeántar:

Cuir líon sonrach sraitheanna bána isteach sa raon sonraí ag eatraimh shocraithe le gné áisiúil

Mura bhfuil tú eolach ar an gcód VBA thuas, Kutools le haghaidh Excel freisin a chabhróidh leat, a Cuir Sraitheanna & Colúin Bhána isteach is féidir le gné líon sonrach sraitheanna nó colún a chur isteach i sonraí atá ann cheana ag eatraimh shocraithe go tapa agus go héasca.

Tar éis a shuiteáil Kutools le haghaidh Excel, déan mar a leanas le do thoil:

1. Roghnaigh an raon sonraí a theastaíonn uait sraitheanna bána a chur isteach ag eatraimh.

2. Cliceáil Kutools > Ionsáigh > Cuir Sraitheanna & Colúin Bhána isteach, féach ar an scáileán:

3. Sa an Cuir isteach Rae Bán & Colúin bosca dialóige, roghnaigh Sraitheanna folmha rogha ón Cuir isteach cineál, agus ansin sonraigh líon na sraitheanna eatramh agus bán a theastaíonn uait a úsáid mar an scáileán a leanas a thaispeántar:

4. Ansin cliceáil OK cnaipe, agus tá na sraitheanna bán curtha isteach sa raon roghnaithe ag eatramh ar leith mar a thaispeántar an pictiúr a leanas:

Íoslódáil agus triail saor in aisce Kutools le haghaidh Excel Now!

Cóipeáil agus cuir isteach sraitheanna arís agus arís eile bunaithe ar uimhreacha ar leith le cód VBA

Ag ceapadh, tá raon tada agat, agus anois, ba mhaith leat gach ró a chóipeáil agus iad a ghreamú arís agus arís eile go dtí an chéad tsraith eile bunaithe ar liosta uimhreacha mar atá thíos na scáileáin scáileáin a thaispeántar. Conas a d’fhéadfadh an tasc seo a réiteach i mbileog oibre Excel?

Chun déileáil leis an bpost seo, tabharfaidh mé cód úsáideach isteach duit, déan na céimeanna seo a leanas le do thoil:

1. Coinnigh síos an ALT + F11 eochracha in Excel, agus osclaíonn sé an Microsoft Visual Basic d’Fheidhmchláir fhuinneog.

2. Cliceáil Ionsáigh > Modúil, agus greamaigh an cód seo a leanas sa Fuinneog an Mhodúil.

Cód VBA: Cóipeáil agus cuir isteach sraitheanna arís agus arís eile bunaithe ar uimhreacha ar leith:

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. Tar éis an cód seo a ghreamú, brúigh F5 eochair chun an cód seo a rith, sa bhosca dialóige popped out, roghnaigh liosta na n-uimhreacha a theastaíonn uait a chóipeáil agus cuir isteach na sraitheanna sonraí bunaithe ar, féach an scáileán:

4. Ansin, cliceáil OK cnaipe, agus rinneadh líon sonrach na sraitheanna a chóipeáil agus a ghreamú faoi gach sraith bhunaidh, féach scáileáin scáileáin:

Cóipeáil agus cuir isteach sraitheanna arís agus arís eile bunaithe ar uimhreacha ar leith a bhfuil gné iontach acu

Má tá tú Kutools le haghaidh Excel, Lena Sraitheanna / Colúin Dúblacha bunaithe ar luach cille gné, is féidir leat na sraitheanna nó na colúin a chur isteach bunaithe ar liosta na n-uimhreacha go tapa agus go héasca.

Tar éis a shuiteáil Kutools le haghaidh Excel, déan mar a leanas le do thoil:

1. Cliceáil Kutools > Ionsáigh > Sraitheanna / Colúin Dúblacha bunaithe ar luach cille, féach ar an scáileán:

2. Sa an Cóipeáil agus cuir isteach sraitheanna & colúin dialóg, roghnaigh Cóipeáil agus cuir isteach sraitheanna rogha sa cineál roinn, ansin roghnaigh an raon sonraí a theastaíonn uait a mhacasamhlú, agus ansin sonraigh liosta na luachanna ar mhaith leat sraitheanna a chóipeáil bunaithe orthu, féach an scáileán:

4. Ansin, cliceáil Ok or Cuir iarratas isteach cnaipe, gheobhaidh tú an toradh seo a leanas de réir mar a theastaíonn uait:

Íoslódáil agus triail saor in aisce Kutools le haghaidh Excel Now!

Earraí níos coibhneasta:

---

Na hUirlisí Táirgiúlachta Oifige is Fearr

Réitíonn Kutools for Excel an chuid is mó de do chuid Fadhbanna, agus Méadaíonn sé do Tháirgiúlacht 80%

• Athúsáid: Cuir isteach go tapa foirmlí casta, cairteacha agus aon rud a d'úsáid tú roimhe seo; Cealla a Chriptiú le pasfhocal; Cruthaigh Liosta Ríomhphoist agus seol ríomhphoist ...
• Barra Foirmle Super (cuir línte iolracha téacs agus foirmle in eagar go héasca); Leagan Amach Léitheoireachta (líon mór cealla a léamh agus a chur in eagar go héasca); Greamaigh go dtí an Raon Scagtha...
• Cumaisc Cealla / Sraitheanna / Colúin gan Sonraí a chailleadh; Ábhar Cealla Scoilt; Comhcheangail Sraitheanna / Colúin Dúblacha... Cill Dúblach a Chosc; Déan comparáid idir Ranganna...
• Roghnaigh Dúblach nó Uathúil Sraitheanna; Roghnaigh Blank Rows (tá na cealla uile folamh); Aimsigh Super agus Fuzzy Aimsigh i go leor Leabhar Oibre; Roghnaigh go randamach ...
• Cóip Díreach Cealla Il gan tagairt fhoirmle a athrú; Tagairtí Cruthaigh Auto chuig Bileoga Il; Cuir Urchair isteach, Boscaí Seiceála agus go leor eile ...
• Sliocht Téacs, Cuir Téacs leis, Bain de réir Poist, Bain Spás; Subtotals Paging a chruthú agus a phriontáil; Tiontaigh Idir Ábhar Cealla agus Tráchtanna...
• Scagaire Super (scéimeanna scagaire a shábháil agus a chur i bhfeidhm ar bhileoga eile); Ard-Sórtáil de réir míosa / seachtaine / lae, minicíocht agus níos mó; Scagaire Speisialta le cló trom, iodálach ...
• Comhcheangail Leabhair Oibre agus Bileoga Oibre; Cumaisc Táblaí bunaithe ar eochaircholúin; Roinn Sonraí i Ilbhileoga; Baisc Tiontaigh xls, xlsx agus PDF...
• Níos mó ná 300 gné chumhachtach. Tacaíonn Office / Excel 2007-2021 agus 365. Tacaíonn sé le gach teanga. Imscaradh éasca i d'fhiontar nó d'eagraíocht. Gnéithe iomlána triail saor in aisce 30-lá. Ráthaíocht airgid ar ais 60-lá.

Leigh Nios mo... Íoslódáil saor in aisce ... Ceannach ... 

---

Tugann Tab Oifige comhéadan Tabbed chuig Office, agus Déan Do Obair i bhfad Níos Éasca

• Cumasaigh eagarthóireacht agus léamh tabbed i Word, Excel, PowerPoint, Foilsitheoir, Rochtain, Visio agus Tionscadal.
• Oscail agus cruthaigh cáipéisí iolracha i gcluaisíní nua den fhuinneog chéanna, seachas i bhfuinneoga nua.
• Méadaíonn do tháirgiúlacht 50%, agus laghdaíonn sé na céadta cad a tharlaíonn nuair luch duit gach lá!

Leigh Nios mo... Íoslódáil saor in aisce ... Ceannach ...