Khi làm việc với Microsoft Excel lớn, đôi khi chúng ta cần sắp xếp dữ liệu của mình từ nhỏ nhất đến lớn nhất. Chúng tôi có thể dễ dàng làm điều đó bằng cách sử dụng Macro VBA . Áp dụng mã VBA để sắp xếp nhỏ nhất đến lớn nhất là một nhiệm vụ dễ dàng. Hôm nay, trong bài viết này, chúng ta sẽ tìm hiểu ba các cách nhanh chóng và phù hợp như thế nào để sắp xếp bộ lọc tự động VBA từ nhỏ nhất đến lớn nhất trong Excel hiệu quả với các hình ảnh minh họa thích hợp.
Sắp xếp Bộ lọc tự động VBA từ Nhỏ nhất đến Lớn nhất trong Excel (Xem nhanh)
Sub Autofilter_Sort_Smallest_to_Largest()
With ActiveSheet.Sort
.SortFields.Add Key:=Range("D4"), Order:=xlAscending
.SetRange Range("B4:E16")
.Header = xlYes
.Apply
End With
End Sub
3 cách phù hợp để sắp xếp từ nhỏ nhất đến lớn nhất với bộ lọc tự động VBA trong Excel
Giả sử, chúng tôi có một tập dữ liệu chứa thông tin về một số đại diện bán hàng của Armani tập đoàn. Tên của đại diện bán hàng , loại sản phẩm, và đã đặt hàng và sản phẩm được giao bởi các đại diện bán hàng được đưa ra trong các cột B, C, D, và E tương ứng. Từ tập dữ liệu của chúng tôi, chúng tôi sẽ sắp xếp dữ liệu của chúng tôi từ nhỏ nhất đến lớn nhất sử dụng VBA Mã số. Dưới đây là tổng quan về tập dữ liệu cho nhiệm vụ của ngày hôm nay.
1. Sắp xếp Nhỏ nhất đến Lớn nhất Sử dụng Thứ tự Tăng dần trong Bộ lọc tự động VBA
Bây giờ tôi sẽ chỉ cách sắp xếp nhỏ nhất đến lớn nhất theo thứ tự tăng dần bằng cách sử dụng VBA đơn giản mã số. Nó rất hữu ích cho một số thời điểm cụ thể. Từ tập dữ liệu của chúng tôi, chúng tôi sẽ sắp xếp dữ liệu của mình theo Có thứ tự trong số sản phẩm theo thứ tự tăng dần. Hãy làm theo hướng dẫn bên dưới để sắp xếp dữ liệu từ nhỏ nhất đến lớn nhất!
Bước 1:
- Trước hết, hãy mở Mô-đun, để thực hiện điều đó, trước tiên, từ Nhà phát triển của bạn tab, truy cập,
Nhà phát triển → Visual Basic
- Sau khi nhấp vào Visual Basic ribbon, một cửa sổ có tên Microsoft Visual Basic for Applications - Sắp xếp Dữ liệu Từ Nhỏ nhất đến Lớn nhất sẽ ngay lập tức xuất hiện trước mặt bạn. Từ cửa sổ đó, chúng tôi sẽ chèn một mô-đun để áp dụng mã VBA của chúng tôi . Để làm điều đó, hãy truy cập,
Chèn → Mô-đun
Bước 2:
- Do đó, Sắp xếp dữ liệu từ nhỏ nhất đến lớn nhất mô-đun bật lên. Trong phần Sắp xếp dữ liệu từ nhỏ nhất đến lớn nhất , hãy viết ra VBA bên dưới
Sub Autofilter_Sort_Smallest_to_Largest()
With ActiveSheet.Sort
.SortFields.Add Key:=Range("D4"), Order:=xlAscending
.SetRange Range("B4:E16")
.Header = xlYes
.Apply
End With
End Sub
- Do đó, hãy chạy VBA Để làm điều đó, hãy truy cập,
Chạy → Chạy Sub / UserForm
- Sau khi chạy Mã VBA , bạn sẽ có thể sắp xếp dữ liệu từ nhỏ nhất đến lớn nhất đã được đưa ra trong ảnh chụp màn hình bên dưới.
Đọc thêm: VBA để tự động lọc với nhiều tiêu chí trên cùng một trường trong Excel (4 phương pháp)
2. Sử dụng nhiều cột để sắp xếp từ nhỏ nhất đến lớn nhất với Header trong Excel VBA
Trong phương pháp này, chúng tôi sẽ sắp xếp nhiều cột với tiêu đề từ nhỏ nhất đến lớn nhất. Từ tập dữ liệu của chúng tôi, chúng tôi sẽ sắp xếp dữ liệu của mình theo Tên của đại diện bán hàng, và đã đặt hàng các sản phẩm từ nhỏ nhất đến lớn nhất. Hãy làm theo hướng dẫn bên dưới để sắp xếp nhiều cột với tiêu đề từ nhỏ nhất đến lớn nhất!
Bước 1:
- Đầu tiên, theo phương pháp 1, chèn một mô-đun mới và nhập VBA bên dưới mã để thay đổi màu phông chữ. Mã VBA là,
Sub Sort_Multiple_Columns()
With ActiveSheet.Sort
.SortFields.Add Key:=Range("B4"), Order:=xlAscending
.SortFields.Add Key:=Range("D4"), Order:=xlAscending
.SetRange Range("B4:E16")
.Header = xlYes
.Apply
End With
End Sub
- Hơn nữa, hãy chạy VBA Để làm điều đó, hãy truy cập,
Chạy → Chạy Sub / UserForm
Bước 2:
- Sau khi chạy Mã VBA , bạn sẽ có thể sắp xếp dữ liệu của chúng tôi theo Tên của đại diện bán hàng, và đã đặt hàng sản phẩm từ nhỏ nhất đến lớn nhất đã được đưa ra trong ảnh chụp màn hình bên dưới.
Đọc thêm: [Khắc phục]:Phương pháp tự động lọc của lớp phạm vi không thành công (5 giải pháp)
3. Áp dụng bộ lọc tự động VBA để sắp xếp từ nhỏ nhất đến lớn nhất với tên trang tính
Cuối cùng nhưng không kém phần quan trọng, bạn cũng có thể sử dụng dữ liệu của mình để sắp xếp từ nhỏ nhất đến lớn nhất theo Tên trang tính sử dụng mã VBA trong Excel . Từ tập dữ liệu của mình, chúng tôi sẽ sắp xếp dữ liệu từ nhỏ nhất đến lớn nhất trong số đã phân phối Mỹ phẩm. Đây là một nhiệm vụ dễ dàng và tiết kiệm thời gian. Hãy làm theo hướng dẫn bên dưới để sắp xếp dữ liệu của chúng tôi từ nhỏ nhất đến lớn nhất theo Tên trang tính !
Bước 1:
- Đầu tiên, chèn một mô-đun mới theo phương pháp 1 và nhập VBA bên dưới mã để thay đổi màu phông chữ. Mã VBA là,
Sub Sort_Smallest_to_Largest()
Rows("4:16").Select
ActiveWorkbook.Worksheets("Smallest to Largest").Sort.SortFields.Clear
ActiveWorkbook.Worksheets("Smallest to Largest").Sort.SortFields.Add Key:=Range("E4:E16") _
, SortOn:=xlSortOnValues, Order:=xlAscending, DataOption:=xlSortNormal
With ActiveWorkbook.Worksheets("Smallest to Largest").Sort
.SetRange Range("B4:E16")
.Header = xlYes
.MatchCase = False
.Orientation = xlTopToBottom
.SortMethod = xlPinYin
.Apply
End With
End Sub
- Hơn nữa, hãy chạy VBA Để làm điều đó, hãy truy cập,
Chạy → Chạy Sub / UserForm
Bước 2:
- Sau khi chạy Mã VBA , bạn sẽ có thể sắp xếp dữ liệu từ nhỏ nhất đến lớn nhất theo Tên trang tính đã được đưa ra trong ảnh chụp màn hình bên dưới.
Đọc thêm: Cách tự động lọc và sao chép hàng hiển thị bằng Excel VBA
Những điều cần nhớ
👉 Bạn có thể bật lên Microsoft Visual Basic cho Ứng dụng cửa sổ bằng cách nhấn Alt + F11 đồng thời .
👉 Nếu một Nhà phát triển tab không hiển thị trong ruy-băng của bạn, bạn có thể hiển thị tab đó. Để làm điều đó, hãy truy cập,
Tệp → Tùy chọn → Tùy chỉnh ruy-băng
Kết luận
Tôi hy vọng tất cả các phương pháp phù hợp được đề cập ở trên để sắp xếp từ nhỏ nhất đến lớn nhất với VBA mã bây giờ sẽ khuyến khích bạn áp dụng chúng trong Excel của bạn bảng tính với năng suất cao hơn. Chúng tôi hoan nghênh bạn bình luận nếu bạn có bất kỳ câu hỏi hoặc thắc mắc nào.
Các bài viết liên quan
- Excel VBA để Kiểm tra xem Tự động Lọc có được Bật không (4 Cách Dễ dàng)
- Cách tự động lọc các giá trị không bằng một giá trị nhất định với VBA trong Excel
- Excel VBA:Loại bỏ Bộ lọc Tự động Nếu Nó Tồn tại (7 Cách)