Em có đoạn code thế này. Các bác dịch giúp em với ạ. (Em đang đi học lỏm nên các bác đừng cười)
Sub TIENPHONG()
Dim i, j, k, n, n1 As Integer
Dim temp
n = 2000
n1 = 2000
For i = 2 To n
temp = Sheet1.Cells(i, 2)
For j = 2 To n1
If temp = Sheet2.Cells(j, 2) Then
k = 2
Do While Not IsEmpty(Sheet2.Cells(j, k))
Sheet1.Cells(i, k) = Sheet2.Cells(j, k)
k = k + 1
Loop
Exit For
End If
Next
Next
End Sub
Sub TIENPHONG()
Dim i, j, k, n, n1 As Integer
Dim temp
n = 2000
n1 = 2000
For i = 2 To n
temp = Sheet1.Cells(i, 2)
For j = 2 To n1
If temp = Sheet2.Cells(j, 2) Then
k = 2
Do While Not IsEmpty(Sheet2.Cells(j, k))
Sheet1.Cells(i, k) = Sheet2.Cells(j, k)
k = k + 1
Loop
Exit For
End If
Next
Next
End Sub