Как да преместите дублиращи се редове в друг лист в Excel?
Ако имате списък с диапазон от данни, който съдържа някои дублирани стойности в конкретна колона, сега искате да преместите целите редове в друг лист въз основа на дублиращите се клетки. Как бихте могли да се справите с тази задача в Excel?
Преместете цели редове в друг лист въз основа на дублирани клетки в колона
Преместете цели редове в друг лист въз основа на дублирани редове
Преместете цели редове в друг лист въз основа на дублирани клетки в колона
Ако има дублиращи се стойности в колона, след това преместете целите редове в друг лист, следният VBA код може да ви направи услуга:
1. Задръжте натиснат ALT + F11 за да отворите Microsoft Visual Basic за приложения прозорец.
2. Щракнете Поставете > Модулии поставете следния код в прозореца на модула.
VBA код: Преместете цели редове в друг лист въз основа на дублирани клетки в колона:
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. След това натиснете F5 ключ, за да стартирате този код, и в изскачащия диалогов прозорец изберете колоната, която съдържа дублиращите се клетки, въз основа на които искате да преместите, вижте екранната снимка:
4, След това кликнете OK, в друго поле за подкана, моля, изберете клетка в друг лист, където искате да поставите преместените редове, вижте екранната снимка:
5, И после щракнете върху OK, редовете, които имат дублиращи се стойности в колона A, са преместени в нов лист, вижте екранната снимка:
Преместете цели редове в друг лист въз основа на дублирани редове
Ако искате да преместите дублиращите се редове от диапазон от клетки, следният VBA код може да ви помогне:
1. Задръжте натиснат ALT + F11 за да отворите Microsoft Visual Basic за приложения прозорец.
2. Щракнете Поставете > Модулии поставете следния код в прозореца на модула.
VBA код: Преместете цели редове в друг лист въз основа на дублиращи се редове:
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. След това натиснете F5 за да изпълните този код, в изскачащия диалогов прозорец изберете изберете диапазона от данни, който искате да преместите дублиращите се редове, вижте екранната снимка:
4. Щракнете OK и след това в друго поле за подкана изберете клетка в нов лист, където искате да поставите преместените редове за молба, вижте екранната снимка:
5, След това кликнете OK и сега дублиращите се редове са преместени наведнъж в друг лист, който сте посочили, вижте екранната снимка:
Най-добрите инструменти за продуктивност в офиса
Усъвършенствайте уменията си за Excel с Kutools за Excel и изпитайте ефективност, както никога досега. Kutools за Excel предлага над 300 разширени функции за повишаване на производителността и спестяване на време. Щракнете тук, за да получите функцията, от която се нуждаете най-много...
Раздел Office Внася интерфейс с раздели в Office и прави работата ви много по-лесна
- Разрешете редактиране и четене с раздели в Word, Excel, PowerPoint, Publisher, Access, Visio и Project.
- Отваряйте и създавайте множество документи в нови раздели на един и същ прозорец, а не в нови прозорци.
- Увеличава вашата производителност с 50% и намалява стотици кликвания на мишката за вас всеки ден!
