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:
- Cóipeáil agus Cuir Isteach Il-Amanna nó Dúblaigh The Row X Times
- I do chuid oibre laethúla, an ndearna tú iarracht riamh as a chéile nó as a chéile a chóipeáil agus ansin cúpla uair a chur isteach faoin tsraith sonraí reatha i mbileog oibre? Mar shampla, tá raon cealla agam, anois, ba mhaith liom gach ró a chóipeáil agus iad a ghreamú 3 huaire go dtí an chéad tsraith eile mar a thaispeántar an pictiúr a leanas. Conas a d’fhéadfá déileáil leis an bpost seo in Excel?
- Cuir Sraitheanna Bána isteach nuair a athraíonn luach in Excel
- Má cheaptar go bhfuil raon sonraí agat, agus anois ba mhaith leat sraitheanna bána a chur isteach idir na sonraí nuair a athraíonn luach, ionas gur féidir leat na luachanna seicheamhacha céanna a scaradh i gcolún amháin agus na scáileáin scáileáin a leanas a thaispeántar. San Airteagal seo, labhróidh mé faoi roinnt cleasanna chun an fhadhb seo a réiteach.
- Cuir isteach A Blank Row Tar éis Téacs Sonrach In Excel
- Más mian leat sraitheanna bána a chur isteach i ndiaidh téacs ar leith mar a leanas an pictiúr a thaispeántar, conas déileáil leis go tapa agus go héasca gan iad a chur isteach de láimh ceann ar cheann?
- Cóipeáil Sraitheanna ó Ilbhileoga Oibre Bunaithe ar Chritéir Isteach i mBileog Nua
- Ag ceapadh, tá leabhar oibre agat le trí bhileog oibre a bhfuil an fhormáidiú céanna orthu agus a thaispeántar thíos. Anois, ba mhaith leat na sraitheanna go léir a chóipeáil ó na bileoga oibre seo i gcolún C ina bhfuil an téacs “Críochnaithe” i mbileog oibre nua. Conas a d’fhéadfá an fhadhb seo a réiteach go tapa agus go héasca gan iad a chóipeáil agus a ghreamú ceann ar cheann de láimh?
Uirlisí Táirgiúlachta Oifige is Fearr
Supercharge Do Scileanna Excel le Kutools le haghaidh Excel, agus Éifeachtúlacht Taithí Cosúil Ná Roimhe. Kutools le haghaidh Excel Tairiscintí Níos mó ná 300 Ardghnéithe chun Táirgiúlacht a Treisiú agus Sábháil Am. Cliceáil anseo chun an ghné is mó a theastaíonn uait a fháil ...
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á!
