怎么从含糊条件抓取单元格内容

泉州♀毛茛

假设B列/C列的其中一列含 A2单元格文本，可以用求B列C列的单元格含A2的单元格文本，返回B列或C列单元格的内容吗

一把小刀闯天下

'可能是这样,猜了2种可能

Option Explicit

Sub test1()
  Dim i, arr, s, n, j
  arr = Range("b1:c" & Cells(Rows.Count, "b").End(xlUp).Row)
  ReDim brr(1 To UBound(arr, 1) * 2, 1 To 1)
  s = [a2].Value
  For i = 1 To UBound(arr, 1)
    For j = 1 To UBound(arr, 2)
      If InStr(arr(i, j), s) Then
        n = n + 1
        brr(n, 1) = arr(i, j)
      End If
    Next
  Next
  With [e1]
    .Resize(Rows.Count, 2).ClearContents
    If n > 0 Then .Resize(n) = brr
  End With
End Sub

Sub test2()
  Dim i, arr, s, n, j, k
  arr = Range("b1:c" & Cells(Rows.Count, "b").End(xlUp).Row)
  s = [a2].Value
  For i = 1 To UBound(arr, 1)
    For j = 1 To UBound(arr, 2)
      If InStr(arr(i, j), s) Then
        n = n + 1
        For k = 1 To UBound(arr, 2)
          arr(n, k) = arr(i, k)
        Next
        Exit For
      End If
    Next
  Next
  With [e:f]
    .ClearContents
    If n > 0 Then .Resize(n, UBound(arr, 2)) = arr
  End With
End Sub

泉州♀毛茛

一把小刀闯天下 发表于 2018-7-15 16:26
'可能是这样,猜了2种可能

Option Explicit

可以用函数吗

泉州♀毛茛

可以帮我看下吗

ww87725244

还是没有说明情况啊，含糊？含糊到什么程度，结果想要什么？

泉州♀毛茛

ww87725244 发表于 2018-7-15 21:57
还是没有说明情况啊，含糊？含糊到什么程度，结果想要什么？

我再输入关键字 那么我的判断表格里会自动抓取到含关键内容

泉州♀毛茛

ww87725244 发表于 2018-7-15 21:57
还是没有说明情况啊，含糊？含糊到什么程度，结果想要什么？

就是我再关键字的单元格 录入关键字，下面表头的内容会用公式直接再注释表格直接引用，列入我再关键录入“鸡“ 那么判断里条款、税率、政策号、政策名称 都自动引用里面条款

ww87725244

泉州♀毛茛 发表于 2018-7-15 22:05
就是我再关键字的单元格 录入关键字，下面表头的内容会用公式直接再注释表格直接引用，列入我再关键录入 ...

输入一个关键字，全表格查找？

泉州♀毛茛

ww87725244 发表于 2018-7-15 22:16
输入一个关键字，全表格查找？

就是我输入关键字，含关键字相关内容依照表头引用过来并且不重复

泉州♀毛茛

ww87725244 发表于 2018-7-15 22:16
输入一个关键字，全表格查找？

输入关键字，从另外一个表里查找出含关键字条文并且引用过来。