Conas as a chéile a chóipeáil agus a chur isteach arís agus arís eile nó an tsraith x uair in Excel a mhacasamhlú?

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?

• Cóipeáil agus cuir isteach sraith ar leith arís agus arís eile le cód VBA
• Cóipeáil agus cuir isteach gach ró arís agus arís eile le cód VBA
• Cóipeáil agus cuir isteach gach ró arís agus arís eile bunaithe ar uimhir shonrach le gné uamhnach

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

Mura dteastaíonn uait ach aon tsraith shonrach x a mhacasamhlú, d’fhéadfadh go gcabhródh an cód VBA seo a leanas leat, déan mar seo le do thoil:

1. Sonraigh as a chéile a theastaíonn uait a chóipeáil agus a chur isteach arís agus arís eile, agus ansin coinnigh síos an ALT + F11 eochracha, ansin 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 Modúil Fuinneog.

Cód VBA: Déan sraith shonrach amháin a mhacasamhlú arís agus arís eile:

Sub test()
'Updateby Extendoffice
    Dim xCount As Integer
LableNumber:
    xCount = Application.InputBox("Number of Rows", "Kutools for Excel", , , , , , 1)
    If xCount < 1 Then
        MsgBox "the entered number of rows is error, please enter again", vbInformation, "Kutools for Excel"
        GoTo LableNumber
    End If
    ActiveCell.EntireRow.Copy
    Range(ActiveCell.Offset(1, 0), ActiveCell.Offset(xCount, 0)).EntireRow.Insert Shift:=xlDown
    Application.CutCopyMode = False
End Sub

3. Tar éis duit an cód a ghreamú, brúigh le do thoil F5 eochair chun an cód seo a rith, agus tá bosca pras popped amach chun a mheabhrú duit an líon uaireanta a theastaíonn uait a mhacasamhlú a iontráil, féach an scáileán:

4. Ansin cliceáil OK cnaipe, agus tá trí shraith nua cóipeáilte curtha isteach faoin tsraith roghnaithe, féach an scáileán:

Cóipeáil agus cuir isteach gach ró arís agus arís eile le cód VBA

Chun gach sraitheanna a mhacasamhlú arís agus arís eile i raon, is féidir leat an cód VBA seo a leanas a chur i bhfeidhm, déan mar a leanas thíos:

1. Coinnigh síos an ALT + F11 eochracha, ansin 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 Modúil Fuinneog.

Cód VBA: Déan gach ró a dhúbailt arís agus arís eile:

Sub insertrows()
'Updateby Extendoffice
Dim I As Long
Dim xCount As Integer
LableNumber:
xCount = Application.InputBox("Number of Rows", "Kutools for Excel", , , , , , 1)
If xCount < 1 Then
MsgBox "the entered number of rows is error ,please enter again", vbInformation, "Kutools for Excel"
GoTo LableNumber
End If
For I = Range("A" & Rows.CountLarge).End(xlUp).Row To 2 Step -1
Rows(I).Copy
Rows(I).Resize(xCount).Insert
Next
Application.CutCopyMode = False
End Sub

3. Agus ansin brúigh F5 eochair chun an cód seo a rith, agus tá bosca pras popped amach chun a mheabhrú duit an líon uaireanta a theastaíonn uait a mhacasamhlú a iontráil do gach taifead, féach an scáileán:

4. Ansin cliceáil OK, agus rinneadh gach sraith a chóipeáil agus a chur isteach 3 huaire faoi na cinn ghníomhacha, féach an scáileán:

Cóipeáil agus cuir isteach gach ró arís agus arís eile bunaithe ar uimhir shonrach le gné uamhnach

B’fhéidir, mura bhfuil tú eolach ar an gcód VBA, nó má tá imní ort faoin gcód scriosfaidh sé do chuid sonraí. Anseo, tabharfaidh mé gné úsáideach isteach, Kutools le haghaidh Excel's Sraitheanna / Colúin Dúblacha bunaithe ar luach cille, leis an bhfóntas seo, is féidir leat na sraitheanna a chóipeáil agus a chur isteach go tapa bunaithe ar an uimhir a shonraigh tú.

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

1. Iontráil na hathuimhreacha ar mhaith leat sraitheanna a mhacasamhlú i liosta cealla in aice le do chuid sonraí, féach an scáileán:

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

3. 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 an t-am athrá chun na sraitheanna a mhacasamhlú, 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:

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

---

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 ...