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

Sut i gopïo a mewnosod rhes sawl gwaith neu ddyblygu'r rhes x gwaith yn Excel?

Yn eich gwaith beunyddiol, a ydych erioed wedi ceisio copïo rhes neu bob rhes ac yna mewnosod sawl gwaith o dan y rhes ddata gyfredol mewn taflen waith? Er enghraifft, mae gen i ystod o gelloedd, nawr, rydw i eisiau copïo pob rhes a'u pastio 3 gwaith i'r rhes nesaf fel y dangosir y screenshot canlynol. Sut allech chi ddelio â'r swydd hon yn Excel?


Copïwch a mewnosod rhes benodol sawl gwaith gyda chod VBA

Os ydych chi am ddyblygu dim ond un rhes benodol x gwaith, gall y cod VBA canlynol eich helpu chi, gwnewch fel hyn:

1. Nodwch res yr ydych am ei chopïo a'i mewnosod sawl gwaith, ac yna daliwch y ALT + F11 allweddi, yna mae'n agor y Microsoft Visual Basic ar gyfer Ceisiadau ffenestr.

2. Cliciwch Mewnosod > Modiwlau, a gludwch y cod canlynol yn y Modiwlau Ffenestr.

Cod VBA: Dyblygu un rhes benodol sawl gwaith:

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. Ar ôl pasio'r cod, pwyswch F5 allwedd i redeg y cod hwn, ac mae blwch prydlon yn cael ei popio allan i'ch atgoffa i nodi'r nifer o weithiau rydych chi am ei ddyblygu, gweler y screenshot:

4. Yna cliciwch OK botwm, ac mae tair rhes newydd wedi'u copïo wedi'u mewnosod o dan y rhes a ddewiswyd, gweler y screenshot:


Copïwch a mewnosodwch bob rhes sawl gwaith yn seiliedig ar rif penodol yn hawdd

Fel rheol, nid oes dull da ar gyfer copïo a mewnosod rhesi sawl gwaith ac eithrio delio â chopïo a mewnosod â llaw. Ond, gyda Kutools ar gyfer Excel's Rhesi / colofnau dyblyg yn seiliedig ar werth celloedd nodwedd, gallwch ddatrys y broblem hon yn rhwydd. Cliciwch i lawrlwytho Kutools ar gyfer Excel!

Kutools ar gyfer Excel: gyda mwy na 300 o ychwanegiadau Excel defnyddiol, am ddim i geisio heb unrhyw gyfyngiad mewn 60 diwrnod. Dadlwythwch a threial am ddim Nawr!


Copïwch a mewnosodwch bob rhes sawl gwaith gyda chod VBA

I ddyblygu pob rhes sawl gwaith mewn ystod, gallwch gymhwyso'r cod VBA canlynol, gwnewch fel y nodir isod:

1. Daliwch i lawr y ALT + F11 allweddi, yna mae'n agor y Microsoft Visual Basic ar gyfer Ceisiadau ffenestr.

2. Cliciwch Mewnosod > Modiwlau, a gludwch y cod canlynol yn y Modiwlau Ffenestr.

Cod VBA: Dyblygu pob rhes sawl gwaith:

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. Ac yna pwyswch F5 allwedd i redeg y cod hwn, ac mae blwch prydlon yn cael ei popio allan i'ch atgoffa i nodi'r nifer o weithiau rydych chi am eu dyblygu ar gyfer pob cofnod, gweler y screenshot:

4. Yna cliciwch OK, ac mae pob rhes wedi'i chopïo a'i mewnosod 3 gwaith yn is na'r rhai gweithredol, gweler y screenshot:

Nodyn: Yn y cod uchod, mae'r A yn nodi bod yr ystod ddata wedi'i dechrau yng ngholofn A, os yw'ch data'n dechrau yng ngholofn K, os gwelwch yn dda newid A i K fel eich angen.


Copïwch a mewnosodwch bob rhes sawl gwaith yn seiliedig ar rif penodol gyda nodwedd anhygoel

Efallai, nad ydych chi'n gyfarwydd â'r cod VBA, neu bydd poeni am y cod yn chwalu'ch data. Yma, byddaf yn cyflwyno nodwedd ddefnyddiol, Kutools ar gyfer Excel's Rhesi / Colofnau Dyblyg yn seiliedig ar werth celloedd, gyda'r cyfleustodau hwn, gallwch chi gopïo a mewnosod y rhesi yn gyflym yn seiliedig ar y rhif a nodwyd gennych.

Awgrym:I gymhwyso hyn Rhesi / Colofnau Dyblyg yn seiliedig ar werth celloedd nodwedd, yn gyntaf, dylech lawrlwytho'r Kutools ar gyfer Excel, ac yna cymhwyswch y nodwedd yn gyflym ac yn hawdd.

Ar ôl gosod Kutools ar gyfer Excel, gwnewch fel hyn:

1. Rhowch y rhifau ailadrodd yr ydych am ddyblygu rhesi mewn rhestr o gelloedd wrth ochr eich data, gweler y screenshot:

2. Cliciwch Kutools > Mewnosod > Rhesi / Colofnau Dyblyg yn seiliedig ar werth celloedd, gweler y screenshot:

3. Yn y Copïo a mewnosod rhesi a cholofnau blwch deialog, dewiswch Copïo a mewnosod rhesi opsiwn yn y math adran, yna dewiswch yr ystod ddata rydych chi am ei dyblygu, ac yna nodwch yr amser ailadrodd i ddyblygu'r rhesi, gweler y screenshot:

4. Yna, cliciwch Ok or Gwneud cais botwm, fe gewch y canlyniad canlynol yn ôl yr angen:

Cliciwch i Lawrlwytho Kutools ar gyfer Excel a threial am ddim Nawr!


Yr Offer Cynhyrchedd Swyddfa Gorau

Mae Kutools for Excel yn Datrys y rhan fwyaf o'ch Problemau, ac yn Cynyddu Eich Cynhyrchedd 80%

  • Ailddefnyddio: Mewnosod yn gyflym fformwlâu cymhleth, siartiau ac unrhyw beth rydych chi wedi'i ddefnyddio o'r blaen; Amgryptio Celloedd gyda chyfrinair; Creu Rhestr Bostio ac anfon e-byst ...
  • Bar Fformiwla Gwych (golygu llinellau lluosog o destun a fformiwla yn hawdd); Cynllun Darllen (darllen a golygu nifer fawr o gelloedd yn hawdd); Gludo i'r Ystod Hidlo...
  • Uno Celloedd / Rhesi / Colofnau heb golli Data; Cynnwys Celloedd Hollt; Cyfuno Rhesi / Colofnau Dyblyg... Atal Celloedd Dyblyg; Cymharwch y Meysydd...
  • Dewiswch Dyblyg neu Unigryw Rhesi; Dewiswch Blank Rows (mae pob cell yn wag); Darganfyddiad Gwych a Darganfyddiad Niwlog mewn Llawer o Lyfrau Gwaith; Dewis ar Hap ...
  • Copi Union Celloedd Lluosog heb newid cyfeirnod fformiwla; Auto Creu Cyfeiriadau i Daflenni Lluosog; Mewnosod Bwledi, Blychau Gwirio a mwy ...
  • Testun Detholiad, Ychwanegu Testun, Tynnu yn ôl Swydd, Tynnwch y Gofod; Creu ac Argraffu Subtotals Paging; Trosi rhwng Cynnwys a Sylwadau Celloedd...
  • Hidlo Super (arbed a chymhwyso cynlluniau hidlo i ddalenni eraill); Trefnu Uwch yn ôl mis / wythnos / dydd, amlder a mwy; Hidlo Arbennig gan feiddgar, italig ...
  • Cyfuno Llyfrau Gwaith a Thaflenni Gwaith; Uno Tablau yn seiliedig ar golofnau allweddol; Rhannwch Ddata yn Daflenni Lluosog; Trosi Swp xls, xlsx a PDF...
  • Mwy na 300 o nodweddion pwerus. Yn cefnogi Swyddfa / Excel 2007-2019 a 365. Yn cefnogi pob iaith. Defnydd hawdd yn eich menter neu sefydliad. Nodweddion llawn treial am ddim 30 diwrnod. Gwarant arian yn ôl 60 diwrnod.
tab kte 201905

Mae Tab Office yn Dod â rhyngwyneb Tabbed i'r Swyddfa, a Gwneud Eich Gwaith yn Haws o lawer

  • Galluogi golygu a darllen tabbed yn Word, Excel, PowerPoint, Cyhoeddwr, Mynediad, Visio a Phrosiect.
  • Agor a chreu dogfennau lluosog mewn tabiau newydd o'r un ffenestr, yn hytrach nag mewn ffenestri newydd.
  • Yn cynyddu eich cynhyrchiant 50%, ac yn lleihau cannoedd o gliciau llygoden i chi bob dydd!
gwaelod officetab
sylwadau (31)
Dim sgôr eto. Byddwch y cyntaf i sgorio!
Lleihawyd y sylw hwn gan y safonwr ar y wefan
Diolch yn fawr!
Lleihawyd y sylw hwn gan y safonwr ar y wefan
Macro Anhygoel - Wedi arbed cymaint o amser i mi!
Lleihawyd y sylw hwn gan y safonwr ar y wefan
mate macro neis iawn!
Lleihawyd y sylw hwn gan y safonwr ar y wefan
Rwyf am gynhyrchu rhesi dyblyg ar hap,

megys eg. cynhyrchu rhesi dyblyg ar hap rhwng 20 ac 80.


beth fydd yn cael ei ddiweddaru cod ar gyfer y canlynol


Is-fewnosod()
'Updateby Extendoffice 2016616
Dim I Cyn Hir
Dim xCyfrif Fel Cyfanrif
Rhif Tabl:
xCount = Application.InputBox("Nifer y Rhesi", "Kutools ar gyfer Excel", , , , , , , 1)
Os xCyfrif < 1 Yna
MsgBox "mae'r nifer o resi a gofnodwyd yn wall, rhowch eto", vbInformation, "Kutools for Excel"
Ewch i Rhif Lable
Gorffennwch Os
Ar gyfer I = Ystod ("A" & Rows.CountLarge).Diwedd(xlUp). Rhes i 1 Cam -1
Rhesi(I).Copi
Rhesi(I). Newid Maint (xCount). Mewnosod
Digwyddiadau
Application.CutCopyMode = Anghywir
Is-End
Lleihawyd y sylw hwn gan y safonwr ar y wefan
Rwyf am ddyblygu rhesi yn seiliedig ar baramedr. Er enghraifft, mae gennyf golofn o'r enw amser hyd cyfarfod. Os yw'r golofn honno'n fwy nag 1, rwyf am ddyblygu rhesi ID cyfarfod yn seiliedig ar y rhif hwnnw. Os mai 2 awr yw hyd y cyfarfod, yna dyblygwch ID y cyfarfod ddwywaith. Os yw'r cyfarfod yn 3 awr, yna dyblygwch deirgwaith.
gellir talgrynnu cynyddrannau hanner awr i'r awr.

Cyfarfod ID Amser Dechrau Amser Dechrau Gorffen Cyfarfod Hyd
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
Lleihawyd y sylw hwn gan y safonwr ar y wefan
Yr un broblem sydd gennyf. Ydych chi wedi dod o hyd i ateb?
Lleihawyd y sylw hwn gan y safonwr ar y wefan
Helo, bois,
Efallai y gall y cod VBA canlynol wneud ffafr i chi, cymhwyswch ef:
Is-fewnosod()
Dim I Cyn Hir
Dim xRg Fel Ystod
Dim xAwr, xMin Cyhyd
Ar Ail-ddechrau Gwall Nesaf
Application.ScreenUpdating = Anghywir
Ar gyfer I = Ystod ("D" & Rows.CountLarge).Diwedd(xlUp). Rhes i 1 Cam -1
xAwr = 0
Gosod xRg = Ystod ("D" ac I)
xAwr = Awr(xRg.Value) + 1
xMin = Munud(xRg.Value)
Os xMin < 30 Yna xAwr = xAwr - 1
Rhesi(I).Copi
Rhesi(I). Newid Maint (xAwr). Mewnosod
Digwyddiadau
Application.ScreenUpdating = Gwir
Application.CutCopyMode = Anghywir
Is-End

Rhowch gynnig arni. Gobeithio y gall eich helpu!
Lleihawyd y sylw hwn gan y safonwr ar y wefan
Defnyddiais y macros hwn yn y gorffennol ac mae bob amser wedi gweithio tan yn ddiweddar. Unrhyw fewnwelediad pam y byddai ond yn dyblygu'r rhes uchaf hyd yn oed wrth ddefnyddio'r macros rhes lluosog? Rwyf wedi tynnu'r holl hidlyddion/cwareli wedi'u rhewi.
Lleihawyd y sylw hwn gan y safonwr ar y wefan
Helo, sut alla i newid y cod i gynnwys y canlynol

1. dyblyg yn seiliedig ar nifer y dyddiau
2. newid colofn EOM o ddiwedd y mis i'r dyddiad dyddiol
Lleihawyd y sylw hwn gan y safonwr ar y wefan
Diolch yn fawr iawn am eich cefnogaeth!!!!
Lleihawyd y sylw hwn gan y safonwr ar y wefan
Cariad y cod! sut mae gosod yr ystod cychwyn i hepgor y rhes gyntaf (Penawdau Colofn) a dechrau ar res 2?
Lleihawyd y sylw hwn gan y safonwr ar y wefan
Helo, Devin,
I hepgor y rhes pennawd gyntaf, cymhwyswch y cod VBA canlynol:

Is-fewnosod()
Dim I Cyn Hir
Dim xCyfrif Fel Cyfanrif
Rhif Tabl:
xCount = Application.InputBox("Nifer y Rhesi", "Kutools ar gyfer Excel", , , , , , , 1)
Os xCyfrif < 1 Yna
MsgBox "mae'r nifer o resi a gofnodwyd yn wall, rhowch eto", vbInformation, "Kutools for Excel"
Ewch i Rhif Lable
Gorffennwch Os
Ar gyfer I = Ystod ("A" & Rows.CountLarge).Diwedd(xlUp). Rhes i 2 Cam -1
Rhesi(I).Copi
Rhesi(I). Newid Maint (xCount). Mewnosod
Digwyddiadau
Application.CutCopyMode = Anghywir
Is-End

Rhowch gynnig arni, gobeithio y gall eich helpu!
Lleihawyd y sylw hwn gan y safonwr ar y wefan
Helo, mae angen help arnaf, dyma sut mae fy nhabl yn edrych, er enghraifft, pan fyddaf yn ychwanegu 2 res ar ddiwedd fy nhabl 1af, rwyf am i'r vba fy helpu i wneud yr un peth ar gyfer y tabl isod (ychwanegwch 2 res ar y diwedd y bwrdd). Felly fy swydd i fydd, dim ond angen ychwanegu rhesi ar y bwrdd 1af, bydd y tabl megin i gyd yn cynhyrchu rhesi yn awtomatig yn seiliedig ar nifer y rhesi yn y tabl 1af. Dyma'r codio a ddefnyddiais nawr i ychwanegu rhes ar gyfer y tabl 1af. Rwy'n gobeithio y gall rhywun ddatrys y mater hwn i mi, thx.Sub InsertNumRows()

ActiveCell.EntireRow.Copy

Dim Rng Cyhyd

Application.DisplayAlerts = Gau
Ar Ail-ddechrau Gwall Nesaf
Rng = InputBox ("Rhowch nifer y rhesi sydd eu hangen.")
Ar Gwall Ewch i 0
Application.DisplayAlerts = Gwir

Os Rng = 0 Yna
msgstr "Wnaethoch chi ddim pennu ystod!"
Is Allanfa

arall
Ystod(ActiveCell.Offset(1, 0), ActiveCell.Offset(Rng, 0)).Dewis
Selection.EntireRow.Insert Shift:=xlDown
Gorffennwch Os

Is-End
Lleihawyd y sylw hwn gan y safonwr ar y wefan
Wrth fy modd! Mae'n gweithio bob tro! Diolch yn fawr am hyn :)
Lleihawyd y sylw hwn gan y safonwr ar y wefan
sut mae gwneud hyn ar gyfer colofnau?
Lleihawyd y sylw hwn gan y safonwr ar y wefan
Sut alla i wneud hyn ar gyfer colofnau?
Lleihawyd y sylw hwn gan y safonwr ar y wefan
sut i berfformio'r un weithred gyda chelloedd dethol gan ddefnyddio VB,


Mae angen i mi ailadrodd ychydig o gelloedd dethol (rhesi a cholofnau) x nifer o weithiau yn yr un ddalen ac yn yr un drefn â:

llinell1
llinell2
llinell3

llinell1
llinell2
llinell3
Lleihawyd y sylw hwn gan y safonwr ar y wefan
Helo fe weithiodd hyn yn wych, dim ond dwy res sydd angen i mi eu copïo N nifer o weithiau. A allwch chi addasu'r cod os gwelwch yn dda, felly pan fyddaf yn dewis dwy res, bydd wedyn yn copïo'r ddwy res hynny i lawr N amseroedd? Diolch am eich help
Lleihawyd y sylw hwn gan y safonwr ar y wefan
Helo, Sal,
Os oes angen i chi gopïo dwy res i lawr sawl gwaith yn unig, does ond angen i chi ddefnyddio'r cod VBA 1 yn yr erthygl hon, cymhwyswch y cod ddwywaith a bydd yn datrys eich problem. Ceisiwch, gobeithio y gall eich helpu!
Lleihawyd y sylw hwn gan y safonwr ar y wefan
Copïo A Mewnosod Pob Rhes Lluosog Amser Gyda Chod VBA

Yn y cod VBA sut alla i ddewis y rhes gychwyn
Lleihawyd y sylw hwn gan y safonwr ar y wefan
Nid oes unrhyw swyddogaeth gyda Windows 2019, mae'r defnydd a wneir o'r swyddogaeth hon ar gyfer y dasg o wneud pethau'n syml heb os nac oni bai
Lleihawyd y sylw hwn gan y safonwr ar y wefan
helo pawb.. Diolch ymlaen llaw am eich help!!

Mae'r cod VBA i ddyblygu un rhes benodol sawl gwaith yn gweithio'n berffaith nes i chi ddefnyddio hidlydd. Tybed a all rhywun fy helpu i ddatrys y mater hwn. Dwi angen cod sy'n gweithio hyd yn oed os oes gennych chi rai gwerthoedd wedi'u hidlo. Rwy'n defnyddio llawer iawn o ddata sy'n cael ei ddidoli yn ôl lleoliadau. Mae'r cod yn gweithio'n rhannol, mae'n gludo nifer y rhes awydd ond dim data na fformat pan fyddaf wedi cymhwyso hidlydd.
Lleihawyd y sylw hwn gan y safonwr ar y wefan
Helo, a yw'n bosibl defnyddio gwahanol feintiau (gwerthoedd) ar gyfer pob rhes? Rwy'n ceisio defnyddio fector, ond nid yw'n gweithio.
Er enghraifft :
Rhesi(I). Newid Maint(xCount(y)). Mewnosod

Lle mae'r gwerthoedd sydd wedi'u cadw yn xCount(y) yn cael eu darllen o dabl.
Lleihawyd y sylw hwn gan y safonwr ar y wefan
Helo Guss,
Efallai y gall yr erthygl isod eich helpu chi, gwiriwch ef:
https://www.extendoffice.com/documents/excel/4054-excel-duplicate-rows-based-on-cell-value.html
Lleihawyd y sylw hwn gan y safonwr ar y wefan
Ar gyfer yr ail god VBA (cod VBA: Dyblygwch bob rhes sawl gwaith) rwy'n dal i gael gwall amser rhedeg: 1004
Nid oes unrhyw sylwadau wedi'u postio yma eto
Llwytho mwy o
Gadewch eich sylwadau
Postio fel Gwestai
×
Graddiwch y swydd hon:
0   Cymeriadau
Lleoliadau a Awgrymir