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

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

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.

Nóta:Chun é seo a chur i bhfeidhm Cuir Sraitheanna & Colúin Bhána isteach , ar dtús, ba cheart duit an Kutools le haghaidh Excel, agus ansin an ghné a chur i bhfeidhm 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.

Nóta:Chun é seo a chur i bhfeidhm Sraitheanna / Colúin Dúblacha bunaithe ar luach cille, ar dtús, ba cheart duit an Kutools le haghaidh Excel, agus ansin an ghné a chur i bhfeidhm 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.
  • 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?

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á.
cluaisín kte 201905

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á!
bun officetab
Sórtáil tuairimí de réir
Comments (39)
Rátáil 5 as 5 · rátálacha 2
Rinne an modhnóir ar an láithreán an trácht seo a íoslaghdú
Dia duit, tá do chód á úsáid agam (thíos) an féidir leat a insint dom le do thoil conas is féidir na sraitheanna sin a líonadh le téacs saincheaptha isteach ann. D'úsáid mé do chód chun trí shraith a chur isteach d'oibrigh sé go foirfe ach anois is gá dom an téacs a chur isteach Row1 = Dáta Row2. = Suíomh Row3 = Uimhir Theileafóin Go raibh maith agat roimh ré... "Sub InsertRowsAtIntervals() 'Updateby20150707 Dim Rng As Range Dim xEadramh Mar Shlánuimhir Dim xRows Mar Slánuimhir Dim xRowsCount Mar Slánuimhir Dim xNum1 Mar Slánuimhir Dim xNum2 Mar Slánuimhir Dim WorkRng Mar Raon Dim xWs Mar Bhileog Oibre xTitleId = "KutoolsforExcel" Set WorkRng = Application.Selection Set WorkRng = Application.InputBox("Rng , WorkRng.Address, Cineál:=8) xRowsCount = WorkRng.Rows.Count xInterval = Application.InputBox("Cuir isteach eatramh ró." , xTitleId, 1, Cineál:=1) xRows = Application.InputBox("Cé mhéad ró a cuir isteach ag gach eatramh?", xTitleId, 1, Cineál:=1) xNum1 = WorkRng.Row + xInterval xNum2 = xRows + xInterval Socraigh xWs = WorkRng.Parent Le haghaidh i = 1 Chun Int(xRowsCount / xInterval) xWs.Range(xWs .Cealla(xNum1, WorkRng.Column), xWs.Cells(xNum1 + xRows - 1, WorkRng.Column)).Roghnaigh Feidhmchlár.Roghnú.EntireRow.Ionsáigh xNum1= xNum1 + xNum2 Fo-Deiridh Eile"
Rinne an modhnóir ar an láithreán an trácht seo a íoslaghdú
go raibh míle maith agat!!!!! tá sé seo iontach
Rinne an modhnóir ar an láithreán an trácht seo a íoslaghdú
Go raibh míle maith agat!!
Rinne an modhnóir ar an láithreán an trácht seo a íoslaghdú
Hi


Úsáidim cód vba eatramh a chuid oibre ..Ach nuair a úsáidim níos mó ná 100000 sraitheanna níl sé ag obair .. cineálta le fios cad ba cheart dom a athrú más ann dóibh.


Fo IonsáighRowsAt Eatraimh()
Nuashonrú faoi 20150707
Dim Rng Mar Raon
Dim x Eatramh Mar Slánuimhir
Dim xRows Mar Slánuimhir
Dim xRowsCount Mar Slánuimhir
Dim xNum1 Mar Shlánuimhir
Dim xNum2 Mar Shlánuimhir
Dim WorkRng Mar Raon
Dim xWs Mar Bhileog Oibre
xTitleId = "KutoolsforExcel"
Socraigh WorkRng = Application.Selection
Socraigh WorkRng = Application.InputBox("Raon", xTitleId, WorkRng.Address, Cineál:=8)
xRowsCount = WorkRng.Rows.Count
xInterval = Application.InputBox("Cuir isteach eatramh ró.", xTitleId, 1, Cineál:=1)
xRows = Application.InputBox("Cé mhéad ró atá le cur isteach ag gach eatramh?", xTitleId, 1, Cineál:=1)
xNum1 = WorkRng.Row + xInterval
xNum2 = xRows + xInterval
Socraigh xWs = WorkRng.Parent
Le haghaidh i = 1 Go Int(xRowsCount / xInterval)
xWs.Range(xWs.Cells(xNum1, WorkRng.Column), xWs.Cells(xNum1 + xRows - 1, WorkRng.Column)).Roghnaigh
Feidhmchlár.Roghnú.EntireRow.Ionsáigh
xNum1 = xNum1 + xNum2
Ar Aghaidh
Fo Deireadh
Rinne an modhnóir ar an láithreán an trácht seo a íoslaghdú
Iontach - shábháil tú go leor iontráil sonraí meabhrach dom, go raibh míle maith agat
Rinne an modhnóir ar an láithreán an trácht seo a íoslaghdú
Dia duit conas is féidir liom an cód a fháil le haghaidh Ionsáigh líon sonrach na gcolún i sonraí ag eatraimh sheasta
Rinne an modhnóir ar an láithreán an trácht seo a íoslaghdú
Dia duit, PK,
Chun colúin bhána a chur isteach i sonraí atá ann cheana féin ag eatraimh ar leith, is féidir leis an gcód VBA thíos cabhrú leat! Bain triail as le do thoil.

Fo-Ionsáigh Colúin Ag Eatraimh()
Dim Rng Mar Raon
Dim x Eatramh Mar Slánuimhir
Dim xCs Mar Shlánuimhir
Dim xCCunt Mar Slánuimhir
Dim xNum1 Mar Shlánuimhir
Dim xNum2 Mar Shlánuimhir
Dim WorkRng Mar Raon
Dim xWs Mar Bhileog Oibre
xTitleId = "KutoolsforExcel"
Socraigh WorkRng = Application.Selection
Socraigh WorkRng = Application.InputBox("Raon", xTitleId, WorkRng.Address, Cineál:=8)
xCCount = WorkRng.Columns.Count
xInterval = Application.InputBox("Cuir isteach an t-eatramh colún.", xTitleId, 1, Cineál:=1)
xCs = Application.InputBox("Cé mhéad colún atá le cur isteach ag gach eatramh?", xTitleId, 1, Cineál:=1)
xNum1 = WorkRng.Column + xInterval
xNum2 = xCs + xEadramh
Socraigh xWs = WorkRng.Parent
Le haghaidh I = 1 Go Int(xCCCount / xInterval)
xWs.Range(xWs.Cells(WorkRng.Row, xNum1 + xCs - 1), xWs.Cells(WorkRng.Row, xNum1)).Roghnaigh
Feidhmchlár.Roghnú.IomlánColún.Ionsáigh
xNum1 = xNum1 + xNum2
Ar Aghaidh
Fo Deireadh
Rinne an modhnóir ar an láithreán an trácht seo a íoslaghdú
Conas sraitheanna a chur leis i sonraí excel de réir na huimhreach luaite sa chill dheireanach abair i sonraí excel má tá an chill dheireanach ag taispeáint uimhir mar 4 , cad é an bealach chun dd 4 shraith a dhéanamh go huathoibríoch. i sraith eile tá uimhir 72, etc
Rinne an modhnóir ar an láithreán an trácht seo a íoslaghdú
Dia duit, SPGupta,
Chun sraitheanna bána bunaithe ar liosta uimhreacha ar leith a chur isteach, cuir an cód VBA thíos i bhfeidhm le do thoil.
Bain triail as, le do thoil, tá súil gur féidir leis cabhrú leat!

Fo-ionsáigh()
'UpdatebyExtendoffice
Dim xRg Mar Raon
Dim xSeoladh Mar Teaghrán
Dim I, xNum, xLastRow, xFstRow, xCol, xCount As Long
Ar Lean Earráid Aghaidh
xAddress = ActiveWindow.RangeSelection.Address
Socraigh xRg = Application.InputBox("Roghnaigh colún na huimhreach sonrach le húsáid (colún singil):", "KuTools For Excel", xAddress, , , , , 8)
Mura bhfuil xRg ar bith ansin Scoir Fo
Application.ScreenUpdating = Bréagach
xLastRow = xRg(1).Deireadh(xlSíos).Row
xFstRow = xRg.Row
xCol = xRg.Column
xCount = xRg.Count
Socraigh xRg = xRg(1)
Do I = xLastRow Go xFstRow Céim -1
xNum = Cealla(I, xCol)
Más Uimhriúil(xNum) Agus xNum > 0 Ansin
Rónna(I + 1).Athraigh méid(xNum).Cuir isteach
xCount = xCount + xNum
Deireadh Má
Ar Aghaidh
xRg.Athraigh(xCount, 1).Roghnaigh
Feidhmchlár.ScreenUpdating = Fíor
Fo Deireadh
Rinne an modhnóir ar an láithreán an trácht seo a íoslaghdú
Dia duit, an bhféadfá cabhrú liom, le do thoil? Conas is féidir liom an cód seo a athrú go fógra amháin níos lú sraitheanna ná an uimhir i gcill? Mar shampla, más é 4 an uimhir i gcill, cuir 3 shraith leis an gclár. Más é 1 an uimhir i gcill, ní chuirtear sraitheanna leis
Rinne an modhnóir ar an láithreán an trácht seo a íoslaghdú
Dia duit, Nina,
Chun do thasc a réiteach, bain úsáid as an gcód thíos:

Fo-ionsáigh()
'UpdatebyExtendoffice
Dim xRg Mar Raon
Dim xSeoladh Mar Teaghrán
Dim I, xNum, xLastRow, xFstRow, xCol, xCount As Long
Ar Lean Earráid Aghaidh
xAddress = ActiveWindow.RangeSelection.Address
Socraigh xRg = Application.InputBox("Roghnaigh colún na huimhreach sonrach le húsáid (colún singil):", "KuTools For Excel", xAddress, , , , , 8)
Mura bhfuil xRg ar bith ansin Scoir Fo
Application.ScreenUpdating = Bréagach
xLastRow = xRg(1).Deireadh(xlSíos).Row
xFstRow = xRg.Row
xCol = xRg.Column
xCount = xRg.Count
Socraigh xRg = xRg(1)
Do I = xLastRow Go xFstRow Céim -1
xNum = Cealla(I, xCol)
xNum = xNum - 1
Más Uimhriúil(xNum) Agus xNum > 0 Ansin
Rónna(I + 1).Athraigh méid(xNum).Cuir isteach
xCount = xCount + xNum
Deireadh Má
Ar Aghaidh
xRg.Athraigh(xCount, 1).Roghnaigh
Feidhmchlár.ScreenUpdating = Fíor
Fo Deireadh


Bain triail as, le do thoil, tá súil gur féidir leis cabhrú leat!
Rinne an modhnóir ar an láithreán an trácht seo a íoslaghdú
Oibríonn sé foirfe, go raibh míle maith agat!
Rinne an modhnóir ar an láithreán an trácht seo a íoslaghdú
Tá sé seo iontach. N'fheadar ach ... agus níl mo chuid Béarla foirfe mar sin tá súil agam go dtuigfidh tú mé :) .....
An féidir sraitheanna bána breise a líonadh le luachanna ón tsraith cá raibh an uimhir pharaiméadrach sin?
Rinne an modhnóir ar an láithreán an trácht seo a íoslaghdú
Dia duit, Vladimir,An bhfuil sé i gceist agat sraitheanna bána a chur isteach bunaithe ar liosta uimhreacha sa bhileog oibre? Má tá, cuir an cód thíos i bhfeidhm le do thoil:
Fo-ionsáigh()
'UpdatebyExtendoffice
Dim xRg Mar Raon
Dim xSeoladh Mar Teaghrán
Dim I, xNum, xLastRow, xFstRow, xCol, xCount As Long
Ar Lean Earráid Aghaidh
xAddress = ActiveWindow.RangeSelection.Address
Socraigh xRg = Application.InputBox("Roghnaigh liosta na n-uimhreacha ar mhaith leat sraitheanna a chur isteach bunaithe orthu:"", "KuTools For Excel", xAddress, , , , , 8)
Mura bhfuil xRg ar bith ansin Scoir Fo
Application.ScreenUpdating = Bréagach
xLastRow = xRg(1).Deireadh(xlSíos).Row
xFstRow = xRg.Row
xCol = xRg.Column
xCount = xRg.Count
Socraigh xRg = xRg(1)
Do I = xLastRow Go xFstRow Céim -1
xNum = Cealla(I, xCol)
Más Uimhriúil(xNum) Agus xNum > 0 Ansin
Rónna(I + 1).Athraigh méid(xNum).Cuir isteach
xCount = xCount + xNum
Deireadh Má
Ar Aghaidh
xRg.Athraigh(xCount, 1).Roghnaigh
Feidhmchlár.ScreenUpdating = Fíor
Deireadh Fo Bain triail as, má tá ceisteanna eile agat, déan trácht anseo.
Rinne an modhnóir ar an láithreán an trácht seo a íoslaghdú
Tá an cód seo foirfe chun sraitheanna a chur isteach....Fo Ionsáigh()
'UpdatebyExtendoffice
Dim xRg Mar Raon
Dim xSeoladh Mar Teaghrán
Dim I, xNum, xLastRow, xFstRow, xCol, xCount As Long
Ar Lean Earráid Aghaidh
xAddress = ActiveWindow.RangeSelection.Address
Socraigh xRg = Application.InputBox("Roghnaigh colún na huimhreach sonrach le húsáid (colún singil):", "KuTools For Excel", xAddress, , , , , 8)
Mura bhfuil xRg ar bith ansin Scoir Fo
Application.ScreenUpdating = Bréagach
xLastRow = xRg(1).Deireadh(xlSíos).Row
xFstRow = xRg.Row
xCol = xRg.Column
xCount = xRg.Count
Socraigh xRg = xRg(1)
Do I = xLastRow Go xFstRow Céim -1
xNum = Cealla(I, xCol)
xNum = xNum - 1
Más Uimhriúil(xNum) Agus xNum > 0 Ansin
Rónna(I + 1).Athraigh méid(xNum).Cuir isteach
xCount = xCount + xNum
Deireadh Má
Ar Aghaidh
xRg.Athraigh(xCount, 1).Roghnaigh
Feidhmchlár.ScreenUpdating = Fíor
Fo Deireadh

Ach an féidir.... sonraí a chóipeáil sna cealla bána sin as a chéile cá raibh an uimhir pharaiméadrach sin? An féidir liom pictiúr a phostáil anseo? B'fhéidir go mbeidh sé níos éasca má thaispeánann mé duit cad a theastaíonn uaim :)
Rinne an modhnóir ar an láithreán an trácht seo a íoslaghdú
Dia duit, Vladimir, B'fhéidir gur féidir leis an gcód VBA thíos cabhrú leat, bain triail as. Fo-ChóipRow()
'UpdatebyExtendoffice
Dim xRg Mar Raon
Dim xCRg Mar Raon
Dim xFNum Mar Shlánuimhir
Dim xRN Mar Shlánuimhir
Ar Lean Earráid Aghaidh
Raon Roghnaithe:
xTxt = ActiveWindow.RangeSelection.Address
Socraigh xRg = Application.InputBox("Roghnaigh an liosta uimhreacha", "Kutools le haghaidh Excel", xTxt, , , , , 8)
Mura bhfuil xRg ar bith ansin Scoir Fo

Má tá xRg.Columns.Count > 1 Ansin
msgstr "Roghnaigh colún amháin le do thoil!"
Téigh go RoghnaighRange
Deireadh Má
Application.ScreenUpdating = Bréagach
Le haghaidh xFNum = xRg.Count To 1 Step -1
Socraigh xCRg = xRg.Item(xFNum)
xRN = CInt(xCRg.Value)
Le Rónna(xCRg.Row)
.Cóip
.Athraigh(xRN).Ionsáigh
Deireadh Le
Ar Aghaidh
Feidhmchlár.ScreenUpdating = Fíor
Fo Deireadh

Rinne an modhnóir ar an láithreán an trácht seo a íoslaghdú
Táimid chomh gar sin :) Is é an rud atá uaim anois ná sraith amháin níos lú ná mar a bhí sa chód VBA deiridh, ná luach na huimhreach paraiméadrach. Mar shampla: Más é 8 an uimhir ní mór dúinn 7 sraith a chur isteach agus a chóipeáil. Mar a rinne tú do Nina díreach leis an CÓIP seo
Mar sin, más é 8 an uimhir ba cheart go mbeadh 8 sraith san iomlán curtha isteach agus cóipeáilte againn, agus leis an gcód VBA roimhe seo tá 9 againn.
tnx
Rinne an modhnóir ar an láithreán an trácht seo a íoslaghdú
Dia duit, Sa chás seo, d'fhéadfadh an cód seo a leanas cabhrú leat, bain triail as: Fo-Shonraí Cóipe()
'Updateby Extendoffice
Dim xRow Chomh fada
Dim VInSertNum Mar Leagan
xRow=1
Application.ScreenUpdating = Bréagach
Déan Cé (Cealla(xRow, "A") <> "")
VInSertNum = Cealla(xRow, "B")
Más rud é ((VInSertNum > 1) Agus IsNumeric(VInSertNum)) Ansin
Raon (Cealla(xRow, "A")), Cealla(xRow, "B")). Cóip
Raon (Cealla(xRow + 1, "A")), Cealla(xRow + VInSertNum - 1, "B")).Roghnaigh
Selection.Insert Shift:=xlDown
xRow = xRow + VInSertNum - 1
Deireadh Má
xRow = xRow+1
Lúb
Application.ScreenUpdating = Bréagach
Fo-Nóta deiridh: Sa chód thuas, an litir A léiríonn sé colún tosaigh do raon sonraí, agus an litir B an litir cholúin ar mhaith leat na sraitheanna a mhacasamhlú bunaithe uirthi. Athraigh iad le do riachtanas le do thoil.
Rinne an modhnóir ar an láithreán an trácht seo a íoslaghdú
An bhfuil modúl agat a asbhaineann an uimhir chóipeála ar cheann amháin?
Rinne an modhnóir ar an láithreán an trácht seo a íoslaghdú
Tá an ceann seo agam, ach caithfidh mé é chun 1 a asbhaint?
Fo-ChóipRow()
'UpdatebyExtendoffice
Dim xRg Mar Raon
Dim xCRg Mar Raon
Dim xFNum Mar Shlánuimhir
Dim xRN Mar Shlánuimhir
Ar Lean Earráid Aghaidh
Raon Roghnaithe:
xTxt = ActiveWindow.RangeSelection.Address
Socraigh xRg = Application.InputBox("Roghnaigh an liosta uimhreacha", "Kutools le haghaidh Excel", xTxt, , , , , 8)
Mura bhfuil xRg ar bith ansin Scoir Fo

Má tá xRg.Columns.Count > 1 Ansin
msgstr "Roghnaigh colún amháin le do thoil!"
Téigh go RoghnaighRange
Deireadh Má
Application.ScreenUpdating = Bréagach
Le haghaidh xFNum = xRg.Count To 1 Step -1
Socraigh xCRg = xRg.Item(xFNum)
xRN = CInt(xCRg.Value)
Le Rónna(xCRg.Row)
.Cóip
.Athraigh(xRN).Ionsáigh
Deireadh Le
Ar Aghaidh
Feidhmchlár.ScreenUpdating = Fíor
Fo Deireadh
Rinne an modhnóir ar an láithreán an trácht seo a íoslaghdú
Is é an rud atá mé ag iarraidh a dhéanamh ná lipéid i Word a chruthú agus a phriontáil ó scarbhileog ina bhfuil iliomad cainníochtaí?
Rinne an modhnóir ar an láithreán an trácht seo a íoslaghdú
An raibh deis agat breathnú ar seo?
Rinne an modhnóir ar an láithreán an trácht seo a íoslaghdú
Óir beannaighthe thú
Rinne an modhnóir ar an láithreán an trácht seo a íoslaghdú
Ag lorg cód chun liosta excel a ghiniúint a dhúblóidh uimhir i gcill agus 1 a dhealú don bhunleagan?
Rinne an modhnóir ar an láithreán an trácht seo a íoslaghdú
Go raibh maith agat údar! Tá an moladh is fearr tuillte agat astu seo! Ach le do thoil an bhféadfá cabhrú liom leis an gcód chun luach tairiseach a chur i ngach rónna bána a chruthaigh mé le do chód thuas? Chun mé féin a dhéanamh níos soiléire, ní mór dom luach tairiseach a chur isteach i ngach rónna bána (réiteach é seo cheana féin le do chód thuas) ansin is gá dom luach tairiseach a chur isteach i ngach ceann de na sraitheanna bána (is é seo mo fhadhb). Go raibh maith agat agus mé ag súil le do fhreagra cineálta.
Rinne an modhnóir ar an láithreán an trácht seo a íoslaghdú
Dia duit, An bhfuil i gceist agat sraitheanna bána a líonadh le luach sonrach? Má tá, b’fhéidir go gcuideoidh an t-alt seo a leanas leat:https://www.extendoffice.com/documents/excel/772-excel-fill-blank-cells-with-0-or-specific-value.html
Bain triail as le do thoil.
Rinne an modhnóir ar an láithreán an trácht seo a íoslaghdú
An féidir liom an cód VBA a fháil chun sraitheanna a scriosadh bunaithe ar luachanna dúblacha i gcolún roghnaithe a choimeádann gach luach uathúil?
Rinne an modhnóir ar an láithreán an trácht seo a íoslaghdú
Dia duit, Roy,Más mian leat sraitheanna bunaithe ar luachanna dúblacha a bhaint, de ghnáth, is féidir leat an Bain Dúblaigh gné in Excel chun na sraitheanna a bhaint.Ar ndóigh, má theastaíonn cód VBA uait, bain úsáid as an gcód thíos: (Ar dtús, ba cheart duit an raon sonraí a theastaíonn uait a bhaint a roghnú, agus ansin an cód seo a rith, na sraitheanna atá bunaithe ar an bainfear luachanna dúblacha sa chéad cholún de do rogha ag an am céanna. ) Fo-Scrios_duplicate_rows()
Dim Rng Mar Raon
Socraigh Rng = Roghnú
Rng.RemoveDuplicates Colúin:=Eagar(1), Ceanntásc:=xlTá
Críochnaigh Fo le do thoil, tá súil agam gur féidir leis cabhrú leat!
Rinne an modhnóir ar an láithreán an trácht seo a íoslaghdú
Tá sé seo chomh Cool!! Go raibh míle maith agat
Rinne an modhnóir ar an láithreán an trácht seo a íoslaghdú
Muito obrigado, salvou meu trabalho, a não tinha idea de como fazer. Muito obrigado mesmo!
Rinne an modhnóir ar an láithreán an trácht seo a íoslaghdú
Dia duit,
Tá failte romhat. Sásta cabhraíonn sé. Aon cheist, bíodh leisce ort teagmháil a dhéanamh linn. Bíodh lá maith agat.
Le meas,
Mandy
Rinne an modhnóir ar an láithreán an trácht seo a íoslaghdú
an féidir leat insint dom conas colún mar seo a chur isteach , cad é an cód
Rinne an modhnóir ar an láithreán an trácht seo a íoslaghdú
Dia duit a chara,
Is féidir leat an cód VBA seo a úsáid:

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


Le meas,
Mandy
Rinne an modhnóir ar an láithreán an trácht seo a íoslaghdú
Вот выручили так выручили!
sidел, ломал голову как добавить stroки по заданному количеству.
Vash makros мне очень помог.
Rátáil 5 as 5
Rinne an modhnóir ar an láithreán an trácht seo a íoslaghdú
Ainm Seoladh Ríomhphoist Fón
0 Ainm Seoladh Ríomhphoist Gutháin
seoladh líne 2 Ainm Fón 0
Ainm Seoladh Ríomhphoist Fón
0 Ainm Seoladh Ríomhphoist Gutháin
seoladh líne 2 0


Conas is féidir liom é seo a chur in eagar chun sraith nua a thosú ag gach luach folamh nó luach 0 gan uimhreacha gutháin a bheith agam le 0 tús a chur le sraith nua?
Rinne an modhnóir ar an láithreán an trácht seo a íoslaghdú
Dia duit, Jarrod

Ár leithscéal, ní féidir liom d'fhadhb a fháil go soiléir.
An bhféadfá d’fhadhb a mhíniú níos mionsonraithe? Nó is féidir leat gabháil scáileáin nó comhad a chur isteach anseo.
Go raibh maith agat!
Rinne an modhnóir ar an láithreán an trácht seo a íoslaghdú
hola, hay algun codigo is féidir liom cóipeáil los datos, pero que en la primera columna que son fechas pueda ser perocutivo.

ejemplo

sa vez de 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

go raibh maith agat
Rinne an modhnóir ar an láithreán an trácht seo a íoslaghdú
hola, hay algun codigo is féidir liom cóipeáil los datos, pero que en la primera columna que son fechas puedan ser consecutivas.

ejemplo

sa vez de 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

go raibh maith agat
Rinne an modhnóir ar an láithreán an trácht seo a íoslaghdú
Script iontach vba!
Bhí os cionn 5000 sraith agam ar gá dom sraitheanna nua a chur leo eatarthu. Dúirt gach treoirleabhar eile liom colún “cúntóir” a dhéanamh go dtógfadh sé cuid mhaith de mo shaol 1,2 cóip ghreamú a chur leis arís agus arís eile díreach chun sraitheanna nua a chur leis.
Mar sin, Go raibh maith agat as seo!
Rátáil 5 as 5
Níl aon tráchtanna curtha suas anseo go fóill
Fág do chuid tuairimí
Ag postáil mar Aoi
×
Ráta an post seo:
0   Carachtair
Suímh Molta

Lean orainn

Cóipcheart © 2009 - www.extendoffice.com. | Gach ceart ar cosaint. Cumhachtaithe ag ExtendOffice. | léarscáil an tSuímh
Is trádmharcanna nó trádmharcanna cláraithe de chuid Microsoft Corporation sna Stáit Aontaithe agus / nó i dtíortha eile iad lógó Office agus Office.
Cosanta ag Sectigo SSL