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

Sut i ddyblygu rhesi yn seiliedig ar werth celloedd mewn colofn?

Er enghraifft, mae gen i ystod o ddata sy'n cynnwys rhestr o rifau yng ngholofn D, a nawr, rydw i eisiau dyblygu'r rhesi cyfan nifer o weithiau yn seiliedig ar y gwerthoedd rhifol yng ngholofn D i gael y canlyniad canlynol. Sut allwn i gopïo'r rhesi sawl gwaith yn seiliedig ar werthoedd y celloedd yn Excel?

rhesi dyblyg doc yn ôl cell 1

Rhesi dyblyg sawl gwaith yn seiliedig ar werthoedd celloedd gyda chod VBA


swigen dde glas saeth Rhesi dyblyg sawl gwaith yn seiliedig ar werthoedd celloedd gyda chod VBA

I gopïo a dyblygu'r rhesi cyfan sawl gwaith yn seiliedig ar werthoedd y celloedd, gall y cod VBA canlynol eich helpu, gwnewch fel hyn:

1. Daliwch i lawr y ALT + F11 allweddi i agor y Microsoft Visual Basic ar gyfer Ceisiadau ffenestr.

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

Cod VBA: Rhesi dyblyg sawl gwaith yn seiliedig ar werth celloedd:

Sub CopyData()
'Updateby Extendoffice
    Dim xRow As Long
    Dim VInSertNum As Variant
    xRow = 1
    Application.ScreenUpdating = False
    Do While (Cells(xRow, "A") <> "")
        VInSertNum = Cells(xRow, "D")
        If ((VInSertNum > 1) And IsNumeric(VInSertNum)) Then
           Range(Cells(xRow, "A"), Cells(xRow, "D")).Copy
           Range(Cells(xRow + 1, "A"), Cells(xRow + VInSertNum - 1, "D")).Select
           Selection.Insert Shift:=xlDown
           xRow = xRow + VInSertNum - 1
        End If
        xRow = xRow + 1
    Loop
    Application.ScreenUpdating = False
End Sub

3. Yna pwyswch F5 yn allweddol i redeg y cod hwn, mae'r rhesi cyfan wedi'u dyblygu sawl gwaith yn seiliedig ar werth y gell yng ngholofn D yn ôl yr angen.

Nodyn: Yn y cod uchod, y llythyr A yn nodi colofn gychwyn eich ystod ddata, a'r llythyr D yw'r llythyr colofn rydych chi am ddyblygu'r rhesi yn seiliedig arno. Os gwelwch yn dda eu newid i'ch angen.


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 (39)
Dim sgôr eto. Byddwch y cyntaf i sgorio!
Lleihawyd y sylw hwn gan y safonwr ar y wefan
Gweithiodd hyn yn berffaith. Beth fyddwn i'n ei ychwanegu at eich cod i wneud i unrhyw linellau gyda '0' ddiflannu? Rydym yn defnyddio hwn ar gyfer labeli SKU. Diolch am yr ateb gwych!
Lleihawyd y sylw hwn gan y safonwr ar y wefan
Rwy'n dy garu di. Diolch.
Lleihawyd y sylw hwn gan y safonwr ar y wefan
Diolch! Mae llinellau 10 ac 11 "D" yn nodi diwedd y rhes ac efallai y bydd angen newid hyn i'ch ystod data i wneud iddo weithio.
Lleihawyd y sylw hwn gan y safonwr ar y wefan
Heia,
Mae rhywun yn gwybod yn boeth drosi'r cod VBA hwn i sgriptiau Google Apps (taflenni google)?
Lleihawyd y sylw hwn gan y safonwr ar y wefan
Defnyddiais y cod uchod sy'n gweithio'n wych ond mae angen un cam arall arnaf ar ôl i'r rhes gael ei gludo. Ni allaf ei gael i weithio'n iawn. Dwi angen iddo roi sero yng ngholofn "N" yn y rhes ar ôl ei ludo ond cadw'r gwerth yn "N" yn y rhes wreiddiol a gopïwyd.


Is-Data Copi()
'Updateby Extendoffice 20160922
Dim xRow Cyhyd
Dim VInSertNum Fel Amrywiad
xRhes = 1
Application.ScreenUpdating = Anghywir
Gwnewch Tra (Celloedd(xRow, "A") <> "")
VInSertNum = Celloedd(xRow, "J")
Os ((VInSertNum > 1) Ac IsNumeric(VInSertNum)) Yna
Ystod (Celloedd (xRow, "A")), Celloedd (xRow, "AN")). Copi
' Celloedd(xRow, 14).Gwerth = 0 gwnaeth hyn bob rhes
Ystod (Celloedd (xRow + 1, "A")), Celloedd (xRow + VInSertNum - 1, "AN")). Dewiswch
'Celloedd(xRow, 14).Gwerth = 0
' gwnaeth hyn bob rhes
Selection.Insert Shift:=xlDown
' Celloedd(xRow, 14).Gwerth = 0 y rhes gyntaf yn unig a wnaeth hyn
xRow = xRow + VInSertNum - 1
'Celloedd(xRow - 1, 14).Gwerth = 0
Gorffennwch Os
' Celloedd(xRow - 1, 14).Gwerth = 0
xRow = xRhes + 1
' Celloedd(xRow + 1, 14).Gwerth = 0
dolen
'Celloedd(xRow, 14).Gwerth = 0 ni wnaeth hyn ddim rhesi
Application.ScreenUpdating = Anghywir
Is-End
Lleihawyd y sylw hwn gan y safonwr ar y wefan
Helo Steve, a oeddech chi'n gallu gwneud hyn. mae fy gofyniad yr un peth :(
Lleihawyd y sylw hwn gan y safonwr ar y wefan
Helo, bois,
Efallai y gall yr erthygl isod eich helpu chi, gwiriwch ef:
https://www.extendoffice.com/documents/excel/3682-excel-copy-and-insert-row-multiple-times.html
Lleihawyd y sylw hwn gan y safonwr ar y wefan
Ydych chi'n gwybod beth fyddai'r cod i ddyblygu'r rhes unwaith yn unig, yn seiliedig ar a yw dweud cell d yn cynnwys 'Ie' - rwyf wedi bod yn mynd ar drywydd cod tebyg ond am rywbeth a fydd yn dyblygu rhes yn seiliedig ar gell yn dweud ie
Lleihawyd y sylw hwn gan y safonwr ar y wefan
Felly rwy'n defnyddio'r cod hwn ond rwyf am iddo chwilio'r ddogfen gyfan nid yn unig rhes 1 neu beth bynnag a nodir gan xRow = 1. Yr wyf yn ceisio rhoi yn yr ystod 1:2000 ond nid yw'n gweithio. Sut gallaf adnabod xRow = unrhyw res ar y ddalen sy'n cynnwys y wybodaeth a nodaf yn y cod isod?


Dim xRow Cyhyd
Dim Gwerth Fel Amrywiad


xRow = 1:2000

Application.ScreenUpdating = Anghywir
Gwnewch Tra (Celloedd(xRow, "A") <> "")
Gwerth = Celloedd(xRow, "D")
Gwerth2 = Celloedd(xRow, "A")
Os Na ((Gwerth = "alegheny general") Ac IsNumeric(Gwerth 2 = G0202)) Yna
Ystod (Celloedd (xRow, "A")), Celloedd (xRow, "D")). Copi
Ystod (Celloedd (xRow + 1, "A")), Celloedd (xRow + 1, "D")). Dewiswch
Selection.Insert Shift:=xlDown
xRow = xRhes + 1
Gorffennwch Os
xRow = xRhes + 1
dolen
Application.ScreenUpdating = Anghywir
Is-End
Lleihawyd y sylw hwn gan y safonwr ar y wefan
Helo, fe weithiodd hyn yn wych. Fodd bynnag, mae gennyf adroddiad gyda 1000 o gofnodion ac nid oedd y cod yn cael ei ddyblygu o gwmpas cofnod 480. A oes rhywbeth y gallaf ei ychwanegu fel ei fod yn cwblhau'r camau gweithredu ar yr adroddiad cyfan?
Lleihawyd y sylw hwn gan y safonwr ar y wefan
Helo, Leah,
Rwyf wedi profi'r cod mewn 2000 o resi, ac mae'n gweithio'n dda.
A allech chi anfon eich taflen waith ataf i brofi'r cod?
Fy nghyfeiriad e-bost yw skyyang@extendoffice. Gyda
Edrych ymlaen at eich ateb!
Lleihawyd y sylw hwn gan y safonwr ar y wefan
Helo! Cefais i weithio. Roedd yn gamgymeriad ar fy ochr, roedd gan yr adroddiad ychydig o resi gwag a oedd wedi'u cuddio a oedd yn achosi i'r sgript stopio dolennu. Fe weithiodd i fy adroddiad gyda 8,000 o resi! DiolchQ
Lleihawyd y sylw hwn gan y safonwr ar y wefan
Helo Leah a Skyyang,
Mae gen i broblem debyg - mae'r sgript yn gweithio'n iawn mewn taflen waith o tua 100 o resi ond mae'n stopio gweithio i unrhyw beth mwy. Rwyf wedi gwirio am resi gwag yn y golofn o ble y daw rhif lluosi ac nid oes dim. Unrhyw resymau eraill pam efallai na fydd y sgript yn gweithio ar gyfer setiau data mwy?
Lleihawyd y sylw hwn gan y safonwr ar y wefan
Diolch! mae wedi bod yn ateb gwych ar gyfer fy holl drafferthion!
Lleihawyd y sylw hwn gan y safonwr ar y wefan
Mae'n ymddangos mai'r sgript hon yw'r union beth sydd ei angen arnaf, fodd bynnag, pan fyddaf yn ei redeg rwy'n cael gwall ar y llinell Selection.Insert Shift:=x1Down

Unrhyw awgrymiadau ar sut i drwsio hyn?
Lleihawyd y sylw hwn gan y safonwr ar y wefan
Helo, i mi yn ddim yn gweithio, yr wyf am gael gwared ar lythrennau a rhif dyblyg yn bosibl?
Lleihawyd y sylw hwn gan y safonwr ar y wefan
A oes modd diweddaru'r modiwl i ddyblygu data newydd yn unig? Rwy'n gweithio ar ddogfen barhaus ac nid wyf am i'r cod ddyblygu data sydd wedi'i ddyblygu o'r blaen.
Lleihawyd y sylw hwn gan y safonwr ar y wefan
a oes unrhyw ffordd y gallwn ychwanegu at bob cell dro ar ôl tro, mae caracters olynol? enghraifft
KTE+0001

KTE+0002
Lleihawyd y sylw hwn gan y safonwr ar y wefan
Hyfryd! Diolch. Tybed a allai unrhyw un roi awgrym ar sut y byddwn yn ymgorffori colofn newydd o wybodaeth yn y tabl (colofn E) sef nifer o werth cynyddol ar gyfer pob rhes a gopïwyd, 1, 2, 3, 4 ac ati... ac yna pan fydd yn cyrraedd yr eitem nesaf i gael ei dyblygu X amseroedd, bydd yn dechrau rhifo eto o 1 ac yn cynyddu gan 1 bob tro.
Lleihawyd y sylw hwn gan y safonwr ar y wefan
Helo Rwyf wedi rhoi cynnig ar hyn ond a oes ffordd i ystyried a oes meini prawf lluosog gyda'r data yr wyf yn ei ddyblygu
Lleihawyd y sylw hwn gan y safonwr ar y wefan
Heia,

Rwy'n creu taenlen gan ddefnyddio'r fformiwla a ddarparwyd ond mae gennyf wallau. A all rhywun roi gwybod i mi beth ddylai fy fformiwla fod?

mae fy mwrdd o AY gyda'r meintiau yn K.
Lleihawyd y sylw hwn gan y safonwr ar y wefan
helo, rwyf wedi bod yn ceisio addasu'r cod hwn ond yn cael anawsterau.
Mae gen i eitemau rhestr eiddo. pob eitem yn ddwy rows.and am iddynt ddyblygu N nifer o amser
ar frig y daenlen, mae gen i gell i'w alw'n A1, mae gen i sawl gwaith yn cael ei ddyblygu? N
beth bynnag yw gwerth N, rwyf am ddyblygu'r eitem stocrestr gychwynnol sydd gennyf (A16, A17) gymaint o weithiau.
felly dylai'r eitem sydd wedi'i chopïo ddechrau yn A18 (ac mae'n ddwy res, yr eitem nesaf a20 ac ati.
diolch
Lleihawyd y sylw hwn gan y safonwr ar y wefan
Helo, mae'r cod yn gweithio'n wych. Roeddwn i hefyd eisiau ychwanegu +1 at y dyddiad (dyddiau'r wythnos yn unig) bob tro mae'r rhes yn cael ei dyblygu.
Lleihawyd y sylw hwn gan y safonwr ar y wefan
Diolch yn fawr iawn! Mae hyn wedi arbed cymaint o amser i mi fel roeddwn i'n arfer gwastraffu copïo a gludo fy holl resi o ddata.
Dau fawd i fyny!!
Lleihawyd y sylw hwn gan y safonwr ar y wefan
Darn gwych o god!!! Diolch!!!
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