Conas sraitheanna dúblacha a bhogadh go bileog eile in Excel?
Má tá liosta de raon sonraí agat ina bhfuil roinnt luachanna dúblacha i gcolún ar leith, anois, ba mhaith leat na sraitheanna iomlána a bhogadh go bileog eile bunaithe ar na cealla dúblacha. Conas a d’fhéadfá déileáil leis an tasc seo in Excel?
Bog sraitheanna iomlána go bileog eile bunaithe ar chealla dúblacha i gcolún
Bog sraitheanna iomlána go bileog eile bunaithe ar shraitheanna dúblacha
Bog sraitheanna iomlána go bileog eile bunaithe ar chealla dúblacha i gcolún
Má tá luachanna dúblacha i gcolún, ansin bog na sraitheanna iomlána go bileog eile, is féidir leis an gcód VBA seo a leanas fabhar a dhéanamh duit:
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 i bhfuinneog an Mhodúil.
Cód VBA: Bog sraitheanna iomlána go bileog eile bunaithe ar chealla dúblacha i gcolún:
Sub CutDuplicates()
'Updateby Extendoffice
Dim xRgS As Range
Dim xRgD As Range
Dim I As Long, J As Long
On Error Resume Next
Set xRgS = Application.InputBox("Please select the column:", "KuTools For Excel", Selection.Address, , , , , 8)
If xRgS Is Nothing Then Exit Sub
Set xRgD = Application.InputBox("Please select a desitination cell:", "KuTools For Excel", , , , , , 8)
If xRgD Is Nothing Then Exit Sub
xRows = xRgS.Rows.Count
J = 0
For I = xRows To 1 Step -1
If Application.WorksheetFunction.CountIf(xRgS, xRgS(I)) > 1 Then
xRgS(I).EntireRow.Copy xRgD.Offset(J, 0)
xRgS(I).EntireRow.Delete
J = J + 1
End If
Next
End Sub
3. Ansin brúigh F5 eochair chun an cód seo a rith, agus sa bhosca dialóige popped out, roghnaigh an colún ina bhfuil na cealla dúblacha ar mhaith leat bogadh bunaithe orthu, féach an scáileán:
4. Ansin cliceáil OK, i mbosca pras eile, roghnaigh cill i mbileog eile le do thoil inar mian leat na sraitheanna bogtha a chur, féach an scáileán:
5. Agus ansin cliceáil OK, aistríodh na sraitheanna a bhfuil luachanna dúblacha acu i gcolún A isteach i mbileog nua, féach an scáileán:
Bog sraitheanna iomlána go bileog eile bunaithe ar shraitheanna dúblacha
Más mian leat na sraitheanna dúblacha a bhogadh ó raon cealla, is féidir leis an gcód VBA seo a leanas cabhrú leat:
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 i bhfuinneog an Mhodúil.
Cód VBA: Bog sraitheanna iomlána go bileog eile bunaithe ar shraitheanna dúblacha:
Sub CutDuplicates()
'Updateby Extendoffice
Dim xRgD As Range, xRgS As Range
Dim I As Long, J As Long, K As Long, KK As Long
On Error Resume Next
Set xRgS = Application.InputBox("Please select the data range:", "KuTools For Excel", Selection.Address, , , , , 8)
If xRgS Is Nothing Then Exit Sub
Set xRgD = Application.InputBox("Please select a desitination cell:", "KuTools For Excel", , , , , , 8)
If xRgD Is Nothing Then Exit Sub
KK = 0
For I = xRgS.Rows.Count To 1 Step -1
For J = 1 To I - 1
For K = 1 To xRgS.Columns.Count
Debug.Print xRgS.Rows(I).Cells(, K).Value
Debug.Print xRgS.Rows(J).Cells(, K).Value
If xRgS.Rows(I).Cells(, K).Value <> xRgS.Rows(J).Cells(, K).Value Then Exit For
Next
If K = xRgS.Columns.Count + 1 Then
xRgS.Rows(I).EntireRow.Copy xRgD.Offset(KK, 0).EntireRow
xRgS.Rows(I).EntireRow.Delete
KK = KK + 1
End If
Next
Next
End Sub
3. Ansin brúigh F5 eochair chun an cód seo a rith, sa bhosca dialóige popped out, roghnaigh an roghnaigh an raon sonraí a theastaíonn uait na sraitheanna dúblacha a bhogadh, féach an scáileán:
4. Cliceáil OK cnaipe, agus ansin i mbosca pras eile, roghnaigh cill i mbileog nua inar mian leat na sraitheanna supplicate bogtha a chur, féach ar an scáileán:
5. Ansin cliceáil OK cnaipe, agus anois, tá na sraitheanna dúblacha bogtha isteach i mbileog eile a shonraigh tú ag an am céanna, féach an scáileán:
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á!