Đối chiếu thay thế tự động

[trungdaicadn]

Chào mọi người,công việc của mình có gặp một
Vấn đề không biết giải quyết sao nhờ mọi người giúp đở,xin chân thành cảm ơn
Đề bài đây là mình có hai bảng tính A và B
Mình cần đối chiếu từ khoá ở bảng B và A sau đó lấy giá trị cột 2 bảng B thế vào mã tương ứng bảng A chi tiết trong file excel đính kèm

 

[phulien1902]

Chào mọi người,công việc của mình có gặp một
Vấn đề không biết giải quyết sao nhờ mọi người giúp đở,xin chân thành cảm ơn
Đề bài đây là mình có hai bảng tính A và B
Mình cần đối chiếu từ khoá ở bảng B và A sau đó lấy giá trị cột 2 bảng B thế vào mã tương ứng bảng A chi tiết trong file excel đính kèm

Bạn thử:

Sub Test()
    Dim i As Long, Rng As Range
        Set Rng = Range("B15:C" & Cells(Rows.Count, 2).End(xlUp).Row)
        For i = 1 To Rng.Rows.Count
            Selection.Replace What:=Rng.Cells(i, 1), Replacement:=Rng.Cells(i, 2), _
            LookAt:=xlPart, SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=False, ReplaceFormat:=False
        Next
End Sub

 

[trungdaicadn]

Bạn thử:

Sub Test()
    Dim i As Long, Rng As Range
        Set Rng = Range("B15:C" & Cells(Rows.Count, 2).End(xlUp).Row)
        For i = 1 To Rng.Rows.Count
            Selection.Replace What:=Rng.Cells(i, 1), Replacement:=Rng.Cells(i, 2), _
            LookAt:=xlPart, SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=False, ReplaceFormat:=False
        Next
End Sub

Cảm ơn Anh rất nhiều
Em muốn hỏi nâng cao tý là Em muốn quét từ A1 đến C5000 và thêm điều kiện là cột 1 của bảng B phải là "A" mới ghi đè giá trị nhờ Anh giúp dùm

 

[SA_DQ]

Macro nâng cấp của bạn có thể là vầy:

Sub DienDuLieuThoaDieuKien()
 Dim Rng As Range, sRng As Range, Cls As Range
 
 With Sheet1
    Set Rng = .[B15].CurrentRegion
    Application.ScreenUpdating = False
    For Each Cls In .[B6].CurrentRegion
        If IsNumeric(Cls.Value) Then
            Set sRng = Rng.Find(Cls.Value, , xlFormulas, xlWhole)
            If Not sRng Is Nothing Then
                Cls.Interior.ColorIndex = 35
                If sRng.Offset(, -1).Value = "A" Then
                    Cls.Value = sRng.Offset(, 1).Value
                    Cls.Interior.ColorIndex = 38
                End If
            End If
        End If
    Next Cls
    Application.ScreenUpdating = True
 End With
End Sub