Nhờ giúp đỡ Macro để thay địa chỉ theo quy ước có sẵn !

[hoi_joker]

Chào mọi người!

Mình có file đính kèm mong mọi người giúp đỡ. Dữ liệu quá nhiều nên dùng các hàm dò tìm tham chiếu cũng không được thuận lợi. Vậy liệu có cách nào khác không?

Xin cảm ơn

 

[viehoai]

Chào mọi người!

Mình có file đính kèm mong mọi người giúp đỡ. Dữ liệu quá nhiều nên dùng các hàm dò tìm tham chiếu cũng không được thuận lợi. Vậy liệu có cách nào khác không?

Xin cảm ơn

Nếu vậy thì dùng VBA thôi

 

[ChanhTQ@]

Thấy nó dài hơn, nhưng sẽ là nhĩnh hơn xíu xiu đó nhe

Sub gpeFindNext()
 Dim Sh As Worksheet, Rng As Range, sRng As Range, Cls As Range
 Dim Timer_ As Double, MyAdd As String
 
 Timer_ = Timer
 Set Sh = ThisWorkbook.Worksheets("DATA FOR REPLACE")
 Sheets("REPORT").Select
 Set Rng = Range([f4], [f4].End(xlDown))
 For Each Cls In Sh.Range(Sh.[a4], Sh.[a65432].End(xlUp))
   Set sRng = Rng.Find(Cls.Value, , xlValues, xlWhole)
   If Not sRng Is Nothing Then
      MyAdd = sRng.Address
      Do
         sRng.Offset(, 1).Value = Cls.Offset(, 1).Value
         Set sRng = Rng.FindNext(sRng)
      Loop While Not sRng Is Nothing And sRng.Address <> MyAdd
   End If
 Next Cls
 MsgBox Timer - Timer_
End Sub

 

[hoi_joker]

@ChanhTQ: chạy OK

@viethoai: file của bạn chạy khô ng chính xác. Dùng Trim() tại cột F là để loại bỏ những khoảng trống vô ích
VD: Cell D4= "CAM[ 5*space] THUY CAM PHA" thì chạy không nhận kết quả là CAM THUY
Quy ước là theo cột đã Trim( )
. ..
Tks/Brgds