em gửi lại file rồi a/e forum xem và viết dùm code.
Mình thuộc mẫu người hay làm liều nên mần thử bài này. Hỏng trúng thì thôi nha.
Sub luxubu()
Dim data(), res(), i, j, k, n
With Sheet1
data = .Range(.[a4], .[A65536].End(3)).Resize(, 13).Value
End With
ReDim res(1 To UBound(data) * UBound(data), 1 To 14)
For i = 1 To UBound(data)
For j = i + 1 To UBound(data)
k = k + 1
res(k, 1) = data(i, 1)
res(k, 2) = data(j, 1)
For n = 3 To 14
If data(i, n - 1) = data(j, n - 1) Then
res(k, n) = data(j, n - 1)
End If
Next
Next
Next
Sheet2.[a4:n10000].ClearContents
Sheet2.[a4].Resize(k, 14) = res
End SubLời cảm ơn thay lời nói với bác là ok rồi mà. bác QuangHai1969 không hài lắm sao? Dù sao cũng cảm ơn Bác Quanghai1969 rất nhiều về bài viết đó, và giúp em bài sau. Thanks bác !!!
Rất ok với dữ liệu rất ít, hai nữa code chạy trên sheet 1 xóa hết dữ liệu đầu. bạn cũng nên chạy lại dùm. Nếu có thể bạn viết code với lượng lớn hơn chút nữa. Rất cảm ơn bạn quan tâm và giúp đỡ.
