Loại bớt giá trị để được thứ tự những giá trị còn lại?

Các anh trên GPE giúp đỡ, tôi có bảng dữ liệu 150 giá trị U, D và T lần lượt xuất hiện theo thứ tự, tôi muốn tách T để được thứ tự U và D ở cột H và I, mong các anh giúp đỡ, xin cảm ơn!

tôi mở file lên bị lỗi Xml gì đó , phần đọc được thì đoán là sẽ dùng code này , hên xui

Public Sub hello()
Dim arr, dArr(1 To 10000, 1 To 2), k As Long, r As Long
With Sheet1
    arr = .Range("B5:B" & .[B10000].End(xlUp).Row)
    For r = 1 To UBound(arr) Step 1
        If arr(r, 1) = "U" Then
            k = k + 1
            dArr(k, 1) = k
        ElseIf arr(r, 1) = "D" Then
            k = k + 1
            dArr(k, 2) = k
        End If
    Next
    .Range("H5:I10000").ClearContents
    .Range("H5").Resize(k, 2).Value = dArr
End With
End Sub

Code của anh doveandrose tốt rồi, tôi có code này để có được U,D và T, ghép code này với code của anh được không, anh giúp dùm

..........
For I = 1 To UBound(sArr, 1)    Tem = 0: K = K + 1
    For J = 1 To 20
        Tem = Tem + sArr(I, J)
    Next J
    tArr(I, 1) = Tem
'Tem ở đây gồm số có 3 đến 4 chữ số, được tổng từ 20 số khác
If Left(Right(Tem, 2), 1) > Right(Tem, 1) Then
'so sánh Số hàng chục > hàng Đơn vị thì
        dArr(K, 1) = U
    ElseIf Left(Right(Tem, 2), 1) < Right(Tem, 1) Then
'Số hàng chục < hàng Đơn vị thì
        dArr(K, 1) = D
    Else
'Số hàng chục = hàng Đơn vị thì
        dArr(K, 1) = T
    End If
Next I
.....

không biết , cứ thử chạy lần lượt các đoạn code thôi chứ sao hỏi tôi .

www.giaiphapexcel.com/diendan/threads/lo%E1%BA%A1i-b%E1%BB%9Bt-gi%C3%A1-tr%E1%BB%8B-%C4%91%E1%BB%83-%C4%91%C6%B0%E1%BB%A3c-th%E1%BB%A9-t%E1%BB%B1-nh%E1%BB%AFng-gi%C3%A1-tr%E1%BB%8B-c%C3%B2n-l%E1%BA%A1i.112095/

Khóa học SprinGO phù hợp

Khóa học Power PI – Ứng dung trong Nhân sự

TỔNG QUAN KHÓA HỌC: POWER BI CHO NGÀNH NHÂN SỰ Khóa học Power BI cho Nhân sự được thiết kế dành riêng cho các...

Xem khóa học