Làm cách nào để sao chép dữ liệu sang một 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 Bộ lọc nâng cao tính năng 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, bạn có thể giải quyết công việc này như thế nào trong Excel?
Sao chép dữ liệu sang một trang tính khác với Bộ lọc nâng cao bằng cách sử dụng mã VBA
Sao chép dữ liệu sang một trang tính khác với Bộ lọc nâng cao bằng cách sử dụng tính năng Bộ lọc nâng cao
Đây là một giải pháp đơn giản để bạn giải quyết công việc này, hãy làm như sau:
1. Kích hoạt trang tính mà bạn muốn sao chép kết quả đã lọc bằng cách sử dụng chức năng Bộ lọc nâng cao.
2. Sau đó nhấn vào Ngày > Nâng cao, xem ảnh chụp màn hình:
3. Trong Bộ lọc nâng cao hộp thoại, chọn Sao chép sang vị trí khác từ Hoạt động và sau đó nhấp vào để chọn dải dữ liệu mà bạn muốn lọc trong một trang tính khác bên cạnh Danh sách phạm vi, tiếp tục nhấp vào nút bên cạnh Phạm vi tiêu chí để chọn các tiêu chí từ một trang tính khác, hãy xem ảnh chụp màn hình:
4. Sau đó nhấn vào nút bên cạnh Sao chép đến để chọn một ô mà bạn muốn xuất kết quả đã lọc từ trang tính hiện hoạt, sau đó bấm OK , kết quả được lọc đã được trích xuất sang một trang tính khác dựa trên bảng dữ liệu ban đầu của bạn.
Sao chép dữ liệu sang một trang tính khác với Bộ lọc nâng cao bằng cách sử dụng mã VBA
Nếu bạn thành thạo với mã VBA, bạn có thể hoàn thành công việc này với mã VBA sau.
1. Kích hoạt trang tính mà bạn muốn lọc và sao chép kết quả sang trang tính khác.
2. Giữ ALT + F11 các phím trong Excel và nó sẽ mở Microsoft Visual Basic cho các ứng dụng cửa sổ.
3. Nhấp chuột Chèn > Mô-đunvà dán mã sau vào Mô-đun Cửa sổ.
Mã VBA: Sao chép dữ liệu sang một trang tính khác với Bộ lọc Nâng cao:
Sub Advancedfiltertoanothersheet()
'Updateby Extendoffice
Dim xStr As String
Dim xAddress As String
Dim xRg As Range
Dim xCRg As Range
Dim xSRg As Range
On Error Resume Next
xAddress = ActiveWindow.RangeSelection.Address
Set xRg = Application.InputBox("Please select the filter range:", "Kutools for Excel", xAddress, , , , , 8)
If xRg Is Nothing Then Exit Sub
Set xCRg = Application.InputBox("Please select the criteria range:", "Kutools for Excel", "", , , , , 8)
If xCRg Is Nothing Then Exit Sub
Set xSRg = Application.InputBox("Please select the output range:", "Kutools for Excel", "", , , , , 8)
If xSRg Is Nothing Then Exit Sub
xRg.AdvancedFilter xlFilterCopy, xCRg, xSRg, False
xSRg.Worksheet.Activate
xSRg.Worksheet.Columns.AutoFit
End Sub
4. Và sau đó nhấn F5 để chạy mã này và hộp nhắc xuất hiện cho phép bạn chọn phạm vi dữ liệu mà bạn muốn lọc, xem ảnh chụp màn hình:
5. Sau đó nhấn vào OKvà một hộp thoại khác xuất hiện để nhắc bạn chọn phạm vi tiêu chí bạn muốn lọc dựa trên, xem ảnh chụp màn hình:
6. Tiếp tục nhấp OK, trong hộp thoại hiện ra, vui lòng chọn một ô từ một trang tính mới khác mà bạn muốn xuất kết quả bộ lọc, xem ảnh chụp màn hình:
7. Cuối cùng, hãy nhấp vào OK , dữ liệu được lọc đã được xuất thành một trang tính được chỉ định khác khi bạn cần.
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!