Làm thế nào để sắp xếp dữ liệu trên nhiều trang tính cùng một lúc?
Trong Excel, chúng ta có thể sắp xếp dữ liệu trong một trang tính dựa trên một cột cụ thể một cách nhanh chóng và dễ dàng, nhưng, bạn đã bao giờ cố gắng sắp xếp dữ liệu trên nhiều trang tính chưa? Để sắp xếp từng cái một sẽ tốn nhiều thời gian, bài viết này, tôi sẽ giới thiệu một cách dễ dàng để giải quyết nó.
Sắp xếp dữ liệu trên nhiều trang tính cùng một lúc với mã VBA
Sắp xếp dữ liệu trên nhiều trang tính cùng một lúc với mã VBA
Để sắp xếp dữ liệu dựa trên một cột trong tất cả các trang tính của sổ làm việc, mã VBA sau có thể giúp bạn.
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 Mô-đun Cửa sổ.
Mã VBA: Sắp xếp dữ liệu trên nhiều trang tính cùng một lúc:
Sub SortAllSheets()
'Updateby Extendoffice
Dim WS As Worksheet
ActiveSheet.Range("a1:f1").Select
Selection.Copy
On Error Resume Next
Application.ScreenUpdating = False
For Each WS In Worksheets
WS.Columns("A:F").Sort Key1:=WS.Columns("E"), Order1:=xlDescending
Next WS
ActiveSheet.Range("A1").PasteSpecial Paste:=xlPasteAll
Application.ScreenUpdating = True
End Sub
3. Sau đó nhấn F5 để chạy mã này, tất cả các trang tính có cùng định dạng đã được sắp xếp dựa trên cột E của mỗi trang tính theo thứ tự giảm dần cùng một lúc.
Chú thích: Trong đoạn mã trên, A: F là phạm vi dữ liệu mà bạn muốn sắp xếp, E là ký tự cột mà bạn muốn sắp xếp dựa trê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!
![Ảnh chụp màn hình của Excel (với Office Tab được cài đặt)](https://cdn.extendoffice.com/images/stories/kte-module/officetab-bottom-02.gif)
![Z](https://cdn.extendoffice.com/media/com_easydiscuss/images/default_avatar.png)
![S](https://cdn.extendoffice.com/media/com_easydiscuss/images/default_avatar.png)
![shailesh](https://cdn.extendoffice.com/media/com_easydiscuss/images/default_avatar.png)
![lucy](https://cdn.extendoffice.com/media/com_easydiscuss/images/default_avatar.png)
![skyyang](https://cdn.extendoffice.com/media/com_easydiscuss/images/default_avatar.png)
![David Cacciatore](https://cdn.extendoffice.com/media/com_easydiscuss/images/default_avatar.png)
![Gajendra Singh Narwa](https://cdn.extendoffice.com/media/com_easydiscuss/images/default_avatar.png)
![JULIE BERNARDI](https://cdn.extendoffice.com/media/com_easydiscuss/images/default_avatar.png)
![fabrev](https://cdn.extendoffice.com/media/com_easydiscuss/images/default_avatar.png)
![Aun](https://cdn.extendoffice.com/media/com_easydiscuss/images/default_avatar.png)
![Jon Cole](https://cdn.extendoffice.com/media/com_easydiscuss/images/default_avatar.png)