Làm cách nào để di chuyển toàn bộ hàng sang một trang tính khác dựa trên giá trị ô trong Excel?

Để chuyển toàn bộ hàng sang một trang tính khác dựa trên giá trị ô, bài viết này sẽ giúp bạn.

Di chuyển toàn bộ hàng sang trang tính khác dựa trên giá trị ô với mã VBA
Di chuyển toàn bộ hàng sang một trang tính khác dựa trên giá trị ô với Kutools cho Excel

Di chuyển toàn bộ hàng sang trang tính khác dựa trên giá trị ô với mã VBA

Như ảnh chụp màn hình bên dưới được hiển thị, bạn cần phải di chuyển toàn bộ hàng từ Sheet1 sang Sheet2 nếu một từ cụ thể “Xong” tồn tại trong cột C. Bạn có thể thử mã VBA sau.

1. nhấn Khác+ F11 các phím đồng thời để mở Microsoft Visual Basic cho các ứng dụng cửa sổ.

2. Trong cửa sổ Microsoft Visual Basic for Applications, bấm Chèn > Mô-đun. Sau đó sao chép và dán mã VBA bên dưới vào cửa sổ.

VBA code 1: Move entire row to another sheet based on cell value

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

Chú thích: Trong mã, Sheet1 là trang tính chứa hàng bạn muốn di chuyển. Và Sheet2 là trang tính đích nơi bạn sẽ định vị hàng tới. “C: C”Là cột chứa giá trị nhất định và từ“Thực hiện”Là giá trị nhất định mà bạn sẽ di chuyển hàng dựa trên. Vui lòng thay đổi chúng dựa trên nhu cầu của bạn.

3. Nhấn nút F5 để chạy mã, sau đó hàng đáp ứng các tiêu chí trong Sheet1 sẽ được chuyển đến Sheet2 ngay lập tức.

Chú thích: Đoạn mã VBA trên sẽ xóa các hàng khỏi dữ liệu gốc sau khi chuyển đến một trang tính được chỉ định. Nếu bạn chỉ muốn sao chép các hàng dựa trên giá trị ô thay vì xóa chúng. Vui lòng áp dụng mã VBA 2 bên dưới.

VBA code 2: Copy entire row to another sheet based on cell value

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

Di chuyển toàn bộ hàng sang một trang tính khác dựa trên giá trị ô với Kutools cho Excel

Nếu bạn là người mới trong mã VBA. Ở đây tôi giới thiệu Chọn các ô cụ thể tiện ích của Kutools cho Excel. Với tiện ích này, bạn có thể dễ dàng chọn tất cả các hàng dựa trên một giá trị ô nhất định hoặc các giá trị ô khác nhau trong trang tính và sao chép các hàng đã chọn vào trang tính đích khi bạn cần. Hãy làm như sau.

1. Chọn danh sách cột chứa giá trị ô mà bạn sẽ di chuyển các hàng dựa trên, sau đó nhấp vào Kutools > Chọn > Chọn các ô cụ thể. Xem ảnh chụp màn hình:

2. Trong phần mở đầu Chọn các ô cụ thể hộp thoại, chọn Toàn bộ hàng trong Loại lựa chọn phần, chọn equals trong Loại cụ thể danh sách thả xuống, nhập giá trị ô vào hộp văn bản và sau đó nhấp vào OK .

Một Chọn các ô cụ thể hộp thoại bật lên để hiển thị cho bạn số hàng đã chọn và trong khi đó, tất cả các hàng chứa giá trị được chỉ định trong cột đã chọn đã được chọn. Xem ảnh chụp màn hình:

3. Nhấn nút Ctrl + C phím để sao chép các hàng đã chọn, rồi dán chúng vào trang tính đích mà bạn cần.

Chú thích: Nếu bạn muốn di chuyển các hàng sang một trang tính khác dựa trên hai giá trị ô khác nhau. Ví dụ: di chuyển các hàng dựa trên các giá trị ô "Xong" hoặc "Đang xử lý", bạn có thể bật Or điều kiện trong Chọn các ô cụ thể hộp thoại như hình minh họa bên dưới:

Các bài liên quan:

• Làm cách nào để di chuyển toàn bộ hàng xuống cuối trang tính hiện hoạt dựa trên giá trị ô trong Excel?

---

Các công cụ năng suất văn phòng tốt nhất

Kutools cho Excel giải quyết hầu hết các vấn đề của bạn và tăng 80% năng suất của bạn

• Tái sử dụng: Chèn nhanh công thức phức tạp, biểu đồ và bất cứ thứ gì bạn đã sử dụng trước đây; Mã hóa ô với mật khẩu; Tạo danh sách gửi thư và gửi email ...
• Thanh siêu công thức (dễ dàng chỉnh sửa nhiều dòng văn bản và công thức); Bố cục đọc (dễ dàng đọc và chỉnh sửa số lượng ô lớn); Dán vào Dải ô đã Lọchữu ích. Cảm ơn !
• Hợp nhất các ô / hàng / cột mà không làm mất dữ liệu; Nội dung phân chia ô; Kết hợp các hàng / cột trùng lặp... Ngăn chặn các ô trùng lặp; So sánh các dãyhữu ích. Cảm ơn !
• Chọn trùng lặp hoặc duy nhất Hàng; Chọn hàng trống (tất cả các ô đều trống); Tìm siêu và Tìm mờ trong Nhiều Sổ làm việc; Chọn ngẫu nhiên ...
• Bản sao chính xác Nhiều ô mà không thay đổi tham chiếu công thức; Tự động tạo tài liệu tham khảo sang Nhiều Trang tính; Chèn Bullets, Hộp kiểm và hơn thế nữa ...
• Trích xuất văn bản, Thêm Văn bản, Xóa theo Vị trí, Xóa không gian; Tạo và In Tổng số phân trang; Chuyển đổi giữa nội dung ô và nhận xéthữu ích. Cảm ơn !
• Siêu lọc (lưu và áp dụng các lược đồ lọc cho các trang tính khác); Sắp xếp nâng cao theo tháng / tuần / ngày, tần suất và hơn thế nữa; Bộ lọc đặc biệt bằng cách in đậm, in nghiêng ...
• Kết hợp Workbook và WorkSheets; Hợp nhất các bảng dựa trên các cột chính; Chia dữ liệu thành nhiều trang tính; Chuyển đổi hàng loạt xls, xlsx và PDFhữu ích. Cảm ơn !
• Hơn 300 tính năng mạnh mẽ. Hỗ trợ Office / Excel 2007-2021 và 365. Hỗ trợ tất cả các ngôn ngữ. Dễ dàng triển khai trong doanh nghiệp hoặc tổ chức của bạn. Đầy đủ tính năng Dùng thử miễn phí 30 ngày. Bảo đảm hoàn lại tiền trong 60 ngày.

Đọc thêm ... Tải xuống miễn phí... Mua, tựa vào, bám vào... 

---

Tab Office mang lại giao diện Tab cho Office và giúp công việc của bạn trở nên dễ dàng hơn nhiều

• Cho phép chỉnh sửa và đọc theo thẻ trong Word, Excel, PowerPoint, Publisher, Access, Visio và Project.
• Mở và tạo nhiều tài liệu trong các tab mới của cùng một cửa sổ, thay vì trong các cửa sổ mới.
• Tăng 50% năng suất của bạn và giảm hàng trăm cú nhấp chuột cho bạn mỗi ngày!

Đọc thêm ... Tải xuống miễn phí... Mua, tựa vào, bám vào...