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

Conas sraitheanna a mhacasamhlú bunaithe ar luach cille i gcolún?

Mar shampla, tá raon sonraí agam ina bhfuil liosta uimhreacha i gcolún D, agus anois, ba mhaith liom na sraitheanna iomlána a mhacasamhlú roinnt uaireanta bunaithe ar na luachanna uimhriúla i gcolún D chun an toradh seo a leanas a fháil. Conas a d’fhéadfainn na sraitheanna a chóipeáil arís agus arís eile bunaithe ar na luachanna cille in Excel?

sraitheanna dúblacha doc de réir cille 1

Sraitheanna dúblacha arís agus arís eile bunaithe ar luachanna cille le cód VBA


mboilgeog cheart gorm saighead Sraitheanna dúblacha arís agus arís eile bunaithe ar luachanna cille le cód VBA

Chun na sraitheanna iomlána a chóipeáil agus a mhacasamhlú arís agus arís eile bunaithe ar na luachanna cille, d’fhéadfadh an cód VBA seo a leanas cabhrú leat, déan mar seo le do thoil:

1. Coinnigh síos an ALT + F11 eochracha a oscailt 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: Sraitheanna dúblacha arís agus arís eile bunaithe ar luach cille:

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. Ansin brúigh F5 eochair chun an cód seo a rith, rinneadh na sraitheanna iomlána a mhacasamhlú arís agus arís eile bunaithe ar luach na cille i gcolún D de réir mar is gá duit.

nótaí: Sa chód thuas, an litir A léiríonn sé colún tosaigh do raon sonraí, agus an litir D an litir cholúin ar mhaith leat na sraitheanna a mhacasamhlú bunaithe uirthi. Athraigh iad le do riachtanas le do thoil.


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 (41)
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ú
D'oibrigh sé seo go foirfe. Cad a chuirfinn le do chód le go n-imeoidh línte ar bith le '0'? Táimid ag baint úsáide as seo le haghaidh lipéid SKU. Go raibh maith agat as an réiteach iontach!
Rinne an modhnóir ar an láithreán an trácht seo a íoslaghdú
Is breá liom tú. Go raibh maith agat.
Rinne an modhnóir ar an láithreán an trácht seo a íoslaghdú
Go raibh maith agat! Léiríonn línte 10 agus 11 "D" deireadh na sraithe agus seans go mbeidh ort é seo a athrú chuig do raon sonraí le go n-oibreoidh sé.
Rinne an modhnóir ar an láithreán an trácht seo a íoslaghdú
Haigh,
Tá a fhios ag duine éigin te an cód VBA seo a thiontú go scripteanna Google Apps (Google sheets)?
Rinne an modhnóir ar an láithreán an trácht seo a íoslaghdú
Bhain mé úsáid as an gcód thuas a oibríonn go hiontach ach teastaíonn céim amháin eile uaim tar éis an tsraith a ghreamú. Ní féidir liom a fháil chun oibriú i gceart. Teastaíonn uaim é chun náid a chur i gcolún "N" sa tsraith tar éis é a ghreamú ach coinnigh an luach in "N" sa bhunchóipeáil as a chéile.


Fo-Shonraí Cóipe()
'Updateby Extendoffice 20160922
Dim xRow Chomh fada
Dim VInSertNum Mar Leagan
xRow=1
Application.ScreenUpdating = Bréagach
Déan Cé (Cealla(xRow, "A") <> "")
VInSertNum = Cealla(xRow, "J")
Más rud é ((VInSertNum > 1) Agus IsNumeric(VInSertNum)) Ansin
Raon (Cealla(xRow, "A")), Cealla(xRow, "AN")). Cóip
' Cealla(xRow, 14).Luach = 0 rinne sé seo gach sraith
Raon (Cealla(xRow + 1, "A")), Cealla(xRow + VInSertNum - 1, "AN")).Roghnaigh
'Cealla(xRow, 14).Luach = 0
'Rinne sé seo go léir sraitheanna
Selection.Insert Shift:=xlDown
' Cealla(xRow, 14).Luach = 0 ní dhearna sé seo ach an chéad ró
xRow = xRow + VInSertNum - 1
'Cealla(xRow - 1, 14).Luach = 0
Deireadh Má
' Cealla(xRow - 1, 14).Luach = 0
xRow = xRow+1
' Cealla(xRow + 1, 14).Luach = 0
Lúb
'Cealla(xRow, 14).Luach = 0 ní raibh aon sraitheanna leis seo
Application.ScreenUpdating = Bréagach
Fo Deireadh
Rinne an modhnóir ar an láithreán an trácht seo a íoslaghdú
Hi Steve, an raibh tú in ann é seo a dhéanamh. tá mo riachtanas mar a chéile :(
Rinne an modhnóir ar an láithreán an trácht seo a íoslaghdú
Dia dhaoibh,
B’fhéidir gur féidir leis an alt thíos cabhrú leat, seiceáil le do thoil é:
https://www.extendoffice.com/documents/excel/3682-excel-copy-and-insert-row-multiple-times.html
Rinne an modhnóir ar an láithreán an trácht seo a íoslaghdú
An bhfuil a fhios agat cad é an cód a bheadh ​​ann chun an ró a dhúbláil ach an t-aon uair amháin, bunaithe ar an bhfuil 'Tá' i gcill d rá - bhí mé ar thóir cód comhchosúil ach ar rud éigin a dhúblóidh ró bunaithe ar chill ag rá tá
Rinne an modhnóir ar an láithreán an trácht seo a íoslaghdú
Mar sin tá mé ag baint úsáide as an gcód seo ach ba mhaith liom é chun cuardach a dhéanamh ar an doiciméad iomlán, ní hamháin as a chéile 1 nó cibé rud atá léirithe ag xRow = 1. Tá mé ag iarraidh a chur sa raon 1:2000 ach níl sé ag obair. Conas is féidir liom xRow a shainaithint = aon ró ar an mbileog a chuimsíonn an fhaisnéis a shainaithním sa chód thíos?


Dim xRow Chomh fada
Luach Gann Mar mhalairt


xRow = 1: 2000

Application.ScreenUpdating = Bréagach
Déan Cé (Cealla(xRow, "A") <> "")
Luach = Cealla(xRow, "D")
Luach2 = Cealla(xRow, "A")
Mura bhfuil ((Luach = "ailegheny ginearálta") Agus IsNumeric(Luach2 = G0202)) Ansin
Raon (Cealla(xRow, "A")), Cealla(xRow, "D")). Cóip
Raon (Cealla(xRow + 1, "A")), Cealla(xRow + 1, "D")).Roghnaigh
Selection.Insert Shift:=xlDown
xRow = xRow+1
Deireadh Má
xRow = xRow+1
Lúb
Application.ScreenUpdating = Bréagach
Fo Deireadh
Rinne an modhnóir ar an láithreán an trácht seo a íoslaghdú
Dia duit, d'oibrigh sé seo go hiontach. Mar sin féin, tá tuarascáil agam le 1000 iontráil agus stop an cód ag dúbailt thart ar iontráil 480. An bhfuil rud éigin ann ar féidir liom a chur leis ionas go gcuirfidh sé an gníomh ar an tuarascáil iomlán i gcrích?
Rinne an modhnóir ar an láithreán an trácht seo a íoslaghdú
Dia duit, Leah,
Tá mé tar éis tástáil a dhéanamh ar an gcód i 2000 sraitheanna, agus oibríonn sé go maith.
An bhféadfá do bhileog oibre a sheoladh chugam chun an cód a thástáil?
Is é mo sheoladh ríomhphoist skyyang@extendoffice.com
Táim ag tnúth le do fhreagra!
Rinne an modhnóir ar an láithreán an trácht seo a íoslaghdú
Dia dhuit! Fuair ​​​​mé é a bheith ag obair. Earráid a bhí ann ar mo thaobhsa, bhí roinnt sraitheanna bána sa tuarascáil a bhí i bhfolach a chuir ar an script stop a lúbadh. D'oibrigh sé do mo thuarascáil le 8,000 sraitheanna! Go raibh maith agatQ
Rinne an modhnóir ar an láithreán an trácht seo a íoslaghdú
Dia duit Leah agus Skyyang,
Tá ceist cosúil leis agam - oibríonn an script go breá i mbileog oibre de thart ar 100 sraitheanna ach stopann sé ag obair le haghaidh aon rud níos mó. Tá sraitheanna bána seiceáilte agam sa cholún as a dtagann an uimhir iolraithe agus níl aon cheann ann. Aon fáthanna eile nach n-oibreodh an script do thacair sonraí níos mó?
Rinne an modhnóir ar an láithreán an trácht seo a íoslaghdú
Go raibh maith agat! bhí sé ina réiteach iontach do mo chuid trioblóidí go léir!
Rinne an modhnóir ar an láithreán an trácht seo a íoslaghdú
Is cosúil go bhfuil an script seo díreach mar a theastaíonn uaim, áfach, nuair a rithim é tá earráid á fháil agam ar an líne Selection.Insert Shift:=x1Down

Aon mholtaí maidir le conas é seo a shocrú?
Rinne an modhnóir ar an láithreán an trácht seo a íoslaghdú
Hi, go dtí mé nach bhfuil ag obair, ba mhaith liom a bhaint litreacha agus uimhir dhúbailt is féidir?
Rinne an modhnóir ar an láithreán an trácht seo a íoslaghdú
An bhfuil bealach ann chun an modúl a nuashonrú chun sonraí nua a mhacasamhlú amháin? Táim ag obair ar dhoiciméad leanúnach agus níl mé ag iarraidh go ndéanfaidh an cód sonraí a mhacasamhlú roimhe seo.
Rinne an modhnóir ar an láithreán an trácht seo a íoslaghdú
an bhfuil aon bhealach is féidir linn a chur le gach cille arís agus arís eile, a caracters as a chéile? sampla
KTE+0001

KTE+0002
Rinne an modhnóir ar an láithreán an trácht seo a íoslaghdú
Álainn! Go raibh maith agat. N'fheadar an bhféadfadh aon duine leid a thabhairt ar conas a dhéanfainn colún nua faisnéise a ionchorprú isteach sa tábla (colún E) arb ionann é agus luach incriminteach do gach ró chóipeáilte, 1, 2, 3, 4 etc... agus ansin nuair a shroichfidh sé an chéad mhír eile atá le dúbailt X uair, tosóidh sé ag uimhriú arís ó 1 agus ag méadú faoi 1 gach uair.
Rinne an modhnóir ar an láithreán an trácht seo a íoslaghdú
Dia duit rinne mé é seo ach an bhfuil bealach ann le breithniú an bhfuil critéir iolracha ann leis na sonraí atá á ndúbailt agam
Rinne an modhnóir ar an láithreán an trácht seo a íoslaghdú
Haigh,

Tá scarbhileog á chruthú agam agus úsáid á baint as an bhfoirmle atá curtha ar fáil agam ach tá earráidí agam. le do thoil an féidir le duine éigin a chur in iúl dom cad ba cheart a bheith i mo fhoirmle?

tá mo tábla ó AY leis na cainníochtaí i K.
Rinne an modhnóir ar an láithreán an trácht seo a íoslaghdú
Dia duit, bhí mé ag iarraidh an cód seo a choigeartú ach tá deacrachtaí agam.
Tá míreanna fardail agam. Tá gach mír dhá rows.and mian leo iad a mhacasamhlú N líon ama
ag barr na scarbhileog, tá cill agam a ligeann A1 air, tá mé cé mhéad uair á mhacasamhlú? N
is cuma cad é an luach N, ba mhaith liom an mhír fhardail tosaigh atá agam (A16, A17) a dhúbailt go minic.
mar sin ba chóir go dtosódh an mhír cóipeáilte in A18 (agus dhá shraith é, an chéad mhír eile a20 etc.
Go raibh maith agat
Rinne an modhnóir ar an láithreán an trácht seo a íoslaghdú
Dia duit, oibríonn an cód go hiontach. Theastaigh uaim freisin +1 a chur leis an dáta (laethanta na seachtaine amháin) gach uair a dhéantar an tsraith a mhacasamhlú.
Rinne an modhnóir ar an láithreán an trácht seo a íoslaghdú
Go raibh míle maith agat! Shábháil sé seo an oiread sin ama dom gur chaith mé mo shraith sonraí go léir a chóipeáil agus a ghreamú.
Dhá ordóg suas!!
Rinne an modhnóir ar an láithreán an trácht seo a íoslaghdú
Píosa cód iontach !!! Go raibh maith agat!!!
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