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 bunaithe ar uimhir shonrach go héasca
De ghnáth, ní bhíonn modh maith ann chun sraitheanna a chóipeáil agus a chur isteach arís agus arís eile ach amháin déileáil le cóipeáil agus cuir isteach de láimh. Ach, le Kutools le haghaidh Excel's Sraitheanna / colúin dhúblacha bunaithe ar luach cille gné, is féidir leat an fhadhb seo a réiteach gan stró. Cliceáil chun Kutools a íoslódáil le haghaidh Excel!
Kutools le haghaidh Excel: le níos mó ná 300 breiseán áisiúil Excel, saor in aisce le triail gan aon teorannú i 60 lá. Íoslódáil agus triail saor in aisce Anois!
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:
nótaí: Sa chód thuas, tá an A léiríonn go bhfuil an raon sonraí tosaithe i gcolún A, má thosaíonn do chuid sonraí ag colún K, athraigh le do thoil A chun K mar do riachtanas.
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ú.
Leid:Chun é seo a chur i bhfeidhm Sraitheanna / Colúin Dúblacha bunaithe ar luach cille gné, 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 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!
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á!