只查找最后一行怎么就不行呢？

a57403080

想精准查找 ，我改不了呀！大神帮我看看

awp57

excel最好不要合并单元格
代码可以重写

一把小刀闯天下

Option Explicit

Sub test()
  Dim arr, i, p, m, r, s
  With Sheets("sheet1")
    arr = .Range("a1:c" & .Cells(Rows.Count, "b").End(xlUp).Row + 1).Value
  End With
  p = 2
  For i = 2 To UBound(arr, 1) - 1
    If Len(arr(i + 1, 1)) > 0 Or i = UBound(arr, 1) - 1 Then
      m = m + 1
      arr(m, 1) = arr(p, 1): arr(m, 2) = p: arr(m, 3) = i
      p = i + 1
    End If
  Next
  With Sheets("sheet2")
    .Columns("c").Resize(, 9).Clear
    s = .[b2].Value: r = 2
    For i = 1 To m
      If InStr(arr(i, 1), s) Then
        Sheets("sheet1").Cells(arr(i, 2), "a").Resize(arr(i, 3) - arr(i, 2) + 1, 9).Copy .Cells(r, "c")
        r = r + arr(i, 3) - arr(i, 2) + 1
      End If
    Next
  End With
End Sub

一把小刀闯天下

      If InStr(arr(i, 1), s) Then 修改一下就为精确查找：

----------------------------------------

      If arr(i, 1) = s Then

a57403080

一把小刀闯天下 发表于 2020-6-6 21:25
Option Explicit

Sub test()

好像不行呀

一把小刀闯天下

a57403080 发表于 2020-6-7 20:16
好像不行呀

可能你用错了附件，一楼的附件测试过没有问题，，，

a57403080

一把小刀闯天下 发表于 2020-6-7 20:34
可能你用错了附件，一楼的附件测试过没有问题，，，

查找第一个，查找不出来

lwwy1981

用三楼的代码,没问题

a57403080

已经修改好了，感谢你们的帮助