Mọi người giúp mình code Sort sắp sếp bỏ qua công thức trống trống

[hunglam123]

Chào tất cả mọi người. Mình có dùng đoạn code sau để Sort 1 vùng, Nếu vùng đó chỉ có Text không có công thức thì sort ok . nhưng khi gặp công thức trả về trống trống thì sau khi sort thì bị đưa vùng rỗng lên trên. em muốn sữa code làm sao để sort theo cột E theo thứ tự A- Z mà vùng rỗng phải nằm dưới

Sub Macro1()
   Range("C4:E17").Sort Key1:=Range("e4"), Order1:=xlAscending
End Sub

Xin cảm ơn mọi người

 

[Hoàng Trọng Nghĩa]

Chào tất cả mọi người. Mình có dùng đoạn code sau để Sort 1 vùng, Nếu vùng đó chỉ có Text không có công thức thì sort ok . nhưng khi gặp công thức trả về trống trống thì sau khi sort thì bị đưa vùng rỗng lên trên. em muốn sữa code làm sao để sort theo cột E theo thứ tự A- Z mà vùng rỗng phải nằm dưới

Sub Macro1()
   Range("C4:E17").Sort Key1:=Range("e4"), Order1:=xlAscending
End Sub

Xin cảm ơn mọi người

Có nhiều cách, nhưng tôi chỉ nhìn hình và làm cách này cho bạn:

Sub SortNotEmpty()
    Dim e As Long
    With Worksheets("Sheet1")
        e = .Range("C" & .Rows.Count).End(xlUp).Row
        .Range("C4:E" & e).Sort Key1:=.Range("C4"), Order1:=xlAscending
        e = .Range("C" & .Rows.Count).End(xlUp).Row
        .Range("C4:E" & e).Sort Key1:=.Range("E4"), Order1:=xlAscending
   End With
End Sub

 

[hunglam123]

Có nhiều cách, nhưng tôi chỉ nhìn hình và làm cách này cho bạn:

Sub SortNotEmpty()
    Dim e As Long
    With Worksheets("Sheet1")
        e = .Range("C" & .Rows.Count).End(xlUp).Row
        .Range("C4:E" & e).Sort Key1:=.Range("C4"), Order1:=xlAscending
        e = .Range("C" & .Rows.Count).End(xlUp).Row
        .Range("C4:E" & e).Sort Key1:=.Range("E4"), Order1:=xlAscending
   End With
End Sub

cảm ơn anh vì sao 2 đoạn code lại giống nhau nhĩ

 

[CHAOQUAY]

Chào tất cả mọi người. Mình có dùng đoạn code sau để Sort 1 vùng, Nếu vùng đó chỉ có Text không có công thức thì sort ok . nhưng khi gặp công thức trả về trống trống thì sau khi sort thì bị đưa vùng rỗng lên trên. em muốn sữa code làm sao để sort theo cột E theo thứ tự A- Z mà vùng rỗng phải nằm dưới


View attachment 235252

Sub Macro1()
   Range("C4:E17").Sort Key1:=Range("e4"), Order1:=xlAscending
End Sub

Xin cảm ơn mọi người

Ý bạn là cột C không đổi sau khi sort?

 

[hunglam123]

Ý bạn là cột C không đổi sau khi sort?

Sort từ A đến Z theo cột E. và dòng rỗng phải nằm dưới

 

[CHAOQUAY]

Sort từ A đến Z theo cột E. và dòng rỗng phải nằm dưới
View attachment 235257

Nếu công thức cột E như vậy & hình kết quả như bạn đính kèm thì sort cột C có lẽ hợp lý hơn.

 

[Hoàng Trọng Nghĩa]

cảm ơn anh vì sao 2 đoạn code lại giống nhau nhĩ

Vì thứ nhất tôi sort cột C để kéo các hàng rỗng xuống dưới, sau đó sắp xếp theo cột E.
Còn biến e bạn thấy giống nhau à? giống về câu lệnh, khác về kết quả bạn nhé.