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.
Trước khi áp dụng Kutools cho Excel, Xin vui lòng tải xuống và cài đặt nó trước tiên.
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:
Nếu bạn muốn dùng thử miễn phí (30 ngày) tiện ích này, vui lòng nhấp để tải xuống, và sau đó đi đến áp dụng hoạt động theo các bước trên.
Các bài liên quan:
Công cụ năng suất văn phòng tốt nhất
Nâng cao kỹ năng Excel của bạn với Kutools for Excel và trải nghiệm hiệu quả hơn bao giờ hết. Kutools for Excel cung cấp hơn 300 tính năng nâng cao để tăng năng suất và tiết kiệm thời gian. Bấm vào đây để có được tính năng bạn cần nhất...
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!