Lọc số ở 2 cột và in ra cột thứ 3 (2 người xem)

[gameonly308]

Mình có 1 bài toán nhỏ thế này
có các số ở cột B và C
giờ mình muốn lọc và in ra ở cột D với các dòng tương ứng.
Help mình với !

 

[hoamattroicoi]

Mình có 1 bài toán nhỏ thế này
có các số ở cột B và C
giờ mình muốn lọc và in ra ở cột D với các dòng tương ứng.
Help mình với !

Thử code này xem :

Sub Locso()
Dim Rng As Range, k As Long
Dim clls As Range
Set Rng = Range("B7:C20")
k = 0
For Each clls In Rng
   If IsNumeric(clls.Value) And clls.Value <> "" Then
      k = k + 1
      Cells(k, 4) = clls.Value
   End If
Next
End Sub

 

[gameonly308]

Bạn có thể add vào file excel cho mình được ko? Sao mình làm ko được

 

[hoamattroicoi]

Bạn có thể add vào file excel cho mình được ko? Sao mình làm ko được

Bạn bấm nút LỌC để chạy code nhé:

 

[Ba Tê]

Bạn có thể add vào file excel cho mình được ko? Sao mình làm ko được

Bạn đưa dữ liệu gì mà "giả" quá.
Nhìn kiểu dữ liệu của bạn thì chỉ cần công thức này cho ô D7, rồi copy xuống.

=IF(MAX(B7:C7)=0;"";MAX(B7:C7))

Chú ý là dữ liệu càng thật càng có lợi cho bạn.

 

[gameonly308]

Sorry, tại dữ liệu của mình nhiều quá, hơn 10mb, mình chủ yếu chỉ muốn hỏi thuật toán mà bạn. Thx các bạn nhiều