Làm cách nào để sao chép các hàng từ nhiều trang tính dựa trên tiêu chí vào một trang tính mới?
Giả sử, bạn có một sổ làm việc với ba trang tính có cùng định dạng như hình minh họa bên dưới. Bây giờ, bạn muốn sao chép tất cả các hàng từ các trang tính này mà cột C chứa văn bản “Đã hoàn thành” vào một trang tính mới. Làm thế nào bạn có thể giải quyết vấn đề này một cách nhanh chóng và dễ dàng mà không cần sao chép và dán từng cái một theo cách thủ công?
 |
 |
 |
Sao chép các hàng từ nhiều trang tính dựa trên tiêu chí vào một trang tính mới có mã VBA
Sao chép các hàng từ nhiều trang tính dựa trên tiêu chí vào một trang tính mới có mã VBA
Mã VBA sau có thể giúp bạn sao chép các hàng cụ thể từ tất cả các trang tính trong sổ làm việc dựa trên một điều kiện nhất định vào một trang tính mới. Vui lòng làm như sau:
1. Giữ ALT + F11 phím để mở Microsoft Visual Basic cho các ứng dụng cửa sổ.
2. Nhấp chuột Chèn > Mô-đunvà dán mã sau vào Cửa sổ mô-đun.
Mã VBA: Sao chép các hàng từ nhiều trang tính dựa trên tiêu chí vào một trang tính mới
Public Sub CopyRows_ValuesAndNumberFormats()
Dim xWs As Worksheet
Dim xCWs As Worksheet
Dim xRg As Range
Dim xStrName As String
Dim xRStr As String
Dim xRRg As Range
Dim xC As Integer
On Error Resume Next
Application.DisplayAlerts = False
xStr = "Kutools for Excel"
xRStr = "Completed"
Set xCWs = ActiveWorkbook.Worksheets.Item(xStr)
If Not xCWs Is Nothing Then
xCWs.Delete
End If
Set xCWs = ActiveWorkbook.Worksheets.Add
xCWs.Name = xStr
xC = 1
For Each xWs In ActiveWorkbook.Worksheets
If xWs.Name <> xStr Then
Set xRg = xWs.Range("C:C")
Set xRg = Intersect(xRg, xWs.UsedRange)
For Each xRRg In xRg
If xRRg.Value = xRStr Then
xRRg.EntireRow.Copy
xCWs.Cells(xC, 1).PasteSpecial xlPasteValuesAndNumberFormats
xC = xC + 1
End If
Next xRRg
End If
Next xWs
Application.DisplayAlerts = True
End Sub
Chú thích: Trong đoạn mã trên:
- Văn bản “Hoàn thành”Trong này xRStr = "Đã hoàn thành" script chỉ ra điều kiện cụ thể mà bạn muốn sao chép các hàng dựa trên;
- C: C trong Đặt xRg = xWs.Range ("C: C") script chỉ ra cột cụ thể nơi điều kiện nằm.
3. Sau đó nhấn F5 để chạy mã này và tất cả các hàng có điều kiện cụ thể đã được sao chép và dán vào một trang tính mới có tên Kutools cho Excel trong sổ làm việc hiện tại. Xem ảnh chụp màn hình:
Các bài báo về kéo hoặc sao chép dữ liệu tương đối hơn:
- Sao chép dữ liệu sang trang tính khác với bộ lọc nâng cao trong Excel
- Thông thường, chúng ta có thể nhanh chóng áp dụng tính năng Bộ lọc nâng cao để trích xuất dữ liệu từ dữ liệu thô trong cùng một trang tính. Tuy nhiên, đôi khi, khi bạn cố gắng sao chép kết quả đã lọc sang một trang tính khác, bạn sẽ nhận được thông báo cảnh báo sau. Trong trường hợp này, làm thế nào bạn có thể giải quyết công việc này trong Excel?
- Sao chép hàng sang trang tính mới dựa trên tiêu chí cột trong Excel
- Ví dụ, có một bảng mua trái cây, và bây giờ bạn cần sao chép bản ghi sang trang tính mới dựa trên trái cây đã chỉ định, làm thế nào để hoàn thành nó dễ dàng trong Excel? Ở đây tôi sẽ giới thiệu một số phương pháp để sao chép hàng vào trang tính mới dựa trên tiêu chí cột trong Excel.
- Sao chép hàng nếu cột chứa văn bản / giá trị cụ thể trong Excel
- Giả sử bạn muốn tìm ra các ô có chứa văn bản hoặc giá trị cụ thể trong một cột, sau đó sao chép toàn bộ hàng có ô được tìm thấy, bạn có thể xử lý nó như thế nào? Ở đây tôi sẽ giới thiệu một số phương pháp để tìm xem cột có chứa văn bản hoặc giá trị cụ thể hay không và sau đó sao chép toàn bộ hàng 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
- 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 và Lưu giữ dữ liệu; Nội dung phân chia ô; Kết hợp các hàng trùng lặp và Tổng / Trung bình... 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 ...
- Yêu thích và Chèn công thức nhanh chóng, Dãy, Biểu đồ và Hình ảnh; Mã hóa ô với mật khẩu; Tạo danh sách gửi thư và gửi email ...
- 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 !
- Nhóm bảng tổng hợp theo số tuần, ngày trong tuần và hơn thế nữa ... Hiển thị các ô đã mở khóa, đã khóa bởi các màu sắc khác nhau; Đánh dấu các ô có công thức / tênhữu ích. Cảm ơn !
- 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!
