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 arís agus arís eile bunaithe ar luachanna cille le cód VBA
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.
Cóipeáil agus cuir isteach sraitheanna bunaithe ar líon sonraithe uaireanta le huirlis láimhe - Kutools le haghaidh Excel
Mura bhfuil tú eolach ar an gcód VBA agus mura bhfuil tú in ann na paraiméadair sa chód a athrú i gceart leat féin. Sa chás seo, beidh an Kutools le haghaidh Excel's Sraitheanna / Colúin Dhúblacha Bunaithe ar Luach Cille is féidir leis an ngné seo cabhrú leat sraitheanna éagsúla a chóipeáil agus a chur isteach bunaithe ar na luachanna cille gan ach trí chliceáil.
- cliceáil Kutools > Ionsáigh > Rónna/Colúin Dhúblacha Bunaithe ar Luach Cille chun an ghné seo a chumasú;
- Ansin, roghnaigh Cóipeáil agus cuir isteach sraitheanna rogha, agus sonraigh cealla an Ionsáigh Raon agus Déan arís ar leithligh sa bhosca dialóige.
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á!