Excel에서 셀 값에 따라 전체 행을 다른 시트로 이동하는 방법은 무엇입니까?

셀 값에 따라 전체 행을 다른 시트로 이동하려는 경우, 이 문서가 도움이 될 것입니다.

VBA 코드를 사용하여 셀 값에 따라 전체 행을 다른 시트로 이동하기
Kutools for Excel을 사용하여 셀 값에 따라 전체 행을 다른 시트로 이동하기

VBA 코드를 사용하여 셀 값에 따라 전체 행을 다른 시트로 이동하기

아래 스크린샷과 같이, 특정 단어 “Done”이 C열에 있는 경우 Sheet1의 전체 행을 Sheet2로 이동해야 합니다. 다음 VBA 코드를 시도해 보세요.

1. Alt + F11 키를 동시에 눌러 Microsoft Visual Basic for Applications 창을 엽니다.

2. Microsoft Visual Basic for Applications 창에서 삽입 > 모듈을 클릭합니다. 그런 다음 아래 VBA 코드를 복사하여 창에 붙여넣습니다.

VBA 코드 1: 셀 값에 따라 전체 행을 다른 시트로 이동하기

Sub Cheezy()
'Updated by Kutools for Excel 2017/8/28
    Dim xRg As Range
    Dim xCell As Range
    Dim I As Long
    Dim J As Long
    Dim K As Long
    I = Worksheets("Sheet1").UsedRange.Rows.Count
    J = Worksheets("Sheet2").UsedRange.Rows.Count
    If J = 1 Then
       If Application.WorksheetFunction.CountA(Worksheets("Sheet2").UsedRange) = 0 Then J = 0
    End If
    Set xRg = Worksheets("Sheet1").Range("C1:C" & I)
    On Error Resume Next
    Application.ScreenUpdating = False
    For K = 1 To xRg.Count
        If CStr(xRg(K).Value) = "Done" Then
            xRg(K).EntireRow.Copy Destination:=Worksheets("Sheet2").Range("A" & J + 1)
            xRg(K).EntireRow.Delete
            If CStr(xRg(K).Value) = "Done" Then
                K = K - 1
            End If
            J = J + 1
        End If
    Next
    Application.ScreenUpdating = True
End Sub

참고: 코드에서 Sheet1은 이동하려는 행이 포함된 워크시트입니다. 그리고 Sheet2는 해당 행을 위치시킬 대상 워크시트입니다. “C:C”는 특정 값을 포함하는 열이며, 단어 “Done”은 행을 이동할 기준이 되는 특정 값입니다. 필요에 따라 변경하세요.

3. 코드를 실행하기 위해 F5 키를 누르면, Sheet1에서 조건을 충족하는 행이 즉시 Sheet2로 이동됩니다.

참고: 위의 VBA 코드는 지정된 워크시트로 이동한 후 원본 데이터에서 행을 삭제합니다. 만약 셀 값에 따라 행을 삭제하지 않고 복사하고 싶다면, 아래 VBA 코드 2를 적용하세요.

VBA 코드 2: 셀 값에 따라 전체 행을 다른 시트로 복사하기

Sub MoveRowBasedOnCellValue()
'Updated by Extendoffice 2017/11/10
    Dim xRg As Range
    Dim xCell As Range
    Dim I As Long
    Dim J As Long
    Dim K As Long
    I = Worksheets("Sheet1").UsedRange.Rows.Count
    J = Worksheets("Sheet2").UsedRange.Rows.Count
    If J = 1 Then
    If Application.WorksheetFunction.CountA(Worksheets("Sheet2").UsedRange) = 0 Then J = 0
    End If
    Set xRg = Worksheets("Sheet1").Range("C1:C" & I)
    On Error Resume Next
    Application.ScreenUpdating = False
    For K = 1 To xRg.Count
        If CStr(xRg(K).Value) = "Done" Then
            xRg(K).EntireRow.Copy Destination:=Worksheets("Sheet2").Range("A" & J + 1)
            J = J + 1
        End If
    Next
    Application.ScreenUpdating = True
End Sub

Kutools for Excel을 사용하여 셀 값에 따라 전체 행을 다른 시트로 이동하기

VBA 코드에 익숙하지 않은 경우, 여기서 Kutools for Excel의 특정 셀 선택 기능을 소개합니다. 이 기능을 사용하면 특정 셀 값 또는 다양한 셀 값에 따라 모든 행을 쉽게 선택하고, 필요한 경우 선택한 행을 대상 워크시트로 복사할 수 있습니다. 다음과 같이 진행하세요.

1. 행을 이동할 셀 값이 포함된 열 목록을 선택한 다음, Kutools > 선택 > 특정 셀 선택을 클릭합니다. 스크린샷 보기:

2. 열리는 특정 셀 선택 대화 상자에서 선택 유형 섹션에서 전체 행을 선택하고, 특정 유형 드롭다운 목록에서 동일을 선택하며, 텍스트 상자에 셀 값을 입력한 다음 확인 버튼을 클릭합니다.

또 다른 특정 셀 선택 대화 상자가 나타나 선택된 행의 개수를 알려주며, 동시에 선택된 열에서 지정된 값을 포함하는 모든 행이 선택됩니다. 스크린샷 보기:

3. 선택된 행을 복사하기 위해 Ctrl + C 키를 누른 다음, 필요한 대상 워크시트에 붙여넣습니다.

참고: 두 가지 다른 셀 값에 따라 행을 다른 워크시트로 이동하려는 경우, 예를 들어 “Done” 또는 “Processing”이라는 셀 값에 따라 행을 이동하려면, 아래 스크린샷과 같이 특정 셀 선택 대화 상자에서 Or 조건을 활성화할 수 있습니다.

관련 기사:

• Excel에서 셀 값에 따라 전체 행을 현재 시트 하단으로 이동하는 방법은 무엇입니까?