So sánh 2 cột dữ liệu

[Hoacomay96]

Các huynh ơi giúp nốt em bài toán này với. em có 2 cột dữ liệu có giá trị giống nhau nhưng vị trí dòng khác nhau. làm sao để so sánh 2 cột đó nếu giá trị cột 1 bằng cột 2 thì chuyển cả hàng dữ liệu đó về đúng vị trí của hàng đó. Bác Sa_DQ đã hiúp em tạo ra bảng kết quả rồi nhưng còn thiếu dòng tổng cộng nữa, bác Sa_DQ bận quá chưa giúp được. Em nhờ các bác tạo nốt hàng tổng cộng giúp em. Em có file kèm theo.

 

[tigertiger]

Các huynh ơi giúp nốt em bài toán này với. em có 2 cột dữ liệu có giá trị giống nhau nhưng vị trí dòng khác nhau. làm sao để so sánh 2 cột đó nếu giá trị cột 1 bằng cột 2 thì chuyển cả hàng dữ liệu đó về đúng vị trí của hàng đó. Bác Sa_DQ đã hiúp em tạo ra bảng kết quả rồi nhưng còn thiếu dòng tổng cộng nữa, bác Sa_DQ bận quá chưa giúp được. Em nhờ các bác tạo nốt hàng tổng cộng giúp em. Em có file kèm theo.

Thế chỉ có dùng VBA thui bạn ah,

Bác SA_DQ cố thêm 1 tí là OK
.

 

[SA_DQ]

Lại cái cậu Tiger^2 này nữa

Option Explicit

Sub SoSanhDuLieu()
 Dim lRow As Long, cRow As Long, dRow As Long
 Dim jW As Long, jZ As Long, jJ As Long
 Dim Rng As Range, RngC As Range:               Dim iJ As Integer
 
 lRow = [c65432].End(xlUp).Row:             Range("B38:R321").Clear
 Range("F2:O2").Copy Destination:=Range("F38")
 Application.ScreenUpdating = False
 For jW = 18 To 23
    cRow = Range(Chr(64 + jW) & 36).End(xlUp).Row
    If cRow = 1 Then GoTo 17
    For jJ = 3 To lRow
        For jZ = 2 To cRow
            If Cells(jJ, 3) = Cells(jZ, jW) Then
                If Rng Is Nothing And RngC Is Nothing Then
                    Set Rng = Cells(jZ - 1, jW)
                    Set RngC = Cells(jJ, 3).Resize(1, 13)
                Else
                    Set Rng = Union(Rng, Cells(jZ, jW))
                    Set RngC = Union(RngC, Cells(jJ, 3).Resize(1, 13))
                End If
            End If
        Next jZ
    Next jJ
    dRow = [F65432].End(xlUp).Row + 1
    If dRow > 39 Then dRow = dRow + 1:
    Rng.Copy Destination:=Range("B" & dRow)
    RngC.Copy Destination:=Range("C" & dRow)
    Set Rng = Nothing:                      Set RngC = Nothing
17 Next jW

 lRow = [c65432].End(xlUp).Row + 1:         dRow = 39
 For jW = 39 To lRow
    If Cells(jW, 4) = "" Then
        cRow = jW - 1
        Cells(jW, 4).Formula = "=SUM(D" & dRow & ":D" & cRow & ")"
        Range("D" & jW).AutoFill Destination:=Range("D" & jW & _
            ":O" & jW), Type:=xlFillDefault

        dRow = jW + 1
    End If
 Next jW

End Sub

Bữa trước xong rồi, nhưng không tìm ra bài để trả lời, rồi quên mất tiêu;
Xin lỗi nha!!!

 

[Hoacomay96]

so sánh 2 cột dữ liệu

Em xin cảm ơn bác Sa_DQ đã giành thời gian làm giúp em, em biết bác rất bận nên ngại không giám làm phiền bác. Bác có thể chỉnh giúp em chút xíu nữa được không ạ ? em muốn chuyển tên cột ra riêng 1 cột khác, và cột thứ 2 là số thứ tự của dòng dữ liệu. Em có file mẫu kèm theo, nhờ bác xem giúp.