Mình cần tư vấn hàm tìm kiếm

[Canh thịt]

Mình có 1 sheet trong đó có cột A danh sách xã huyện tỉnh thành phố 10000 dòng
Vd : xã khánh thượng huyện văn bàn tỉnh lào cai
: Phường 13 quận 6 thành phố hồ chí minh
Giờ mình muốn nhập vào 1 ô là B2 (78 đường aaaa khánh thượng văn bàn) thì ở ô Cột C nó hiện xã khánh thượng huyện văn bàn tỉnh lào cai
Hoặc nhập 777 đường aaa p13 q6 thì cột C hiện phường 13 quận 6 thành phố hồ chí minh hoặc 1 loạt các kết quả có thành phần gần đúng nhất thì mình dùng cách nào ạ

 

[BuiQuangThuan]

Mình có 1 sheet trong đó có cột A danh sách xã huyện tỉnh thành phố 10000 dòng
Vd : xã khánh thượng huyện văn bàn tỉnh lào cai
: Phường 13 quận 6 thành phố hồ chí minh
Giờ mình muốn nhập vào 1 ô là B2 (78 đường aaaa khánh thượng văn bàn) thì ở ô Cột C nó hiện xã khánh thượng huyện văn bàn tỉnh lào cai
Hoặc nhập 777 đường aaa p13 q6 thì cột C hiện phường 13 quận 6 thành phố hồ chí minh hoặc 1 loạt các kết quả có thành phần gần đúng nhất thì mình dùng cách nào ạ

Bạn thử đưa file mô tả lên coi nào

 

[Canh thịt]

File mô tả đây bạn

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

Bạn thử đưa file mô tả lên coi nào

Mình để file bên dưới rồi nãy

 

[snow25]

File mô tả đây bạn

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

Mình để file bên dưới rồi nãy

Bạn biết gì về VBA không.

 

[Canh thịt]

Bạn biết gì về VBA không.

Bạn cho mình xin code cũng đc ạ

 

[snow25]

Bạn cho mình xin code cũng đc ạ

Thử code chỉ cần nhập từ cần tìm kiếm.

Private Sub Worksheet_Change(ByVal Target As Range)
Application.ScreenUpdating = False
Application.EnableEvents = False
      Dim lr As Long, arr, i As Long, dk As String, s As String
      If Not Intersect(Target, Range("D2:D10000")) Is Nothing Then
         If Target.Count = 1 Then
            dk = UCase(Target.Value)
            lr = Range("C" & Rows.Count).End(xlUp).Row
            arr = Range("C2:C" & lr).Value
            For i = 1 To UBound(arr)
                If InStr(UCase(arr(i, 1)), dk) Then
                   s = s & ";" & arr(i, 1)
                End If
            Next i
          End If
      End If
  If Len(s) Then
     Target.Offset(, 1).Value = Right(s, Len(s) - 1)
  Else
     Target.Offset(, 1).Value = Empty
  End If
Application.ScreenUpdating = True
Application.EnableEvents = True
End Sub

 

[Canh thịt]

Thử code chỉ cần nhập từ cần tìm kiếm.

Private Sub Worksheet_Change(ByVal Target As Range)
Application.ScreenUpdating = False
Application.EnableEvents = False
      Dim lr As Long, arr, i As Long, dk As String, s As String
      If Not Intersect(Target, Range("D2:D10000")) Is Nothing Then
         If Target.Count = 1 Then
            dk = UCase(Target.Value)
            lr = Range("C" & Rows.Count).End(xlUp).Row
            arr = Range("C2:C" & lr).Value
            For i = 1 To UBound(arr)
                If InStr(UCase(arr(i, 1)), dk) Then
                   s = s & ";" & arr(i, 1)
                End If
            Next i
          End If
      End If
  If Len(s) Then
     Target.Offset(, 1).Value = Right(s, Len(s) - 1)
  Else
     Target.Offset(, 1).Value = Empty
  End If
Application.ScreenUpdating = True
Application.EnableEvents = True
End Sub

Tks bạn để mình thử