Sắp xếp theo thứ tự tăng dần dựa vào ký tự từ trái sang phải

[vanlinh_2904]

Nhờ các Anh/Chị giúp mình VBA để sắp xếp theo thứ tự tăng dần dựa vào ký tự đầu từ trái sang phải như file đính kèm. cảm ơn các anh/chị.

 

[Thóc Sama]

Nhờ các Anh/Chị giúp mình VBA để sắp xếp theo thứ tự tăng dần dựa vào ký tự đầu từ trái sang phải như file đính kèm. cảm ơn các anh/chị.

Phải thế này không?

Sub Sap_Xep()
  With Sheet1.Range("A3:B23")
    .Sort .Cells(3, 1), 1, Header:=xlGuess
  End With
End Sub

 

[vanlinh_2904]

Phải thế này không?

Sub Sap_Xep()
  With Sheet1.Range("A3:B23")
    .Sort .Cells(3, 1), 1, Header:=xlGuess
  End With
End Sub

Chạy thấy đúng với định dạng là kiểu text, nếu số liệu cột A vừa kiểu số và text sẽ bị sai, bạn xem giúp mình nhé

 

[Thóc Sama]

Chạy thấy đúng với định dạng là kiểu text, nếu số liệu cột A vừa kiểu số và text sẽ bị sai, bạn xem giúp mình nhé

Tôi thấy nó chạy đúng với kết quả mong muốn rồi mà.
Nếu bạn thay thay dữ liệu đầu vào, thì nhập tay lại kết quả mong muốn rồi gửi lên xem thế nào.
Chú ý: phải lường trước các trường hợp rồi gửi yêu cầu một lượt,
Tránh tình trạng hỗ trợ xong lại "đẻ" ra thêm các yêu cầu khác.

 

[vanlinh_2904]

Tôi thấy nó chạy đúng với kết quả mong muốn rồi mà.
Nếu bạn thay thay dữ liệu đầu vào, thì nhập tay lại kết quả mong muốn rồi gửi lên xem thế nào.
Chú ý: phải lường trước các trường hợp rồi gửi yêu cầu một lượt,
Tránh tình trạng hỗ trợ xong lại "đẻ" ra thêm các yêu cầu khác.

Đây bạn, nếu cột A dạng số thì kết quả bị sai. Bạn xem lại giúp mình

 

[Thóc Sama]

Đây bạn, nếu cột A dạng số thì kết quả bị sai. Bạn xem lại giúp mình

Theo dữ liệu bạn đưa cùng kết quả mong muốn thì chỉ cần đổi 1-->2 như ở code dưới.

Sub Sap_Xep()
  With Sheet1.Range("A3:B23")
    .Sort .Cells(3, 2), 1, Header:=xlGuess
  End With
End Sub

 

[bebo021999]

Theo dữ liệu bạn đưa cùng kết quả mong muốn thì chỉ cần đổi 1-->2 như ở code dưới.

Sub Sap_Xep()
  With Sheet1.Range("A3:B23")
    .Sort .Cells(3, 2), 1, Header:=xlGuess
  End With
End Sub

Cột 2 có thể là chuỗi bất kỳ. Mặc dù tình cờ nó khớp với điều kiện lọc, nhưng đề bài là sort cột 1 mà bạn lại sort cột 2?

 

[bebo021999]

Bạn thử code này

Option Explicit
Sub Sap_Xep()
Dim lr&, i&, j&, rng, max1, max2, max3
lr = Cells(Rows.Count, "A").End(xlUp).Row
rng = Range("A4:C" & lr).Value
For i = 1 To lr - 3
    rng(i, 3) = Left(rng(i, 1) & "0000000000", 10)
Next
For i = 1 To lr - 4
    For j = i + 1 To lr - 3
        If rng(i, 3) > rng(j, 3) Then
            max3 = rng(j, 3): max2 = rng(j, 2): max1 = rng(j, 1)
            rng(j, 1) = rng(i, 1): rng(j, 2) = rng(i, 2): rng(j, 3) = rng(i, 3)
            rng(i, 3) = max3: rng(i, 2) = max2: rng(i, 1) = max1
        End If
    Next
Next
Range("A4:B100000").ClearContents
Range("A4").Resize(UBound(rng), 2).Value = rng
End Sub

 

[HeSanbi]

Mong muốn của bạn tương tự hàm và thủ tục được viết ở đây

Hàm sắp xếp mảng ngang dọc với Thuật toán QuickSort (sắp xếp Tiếng Việt) cho Excel

Hôm nay tôi lại chia sẻ cho các bạn các Hàm UDF được viết bằng VBA, nhằm mục đích để sắp xếp mảng một cách tối ưu nhất. HÀM UDF SẮP XẾP PHÂN TẦNG (ĐA HÀNG CỘT) Hàm VSORT và Thủ tục VSORTING - Sắp xếp dọc Hàm HSORT và Thủ tục HSORTING - Sắp xếp ngang Mục tiêu đạt được: Sắp xếp cả mảng ngang...

www.giaiphapexcel.com