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

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

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!


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 (32)
Níl rátálacha ar bith fós. Bí ar an gcéad duine a rátáil!
Rinne an modhnóir ar an láithreán an trácht seo a íoslaghdú
Go raibh maith agat!
Rinne an modhnóir ar an láithreán an trácht seo a íoslaghdú
Macra Uafásach - Shábháil mé an oiread sin ama!
Rinne an modhnóir ar an láithreán an trácht seo a íoslaghdú
macracóir fíor-dheas!
Rinne an modhnóir ar an láithreán an trácht seo a íoslaghdú
Ba mhaith liom sraitheanna dúblacha a ghiniúint go randamach,

le haghaidh m.sh. sraitheanna dúblacha randamacha idir 20 agus 80 a ghiniúint.


cad a nuashonrófar cód dóibh seo a leanas


Fo-ionchuir ()
'Updateby Extendoffice 2016616
Dim I Chomh Fada
Dim xCount As Slánuimhir
Uimhir Lable:
xCount = Application.InputBox("Líon na Rónna", "Kutools le haghaidh Excel", , , , , , , 1)
Má tá xCount < 1 Ansin
MsgBox "tá earráid sa líon sraitheanna a iontráil, cuir isteach arís", vbInformation, "Kutools le haghaidh Excel"
Téigh go Uimhir Lable
Deireadh Má
Do I = Raon ("A" & Rows.CountLarge).Deireadh(xlUp).Row Go 1 Céim -1
Rónna(I). Cóip
Rónna(I).Athraigh Méid(xCount).Ionsáigh
Ar Aghaidh
Application.CutCopyMode = Bréagach
Fo Deireadh
Rinne an modhnóir ar an láithreán an trácht seo a íoslaghdú
Ba mhaith liom sraitheanna a dhúbailt bunaithe ar pharaiméadar. Mar shampla, tá colún agam darb ainm fad ama cruinnithe. Má tá níos mó ná 1 sa cholún sin, ba mhaith liom sraitheanna aitheantais cruinnithe a dhúbailt bunaithe ar an uimhir sin. Más 2 uair an chloig a mhaireann cruinnithe, déan dúblach ID an chruinnithe dhá uair. Má mhaireann an cruinniú 3 huaire, déan dúblach faoi thrí.
is féidir leath uair an chloig incrimintí a chothromú go dtí an uair an chloig.

MeetingID Am Tosaigh Am an Chríochnaigh Tréimhse an Chruinnithe
43117 9:00 AM 11:00 AM 02:00
43580 9:30 AM 11:00 AM 01:30
42699 10:00 AM 11:30 AM 01:30
12345 01:00 PM 2:00 PM 01:00
Rinne an modhnóir ar an láithreán an trácht seo a íoslaghdú
Tá an fhadhb chéanna agam. An bhfuil réiteach aimsithe agat?
Rinne an modhnóir ar an láithreán an trácht seo a íoslaghdú
Dia duit a chairde,
B’fhéidir gur féidir leis an gcód VBA seo a leanas fabhar a dhéanamh duit, cuir i bhfeidhm é le do thoil:
Fo-ionchuir ()
Dim I Chomh Fada
Dim xRg Mar Raon
Dim xHour, xMin Chomh fada
Ar Lean Earráid Aghaidh
Application.ScreenUpdating = Bréagach
Le haghaidh I = Raon ("D" & Rows.CountLarge).Deireadh(xlUp).Row Go 1 Céim -1
xuair = 0
Socraigh xRg = Raon ("D" & I)
xHour = Uair(xRg.Value) + 1
xMin = Nóiméad(xRg.Value)
Má tá xMin < 30 Ansin xHour = xHour - 1
Rónna(I). Cóip
Rónna(I).Athraigh Méid (xHour).Cuir isteach
Ar Aghaidh
Feidhmchlár.ScreenUpdating = Fíor
Application.CutCopyMode = Bréagach
Fo Deireadh

Bain triail as 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ú
D'úsáid mé na macraí seo san am atá caite agus d'oibrigh sé i gcónaí go dtí le déanaí. Aon léargas cén fáth nach ndéanfadh sé ach an tsraith uachtarach a dhúbláil fiú agus na macraí rónna iolracha á n-úsáid? Tá gach scagairí/pána reoite bainte agam.
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 athrú chun na rudaí seo a leanas a chur san áireamh

1. dúbailt bunaithe ar líon na laethanta
2. colún EOM a athrú ó dheireadh na míosa go dtí an dáta laethúil
Rinne an modhnóir ar an láithreán an trácht seo a íoslaghdú
Míle buíochas as bhur dtacaíocht!!!!
Rinne an modhnóir ar an láithreán an trácht seo a íoslaghdú
Is breá an cód! conas a shocraím an raon tosaithe chun an chéad ró a scipeáil (Ceanntásca na gColún) agus tosú ar an dara sraith?
Rinne an modhnóir ar an láithreán an trácht seo a íoslaghdú
Dia duit, Devin,
Chun an chéad cheanntásc a shárú, cuir an cód VBA seo a leanas i bhfeidhm:

Fo-ionchuir ()
Dim I Chomh Fada
Dim xCount As Slánuimhir
Uimhir Lable:
xCount = Application.InputBox("Líon na Rónna", "Kutools le haghaidh Excel", , , , , , , 1)
Má tá xCount < 1 Ansin
MsgBox "tá earráid sa líon sraitheanna a iontráil, cuir isteach arís", vbInformation, "Kutools le haghaidh Excel"
Téigh go Uimhir Lable
Deireadh Má
Do I = Raon ("A" & Rows.CountLarge).Deireadh(xlUp).Row Go 2 Céim -1
Rónna(I). Cóip
Rónna(I).Athraigh Méid(xCount).Ionsáigh
Ar Aghaidh
Application.CutCopyMode = Bréagach
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ú
Dia duit, tá cabhair ag teastáil uaim, seo mar a bhreathnaíonn mo tábla, mar shampla, nuair a chuirim 2 ró ag deireadh mo 1ú tábla, ba mhaith liom go gcuideoidh an vba liom an rud céanna a dhéanamh don tábla thíos (cuir 2 shraith leis ag an deireadh an tábla). Mar sin is é an post a bheidh agam ná nach gá ach sraitheanna a chur leis ag an 1ú tábla, ginfidh an tábla bellows go léir sraitheanna go huathoibríoch bunaithe ar líon na sraitheanna sa 1ú tábla. is iad sin na códú a d'úsáid mé anois chun ró a chur leis don 1ú tábla. Tá súil agam gur féidir le duine éigin an cheist seo a réiteach dom, thx.Sub InsertNumRows()

ActiveCell.EntireRow.Copy

Dim Rng Chomh fada

Application.DisplayAlerts = Bréagach
Ar Lean Earráid Aghaidh
Rng = InputBox ("Cuir isteach líon na sraitheanna atá ag teastáil.")
Ar Earráid TéighTo 0
Application.DisplayAlerts = Fíor

Má Rng = 0 Ansin
msgstr "Níor shonraigh tú raon!"
Fo-Scoir

Eile
Raon(ActiveCell.Offset(1, 0), ActiveCell.Offset(Rng, 0)).Roghnaigh
Selection.EntireRow.Insert Shift:=xlDown
Deireadh Má

Fo Deireadh
Rinne an modhnóir ar an láithreán an trácht seo a íoslaghdú
Is breá é! Oibríonn sé gach uair! Go raibh míle maith agat as seo :)
Rinne an modhnóir ar an láithreán an trácht seo a íoslaghdú
conas a dhéanaim é seo do cholúin?
Rinne an modhnóir ar an láithreán an trácht seo a íoslaghdú
Conas is féidir liom é seo a dhéanamh le haghaidh colúin?
Rinne an modhnóir ar an láithreán an trácht seo a íoslaghdú
conas an gníomh céanna a dhéanamh le cealla roghnaithe ag baint úsáide as VB,


Ní mór dom cúpla cill roghnaithe (sraitheanna agus colúin) a athdhéanamh x líon uaireanta sa bhileog chéanna agus san ord céanna:

líne1
líne2
líne3

líne1
líne2
líne3
Rinne an modhnóir ar an láithreán an trácht seo a íoslaghdú
Dia duit d'oibrigh sé seo go hiontach, ní gá ach dhá shraith a chóipeáil N líon uaireanta. An féidir leat an cód a choigeartú le do thoil mar sin nuair a roghnaíonn mé dhá shraith, déanfaidh sé an dá shraith sin a chóipeáil síos N uair ansin? go raibh maith agat as do chabhair
Rinne an modhnóir ar an láithreán an trácht seo a íoslaghdú
Dia duit Sal,
Más gá duit ach dhá shraith a chóipeáil síos arís agus arís eile, ní gá duit ach cód VBA 1 a úsáid san Airteagal seo, cuir an cód i bhfeidhm dhá uair a réiteoidh d'fhadhb. 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ú
Cóipeáil Agus Ionsáigh Gach Ró Amanna Il Le Cód VBA

I gcód VBA conas is féidir liom an tsraith tosaigh a roghnú
Rinne an modhnóir ar an láithreán an trácht seo a íoslaghdú
Níl aon fheidhm le Windows 2019, deseo úsáid a bhaint as an bhfeidhmchlár agus an simplí a bhaineann leis an iomlán
Rinne an modhnóir ar an láithreán an trácht seo a íoslaghdú
Dia duit gach duine.. Go raibh maith agat roimh ré as do chabhair!!

Oibríonn an cód VBA chun ró shainiúil amháin a dhúbailt go minic go dtí go n-úsáideann tú scagaire. N'fheadar an féidir le duine éigin cabhrú liom an cheist seo a réiteach. Teastaíonn cód uaim a oibríonn fiú má tá roinnt luachanna scagtha agat. Tá mé ag baint úsáide as cuid mhór sonraí a shórtáil de réir láithreacha. Oibríonn an cód go páirteach, greamaíonn sé líon na dúil as a chéile ach níl aon sonraí nó formáid ann nuair a chuir mé scagaire i bhfeidhm.
Rinne an modhnóir ar an láithreán an trácht seo a íoslaghdú
Dia duit, an féidir méideanna éagsúla (luachanna) a úsáid le haghaidh gach ró? Táim ag baint úsáide as veicteoir, ach níl sé ag obair.
Mar shampla :
Rónna(I).Athraigh Méid(xCount(y)).Ionsáigh

Áit a léitear na luachanna atá sábháilte in xCount(y) ó thábla.
Rinne an modhnóir ar an láithreán an trácht seo a íoslaghdú
Dia duit Guss,
B'fhéidir gur féidir leis an alt thíos cabhrú leat, seiceáil le do thoil é:
https://www.extendoffice.com/documents/excel/4054-excel-duplicate-rows-based-on-cell-value.html
Rinne an modhnóir ar an láithreán an trácht seo a íoslaghdú
Don dara cód VBA (cód VBA: Déan gach sraith a dhúbailt arís agus arís eile) coinním mar earráid ama rite: 1004
Níl aon tráchtanna curtha suas anseo go fóill
Luchtaigh More
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