Chào các bạn, nhờ các bạn giúp sao code mình không chạy vậy. Lọc bảng ở sheet4 theo bảng ở sheet2. Mình cảm ơn.
Function Loc(A, B)
Dim i, j, KQ As Integer
HangA = A.Rows.Count
HangB = B.Rows.Count
CotB = B.Columns.Count
For i = 1 To HangA
For j = 1 To HangB
If A(i, 1) = B(j, 1) And A(i, 2) = B(j, 2) Then
KQ = B(j, CotB)
B(j, CotB).Offset(1, 0).Select
End If
Next j
Next i
End Function
Function Loc(A, B)
Dim i, j, KQ As Integer
HangA = A.Rows.Count
HangB = B.Rows.Count
CotB = B.Columns.Count
For i = 1 To HangA
For j = 1 To HangB
If A(i, 1) = B(j, 1) And A(i, 2) = B(j, 2) Then
KQ = B(j, CotB)
B(j, CotB).Offset(1, 0).Select
End If
Next j
Next i
End Function
