Excel에서 중복 행을 다른 시트로 이동하는 방법은 무엇입니까?

특정 열에 일부 중복 값이 포함된 데이터 범위 목록이 있고, 중복 셀을 기준으로 전체 행을 다른 시트로 이동하려고 한다면, Excel에서 이 작업을 어떻게 처리할 수 있을까요?

열의 중복 셀을 기반으로 전체 행을 다른 시트로 이동

중복 행을 기반으로 전체 행을 다른 시트로 이동

열의 중복 셀을 기반으로 전체 행을 다른 시트로 이동

열에 중복 값이 있는 경우 전체 행을 다른 시트로 이동하려면 다음 VBA 코드를 사용하면 됩니다:

1. ALT + F11 키를 눌러 Microsoft Visual Basic for Applications 창을 엽니다.

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. 확인을 클릭한 후, 다른 프롬프트 상자에서 이동된 행을 넣을 다른 시트의 셀을 선택하세요. 스크린샷 참고:

5. 그리고 확인을 클릭하면, A 열에 중복 값이 있는 행이 새 시트로 이동됩니다. 스크린샷 참고:

Kutools AI로 엑셀의 마법을 풀다

• 스마트 실행: 셀 작업 수행, 데이터 분석 및 차트 생성 - 간단한 명령어로 모든 것을 처리합니다.
• 사용자 정의 수식: 작업을 간소화하기 위한 맞춤형 수식을 생성합니다.
• VBA 코딩: 손쉽게 VBA 코드를 작성하고 실행합니다.
• 수식 해석: 복잡한 수식도 쉽게 이해할 수 있습니다.
• 텍스트 번역: 스프레드시트 내 언어 장벽을 허물어 보세요.

AI 기반 도구로 엑셀 활용 능력을 강화하세요. 지금 다운로드하여 그 어느 때보다 높은 효율성을 경험해 보세요!

중복 행을 기반으로 전체 행을 다른 시트로 이동

셀 범위에서 중복 행을 이동하려면 다음 VBA 코드가 도움이 될 수 있습니다:

1. ALT + F11 키를 눌러 Microsoft Visual Basic for Applications 창을 엽니다.

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. 확인 버튼을 클릭하고, 다른 프롬프트 상자에서 이동된 중복 행을 넣을 새 시트의 셀을 선택하세요. 스크린샷 참고:

5. 그런 다음 확인 버튼을 클릭하면, 중복 행이 지정한 다른 시트로 한 번에 이동됩니다. 스크린샷 참고: