Dùng Lệnh IF mà không bị thay đổi FORMAT ô dữ liệu (1 người xem)

[sanzin111085]

Dear các bạn,

Mình có một bảng dữ liệu về các kiện hàng, và mình đã dùng lệnh IF để sắp xếp lại cột dữ liệu theo ý muốn. Tuy nhiên khi mình sắp xếp lại thì các ô được tô màu, hoặc đc mình Format theo một định dạng đặc biệt thì lại thay đổi. Các bạn giúp mình với nhé.

Vui lòng kiểm tra dữ liệu đính kèm!

Thanks,

 

[Quang_Hải]

Dear các bạn,

Mình có một bảng dữ liệu về các kiện hàng, và mình đã dùng lệnh IF để sắp xếp lại cột dữ liệu theo ý muốn. Tuy nhiên khi mình sắp xếp lại thì các ô được tô màu, hoặc đc mình Format theo một định dạng đặc biệt thì lại thay đổi. Các bạn giúp mình với nhé.

Vui lòng kiểm tra dữ liệu đính kèm!

Thanks,

Dùng công thức thì đương nhiên là không thể lấy được định dạng rồi, chỉ có thể dùng code thôi

Nếu biết xài code thì thử code này sẽ như ý

Sub test()
Dim dl, kq, i, j
Set dl = Range([b6], [b65536].End(3)).Resize(, 2)
Set kq = Range([L6], [L65536].End(3)).Resize(, 2)
For i = 1 To kq.Rows.Count
  For j = 1 To dl.Rows.Count
    If kq(i, 1) = dl(j, 1) Then
      dl(j, 2).Copy kq(i, 2)
      Exit For
    End If
  Next
Next
End Sub

 

[sanzin111085]

Mình chạy thử công thức của bạn, nhưng nó lại cho ra dữ liệu trên cột M y như dữ liệu trên cột C mà ko sắp xếp theo thứ tự mình mong muốn (là sắp xếp thứ tự theo cột B).
Mình đang cần gấp mà nghĩ ko ra được.

 

[Quang_Hải]

Mình chạy thử công thức của bạn, nhưng nó lại cho ra dữ liệu trên cột M y như dữ liệu trên cột C mà ko sắp xếp theo thứ tự mình mong muốn (là sắp xếp thứ tự theo cột B).
Mình đang cần gấp mà nghĩ ko ra được.

Code trên chỉ test thôi, bạn phải nói rõ dữ liệu từ vùng nào, muốn ra kết quả thế nào mới biết mà viết code giúp

 

[sanzin111085]

Mình có dữ liệu như file data đính kèm! Mình muốn sắp xếp lại dữ liệu ở cột C theo cột B mà vẫn giữ nguyên bôi mầu và format của ô dữ liệu.
Cám ơn bạn!

 

[Quang_Hải]

Mình có dữ liệu như file data đính kèm! Mình muốn sắp xếp lại dữ liệu ở cột C theo cột B mà vẫn giữ nguyên bôi mầu và format của ô dữ liệu.
Cám ơn bạn!

Phải thế này hay không? Không hiểu rõ, đoán làm thí không trúng thì thôi

Sub test()
Dim dl, kq, i, j
Set dl = Range([b6], [b65536].End(3)).Resize(, 2)
Set kq = Range([L6], [L65536].End(3)).Resize(, 2)
For i = 1 To kq.Rows.Count
  For j = 1 To dl.Rows.Count
    If kq(i, 1) = dl(j, 2) Then
      dl(j, 2).Copy kq(i, 2)
      Exit For
    End If
  Next
Next
End Sub