vba - Excel VBA 的 Find 和 FindNext

Question

我一直在试图弄清楚如何处理这个问题，但基本上我想要一种方法来打印出 B 列中的值，给定与 A 列匹配的特定值。例如:

Column A    Column B
1           ABC
2           DEF
3           GHI
1           JKL

我想，在使用 find/findnext 或其他任何东西之后，打印出这个字符串:

ABC JKL

我尝试使用

Set cellFound = ActiveWorkbook.Worksheets("sheet1").Range("F1:F1000000").Find("1")
string = cellFound.Offset(0, 1).value

而且我有一个循环来循环处理所需的所有行。但是随着 find 它不断返回我相同的第一个字符串(“ABC”)并且该字符串最终是 ABC ABC 而不是 ABC JKL

我尝试使用 FindNext 而不是 find，但得到的是 1004 错误。所以我不确定我在哪里做错了。有人有什么想法吗？

Answer 1

你不需要查找下一个 如果您开始每个 查找 在上一个之后:

Sub qwerty()
   Dim rFirst As Range, r As Range
   Dim A As Range
   Set A = Range("A:A")
   Do
      If rFirst Is Nothing Then
         Set rFirst = A.Find(What:=1, After:=A(1))
         Set r = rFirst
      Else
         Set r = A.Find(What:=1, After:=r)
         If r.Address = rFirst.Address Then Exit Do
      End If
         MyString = MyString & " " & r.Offset(0, 1)
   Loop

   MsgBox MyString
End Sub