Đổi tên sheet thành sheet goc và sheet tach rồi chạy code
Sub abc()
Dim i As Long, lr As Long, kq, arr, a As Long, b As Long, c As Long, k As Integer, j As Integer
With Sheets("sheet goc")
lr = .Range("A" & Rows.Count).End(xlUp).Row
arr = .Range("A2:Q" & lr).Value
ReDim...