Kako premakniti podvojene vrstice na drug list v Excelu?
Če imate seznam obsega podatkov, ki vsebuje nekaj podvojenih vrednosti v določenem stolpcu, zdaj želite premakniti celotne vrstice na drug list na podlagi podvojenih celic. Kako ste se lahko spoprijeli s to nalogo v Excelu?
Premaknite celotne vrstice na drug list na podlagi podvojenih celic v stolpcu
Premaknite celotne vrstice na drug list na podlagi podvojenih vrstic
Premaknite celotne vrstice na drug list na podlagi podvojenih celic v stolpcu
Če so v stolpcu podvojene vrednosti, premaknite celotne vrstice na drug list, naslednja koda VBA vam bo lahko naredila uslugo:
1. Držite tipko ALT + F11 tipke za odpiranje Microsoft Visual Basic za aplikacije okno.
2. Kliknite Vstavi > Moduliin prilepite naslednjo kodo v okno modula.
Koda VBA: Premaknite celotne vrstice na drug list na podlagi podvojenih celic v stolpcu:
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. Nato pritisnite F5 tipko za zagon te kode in v pojavnem pogovornem oknu izberite stolpec, ki vsebuje podvojene celice, ki jih želite premakniti, glejte posnetek zaslona:
4. Nato kliknite OK, v drugem oknu za poziv izberite celico na drugem listu, kamor želite postaviti premaknjene vrstice, glejte posnetek zaslona:
5. In nato kliknite OK, vrstice, ki imajo podvojene vrednosti v stolpcu A, so bile premaknjene v nov list, glejte posnetek zaslona:
Premaknite celotne vrstice na drug list na podlagi podvojenih vrstic
Če želite premakniti podvojene vrstice iz nabora celic, vam lahko pomaga naslednja koda VBA:
1. Držite tipko ALT + F11 tipke za odpiranje Microsoft Visual Basic za aplikacije okno.
2. Kliknite Vstavi > Moduliin prilepite naslednjo kodo v okno modula.
Koda VBA: Premaknite celotne vrstice na drug list na podlagi podvojenih vrstic:
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. Nato pritisnite F5 , da zaženete to kodo, v izpuščenem pogovornem oknu izberite obseg podatkov, v katerega želite premakniti podvojene vrstice, glejte posnetek zaslona:
4. Kliknite OK in nato v drugem pozivnem polju izberite celico na novem listu, kamor želite postaviti premaknjene podvojene vrstice, glejte sliko zaslona:
5. Nato kliknite OK gumb, zdaj pa so bile podvojene vrstice premaknjene na drug list, ki ste ga določili naenkrat, glejte posnetek zaslona:
Najboljša pisarniška orodja za produktivnost
Napolnite svoje Excelove spretnosti s Kutools za Excel in izkusite učinkovitost kot še nikoli prej. Kutools za Excel ponuja več kot 300 naprednih funkcij za povečanje produktivnosti in prihranek časa. Kliknite tukaj, če želite pridobiti funkcijo, ki jo najbolj potrebujete...
Kartica Office prinaša vmesnik z zavihki v Office in poenostavi vaše delo
- Omogočite urejanje in branje z zavihki v Wordu, Excelu, PowerPointu, Publisher, Access, Visio in Project.
- Odprite in ustvarite več dokumentov v novih zavihkih istega okna in ne v novih oknih.
- Poveča vašo produktivnost za 50%in vsak dan zmanjša na stotine klikov miške za vas!
