Як перемістити повторювані рядки на інший аркуш у Excel?
Якщо у вас є список діапазону даних, який містить певні повторювані значення в певному стовпці, зараз ви хочете перемістити цілі рядки на інший аркуш на основі дублікатів комірок. Як ви могли вирішити це завдання в Excel?
Перемістіть цілі рядки на інший аркуш на основі повторюваних комірок у стовпці
Перемістіть цілі рядки на інший аркуш на основі повторюваних рядків
Перемістіть цілі рядки на інший аркуш на основі повторюваних комірок у стовпці
Якщо в стовпці є повторювані значення, перемістіть цілі рядки на інший аркуш, наступний код VBA може зробити вам послугу:
1. Утримуйте клавішу ALT + F11 ключі, щоб відкрити Microsoft Visual Basic для додатків вікна.
2. Клацання Insert > Модуліта вставте наступний код у вікно Модуль.
Код 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. Клацання Insert > Модуліта вставте наступний код у вікно Модуль.
Код 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% та зменшує сотні клацань миші для вас щодня!