Code VBA tìm kiếm tất cả các giá trị thỏa mãn điều kiện tìm kiếm

[cuongDG]

Bạn chạy thử code.

Sub chuyendulieu()
Dim arr, i As Long, lr As Long, dic As Object
Set dic = CreateObject("scripting.dictionary")
    With Sheets("Issue")
         lr = .Range("C" & Rows.Count).End(xlUp).Row
         arr = .Range("c2:D" & lr).Value
         For i = 1 To UBound(arr, 1)
             If Not dic.exists(arr(i, 1)) Then
                dic.Add arr(i, 1), arr(i, 2)
             Else
                dic.Item(arr(i, 1)) = dic.Item(arr(i, 1)) & "-" & arr(i, 2)
             End If
         Next i
    End With
    With Sheets("Data")
          lr = .Range("i" & Rows.Count).End(xlUp).Row
          arr = .Range("i2:Y" & lr).Value
          For i = 1 To UBound(arr, 1)
              If dic.exists(arr(i, 1)) Then
                 arr(i, 17) = dic.Item(arr(i, 1))
              End If
          Next i
          .Range("i2:Y" & lr).Value = arr
    End With
    Set dic = Nothing
End Sub

Nếu muốn tìm kiếm Panel ID với issue đầu tiên không cần tìm tất cả các issue thì code ntn hả bạn. Như lệnh VlOOKUP bình thường ấy.

 

[snow25]

Nếu muốn tìm kiếm Panel ID với issue đầu tiên không cần tìm tất cả các issue thì code ntn hả bạn. Như lệnh VlOOKUP bình thường ấy.

Đây bạn xem.Mình chưa tets nhé.

Sub chuyendulieu()
Dim arr, i As Long, lr As Long, dic As Object
Set dic = CreateObject("scripting.dictionary")
    With Sheets("Issue")
         lr = .Range("C" & Rows.Count).End(xlUp).Row
         arr = .Range("c2:D" & lr).Value
         For i = 1 To UBound(arr, 1)
             If Not dic.exists(arr(i, 1)) Then
                dic.Add arr(i, 1), arr(i, 2)
             End If
         Next i
    End With
    With Sheets("Data")
          lr = .Range("i" & Rows.Count).End(xlUp).Row
          arr = .Range("i2:Y" & lr).Value
          For i = 1 To UBound(arr, 1)
              If dic.exists(arr(i, 1)) Then
                 arr(i, 17) = dic.Item(arr(i, 1))
              End If
          Next i
          .Range("i2:Y" & lr).Value = arr
    End With
    Set dic = Nothing
End Sub

 

[CHAOQUAY]

@snow25 Chắc thớt đang quậy đó bạn

 

[cuongDG]

Được rồi bạn ah, pro quá =)) Cảm ơn b nhá!

Không được b ah, mình vlookup kiểm tra lại có nhiều panle ID tìm kiếm sai lắm b ah.

 

[snow25]

Không được b ah, mình vlookup kiểm tra lại có nhiều panle ID tìm kiếm sai lắm b ah.

Bạn gửi file lên xem nào.Chỗ nào sai chỉ mình xem.

 

[cuongDG]

Bạn gửi file lên xem nào.Chỗ nào sai chỉ mình xem.

Sry b nhá, mình thử file cũ thì được, chắc file issue của mình ở file mới có nhiều panel ID sai thông tin.

Bài đã được tự động gộp: 25/2/19

Nếu muốn thêm Sub nữa dạng như thế này nhưng tìm kiếm ở cột khác với điều kiện khác thì thêm bên dưới code của b ah. Mình hỏi ngu tí