Dò tìm chuỗi trong một cột

[ha_dongminhgas]

Mình có 2 sheet, Sheet 1 có cột A là "tên và qui cách vật tư" cột B là "Mã vật tư". Sheet 2 có cột A là "qui cách vật tư".
Mình muốn dò tìm theo qui cách tại cột A sheet 2 trong cột A sheet 1 rồi gán mã vật tư lên cột B sheet 2. Mình không có cách gì để tách
Qui cách vật tư ra khỏi cột "tên và qui cách vật tư". Rất mong các anh chị giúp đỡ. Trân trọng

 

[hoile]

gởi bạn 1 file của bác dosnet, có thể khác nhưng hy vọng có ích cho mong muốn của bạn

 

[ha_dongminhgas]

Rat cam on ban hoile
Nhưng mình không có cột nào riêng biệt để lọc cả. Vấn đề của mình là "qui cách vật tư" nằm trong cột "tên và qui cách vật tư". Nếu mình làm thủ công thì mình phải dùng lệnh "Ctrl+F", đi tìm qui cách trong cột "tên và qui cách" sau đó copy "mã vật tư" rồi dán sang sheet 2. Bạn có cách nào khác không. Trân trọng

 

[SA_DQ]

Macro của bạn như vầy:

Option Explicit
Sub GhiMaVatTu()
 Dim MyColor As Byte, Sh As Worksheet
 Dim Clls As Range, Rng As Range, sRng As Range

 Sheet2.Select:                     Set Sh = Sheet1
 Set Rng = Sh.Range(Sh.[a1], Sh.[A65500].End(xlUp))
 MyColor = [a1].Interior.ColorIndex + 1
 [a1].CurrentRegion.Offset(1, 1).Clear
 For Each Clls In Range([A2], [A65500].End(xlUp))
   Set sRng = Rng.Find(Clls.Value, , xlFormulas, xlPart)
   If sRng Is Nothing Then
      Clls.Offset(, 1).Interior.ColorIndex = 43
   Else
      Clls.Offset(, 1).Value = sRng.Offset(, 1).Value
   End If
 Next Clls
 If MyColor > 42 Then MyColor = 34
 [a1].Resize(, 2).Interior.ColorIndex = MyColor
End Sub