Xin Hướng dẫn làm lại công thức lọc tên/ (1 người xem)

[ManhHungMHNH]

Xin Hướng dẫn làm lại công thức lọc tên/

 

[Quang_Hải]

Xin Hướng dẫn làm lại công thức lọc tên/

Xài code này thử xem thế nào

Sub loc_ten()
Dim dl(), i As Long, kq(), j As Long
With Sheets("A1")
   dl = .Range(.[B3], .[B65536].End(3)).Value
End With
ReDim kq(1 To UBound(dl), 1 To 1)
For i = 1 To UBound(dl)
   If InStr(UCase(dl(i, 1)), UCase(Sheets("A2").[e1])) Then
      j = j + 1
      kq(j, 1) = dl(i, 1)
   End If
Next
Sheets("A2").[D3:D1000].ClearContents
If j Then Sheets("A2").[D3].Resize(j) = kq
End Sub

 

[ndu96081631]

Xài code này thử xem thế nào

Sub loc_ten()
Dim dl(), i As Long, kq(), j As Long
With Sheets("A1")
   dl = .Range(.[B3], .[B65536].End(3)).Value
End With
ReDim kq(1 To UBound(dl), 1 To 1)
For i = 1 To UBound(dl)
   If InStr(UCase(dl(i, 1)), UCase(Sheets("A2").[e1])) Then
      j = j + 1
      kq(j, 1) = dl(i, 1)
   End If
Next
Sheets("A2").[D3:D1000].ClearContents
If j Then Sheets("A2").[D3].Resize(j) = kq
End Sub

Bài này dùng Advanced Filter mới là ngắn gọn nhất