Excel의 셀 값을 기반으로 전체 행을 활성 시트의 맨 아래로 이동하는 방법은 무엇입니까?

Excel의 셀 값을 기준으로 전체 행을 활성 시트의 맨 아래로 이동하려면이 기사의 VBA 코드를 사용해보십시오.

VBA 코드를 사용하여 셀 값을 기준으로 전체 행을 활성 시트의 맨 아래로 이동

VBA 코드를 사용하여 셀 값을 기준으로 전체 행을 활성 시트의 맨 아래로 이동

예를 들어, 아래 스크린 샷과 같이 C 열의 셀에 특정 값 "Done"이 포함되어 있으면 전체 행을 현재 시트의 맨 아래로 이동합니다. 다음과 같이하십시오.

1. 프레스 다른+ F11 동시에 열려면 키 응용 프로그램 용 Microsoft Visual Basic 창.

2. 에서 응용 프로그램 용 Microsoft Visual Basic 창을 클릭합니다 끼워 넣다 > 모듈. 그런 다음 아래 VBA 코드를 복사하여 창에 붙여 넣으십시오.

VBA 코드 : 셀 값을 기준으로 전체 행을 활성 시트의 맨 아래로 이동

Sub MoveToEnd()
    Dim xRg As Range
    Dim xTxt As String
    Dim xCell As Range
    Dim xEndRow As Long
    Dim I As Long
    On Error Resume Next
    If ActiveWindow.RangeSelection.Count > 1 Then
      xTxt = ActiveWindow.RangeSelection.AddressLocal
    Else
      xTxt = ActiveSheet.UsedRange.AddressLocal
    End If
lOne:
    Set xRg = Application.InputBox("Select range:", "Kutools for Excel", xTxt, , , , , 8)
    If xRg Is Nothing Then Exit Sub
    If xRg.Columns.Count > 1 Or xRg.Areas.Count > 1 Then
        MsgBox " Multiple ranges or columns have been selected ", vbInformation, "Kutools for Excel"
        GoTo lOne
    End If
    xEndRow = xRg.Rows.Count + xRg.Row
    Application.ScreenUpdating = False
    For I = xRg.Rows.Count To 1 Step -1
        If xRg.Cells(I) = "Done" Then
           xRg.Cells(I).EntireRow.Cut
           Rows(xEndRow).Insert Shift:=xlDown
        End If
    Next
    Application.ScreenUpdating = True
End Sub

주의 사항: VBA 코드에서 "선택한다”는 전체 행을 이동할 기준이되는 셀 값입니다. 필요에 따라 변경할 수 있습니다.

3. 누르세요 F5 키를 눌러 코드를 실행 한 다음 팝업에서 Excel 용 Kutools 대화 상자에서 특정 값이있는 열 범위를 선택한 다음 OK 버튼을 클릭합니다.

를 클릭 한 후 OK 버튼을 누르면 지정된 열에 "Done"값이 포함 된 전체 행이 자동으로 데이터 범위의 맨 아래로 이동합니다.

관련 기사:

• Excel의 셀 값을 기반으로 전체 행을 다른 시트로 이동하는 방법은 무엇입니까?