So sánh 2 vùng dữ liệu (Range) bằng VBA

[Thanh Bình PV]

Chào các anh chị !!!
Em mới tìm hiểu về VBA mong anh chị giúp em về vấn đề này ạ.
Em có tìm hiểu về bài viết So sánh 2 vùng dữ liệu (Range) bằng VBA và e cũng thử chỉnh sửa nhưng không được giống như ý của mình.
Vấn đề của em là :
- So sánh vùng nhập dữ liệu K2:M2 với A:C
nếu trùng nhau hết thì nhập "N2" vào "E4" ( ô có dữ liệu trùng)
nếu không trùng nhau thì copy dữ liệu K2:N2 vào dòng cuối.
Em gửi các anh chị xem code em đã chỉnh sửa ạ. Em cảm ơn ạ.

 

[thukhon2014]

Mình không giỏi về lập trình VBA nên viết Code không hay lắm mong các cao thủ đừng cười em ạ. Mong đoạn code này có thể giúp bạn. Lúc làm mình cho bừa nên cột dòng hơi khác yêu cầu bạn xíu, bạn xem chỉnh lại xíu giúp mình nhé . Xem file

Sub Lay_Du_Lieu()
Dim LastRow As Long
Dim i As Long
With ActiveSheet
    LastRow = .Cells(.Rows.Count, "A").End(xlUp).Row + 1
End With
For i = 2 To LastRow
    If Range("A" & i) = [J2] And Range("B" & i) = [K2] And Range("C" & i) = [L2] Then
        For j = 4 To 6
            If Cells(i, j) = "" Then
                Cells(i, j) = [M2].Value
                Exit Sub
            End If
        Next j
    End If
Next i
Range("A" & LastRow) = [J2].Value
Range("B" & LastRow) = [K2].Value
Range("C" & LastRow) = [L2].Value
Range("D" & LastRow) = [M2].Value
End Sub

 

[Thanh Bình PV]

Mình không giỏi về lập trình VBA nên viết Code không hay lắm mong các cao thủ đừng cười em ạ. Mong đoạn code này có thể giúp bạn. Lúc làm mình cho bừa nên cột dòng hơi khác yêu cầu bạn xíu, bạn xem chỉnh lại xíu giúp mình nhé . Xem file

Sub Lay_Du_Lieu()
Dim LastRow As Long
Dim i As Long
With ActiveSheet
    LastRow = .Cells(.Rows.Count, "A").End(xlUp).Row + 1
End With
For i = 2 To LastRow
    If Range("A" & i) = [J2] And Range("B" & i) = [K2] And Range("C" & i) = [L2] Then
        For j = 4 To 6
            If Cells(i, j) = "" Then
                Cells(i, j) = [M2].Value
                Exit Sub
            End If
        Next j
    End If
Next i
Range("A" & LastRow) = [J2].Value
Range("B" & LastRow) = [K2].Value
Range("C" & LastRow) = [L2].Value
Range("D" & LastRow) = [M2].Value
End Sub

Thank bác ạ. Mặc dù k đúng ý e nhưng cũng cảm ơn bác.