Nhờ giúp code so sánh giá trị. (2 người xem)

[ngaykhongem1]

Chào mọi người!
Mình có 1 file excel viết macro dùng ngôn ngữ VBA về so sánh giá trị mà làm hoài chưa được. Bạn nào hỗ trợ mình với. Vui lòng xem trong file mình đính kèm.
thanks mọi người nhiều.

 

[hoangvuluan]

Nếu dữ liệu có dạng như thế thì không cần viết code, có thể dùng công thức đơn giản như sau:
ở ô thứ nhất: =IF(B5>C5, B5 & " " & C4,"")
ở ô kế tiếp: =IF(C5>B5, C5 & " " & B4,"")
chọn 2 ô này vào kéo ngang qua.

 

[vu_tuan_manh_linh]

Chào mọi người!
Mình có 1 file excel viết macro dùng ngôn ngữ VBA về so sánh giá trị mà làm hoài chưa được. Bạn nào hỗ trợ mình với. Vui lòng xem trong file mình đính kèm.
thanks mọi người nhiều.

Xem file này đi, code làm gì cho mệt hả bạn!

 

[ThuNghi]

Chào mọi người!
Mình có 1 file excel viết macro dùng ngôn ngữ VBA về so sánh giá trị mà làm hoài chưa được. Bạn nào hỗ trợ mình với. Vui lòng xem trong file mình đính kèm.
thanks mọi người nhiều.

Dùng code sau thử

Sub SoSanh()
Dim i&, eC&
Dim so01&, so02&
Dim Arr(), ArrKQ()
eC = 10
Arr = Range("B5").Resize(, eC).Value
s = 1
ReDim ArrKQ(1 To 1, 1 To eC)
For i = 1 To UBound(Arr, 2) Step 2
  so01 = CLng(Arr(1, i)): so02 = CLng(Arr(1, i + 1))
  ArrKQ(1, s) = so01
  ArrKQ(1, s + 1) = so02
  If so01 > so02 Then
    ArrKQ(1, s) = so02
    ArrKQ(1, s + 1) = so01
  End If
  s = s + 2
Next i
Range("B7").Resize(, eC) = ArrKQ
Erase Arr(), ArrKQ()
End Sub

 

[ngaykhongem1]

Cái này nghĩa là sau khi chạy macro xong thì ô giá trị được so sánh sẽ được gán thêm tên của cột có giá trị nhỏ hơn vào bên cạnh giá trị đó chứ dùng lệnh mình nghĩ chắc ko được. bạn nào code giúp mình với!