So sánh dữ liệu và sắp xếp

[hadoan-pap]

Em chào mọi người!

Chúc mọi người buổi tối vui vẻ!

Em có bảng dữ liệu như file đính kèm ạ.

Em muốn bảng dữ liệu bên dưới sắp xếp logic giống với bảng dữ liệu ở trên dựa vào tên Item ạ.

Hiện tại bảng bên dưới đang sắp xếp linh tinh , em muốn nó kiểm tra tên item với bảng bên trên sau đó sắp xếp lại cột ạ.

Ví dụ cột bên dưới có item là "dog" thì nó sẽ kiểm tra item với bảng bên trên và đẩy cột đó ra vị trí ở cột B ạ.

Em xin cảm ơn!

 

[Ba Tê]

Em chào mọi người!

Chúc mọi người buổi tối vui vẻ!

Em có bang dữ liệu như file đính kèm ạ.

Em muốn bang dữ liệu bên dưới sắp xếp logic giống với bang dữ liệu ở trên dựa vào tên Item ạ.

Hiện tại bang bên dưới đang sắp xếp linh tinh , em muốn nó kiểm tra tên item với bang bên trên sau đó sắp xếp lại ạ.

Em xin cảm ơn!

Không thấy "bang" cũng chẳng thấy file luôn

 

[hadoan-pap]

Không thấy "bang" cũng chẳng thấy file luôn

Dạ em mới sửa lại. Em xin lỗi khi gõ "bảng" nó bị mất dấu phảy do bộ gõ ạ.

Bài đã được tự động gộp: 27/8/19

Không thấy "bang" cũng chẳng thấy file luôn

Dạ, em muốn sau khi compare xong thì bảng dữ liệu bên dưới sẽ như hình đính kèm ạ.

 

[Ba Tê]

Public Sub sGpe()
Dim sArr(), tArr(), dArr(), I As Long, J As Long, N As Long, R As Long, CoL As Long
    sArr = Range("B18:F22").Value
    tArr = Range("B1:F1").Value
    R = UBound(sArr)
    CoL = UBound(sArr, 2)
ReDim dArr(1 To R, 1 To CoL)
For N = 1 To CoL
    For J = 1 To CoL
        If sArr(1, J) = tArr(1, N) Then
            For I = 1 To R
                dArr(I, N) = sArr(I, J)
            Next I
            Exit For
        End If
    Next J
Next N
Range("B18").Resize(R, CoL) = dArr
End Sub

Dạ em mới sửa lại. Em xin lỗi khi gõ "bảng" nó bị mất dấu phảy do bộ gõ ạ.

Bài đã được tự động gộp: 27/8/19

Dạ, em muốn sau khi compare xong thì bảng dữ liệu bên dưới sẽ như hình đính kèm ạ.

Các vùng dữ liệu bảng bạn tự chỉnh lại nhé.

 

[hadoan-pap]

Public Sub sGpe()
Dim sArr(), tArr(), dArr(), I As Long, J As Long, N As Long, R As Long, CoL As Long
    sArr = Range("B18:F22").Value
    tArr = Range("B1:F1").Value
    R = UBound(sArr)
    CoL = UBound(sArr, 2)
ReDim dArr(1 To R, 1 To CoL)
For N = 1 To CoL
    For J = 1 To CoL
        If sArr(1, J) = tArr(1, N) Then
            For I = 1 To R
                dArr(I, N) = sArr(I, J)
            Next I
            Exit For
        End If
    Next J
Next N
Range("B18").Resize(R, CoL) = dArr
End Sub

Các vùng dữ liệu bảng bạn tự chỉnh lại nhé.

Gửi anh!

Em cảm ơn anh ạ!