Hiện tại đang sử dụng code thay thế giữ liệu từ sheet1 qua sheet2 nay muốn bổ sung thêm điều kiện.
Tại sheet 2 những tên hàng nào giống tên hàng ở cột A sheet1 thì mới thay đổi còn lại thì không thay đổi.
Tại sheet 2 những tên hàng nào giống tên hàng ở cột A sheet1 thì mới thay đổi còn lại thì không thay đổi.
Mã:
Private Sub CommandButton1_Click()
Dim nguon(), i&
With Sheet1
nguon = .Range("B2", .[C65536].End(3)).Value
End With
With Sheet2.UsedRange
For i = 1 To UBound(nguon)
.Replace nguon(i, 1), nguon(i, 2), 1
.Replace " " & nguon(i, 1), " " & nguon(i, 2), 2
Next
End With
End Sub
