VBA Findnext问题

这个代码的工作，直到input* ** * ** * ***之间的编码我试图做两个不同的search在同一时间。 有人可以解释我做错了什么？ 谢谢

Public Sub Swap() With Sheet1.Range("A:A") Set LastCell = .Cells(.Cells.Count) End With Set FoundCell = Sheet1.Range("A:A").Find(what:=cusip, after:=LastCell) If Not FoundCell Is Nothing Then FirstAddr = FoundCell.Address End If Do Until FoundCell Is Nothing account = Sheet1.Cells(FoundCell.Row, 2) ''#************************************* Set FoundCell2 = Sheet2.Range("B:B").Find(what:=account) If Not FoundCell2 Is Nothing Then FirstAddr2 = FoundCell2.Address End If ''#********************************************* Set FoundCell = Sheet1.Range("A:A").FindNext(after:=FoundCell) ''#Break out of loop when searched through all of the cusips If FoundCell.Address = FirstAddr Then Exit Do End If Loop End Sub 

Answer 1

你不能同时做两个不同的查找。 这是Excel的对象模型的限制。 只有一个查找“光标”，并且当您在A：A中尝试FindNext时，这将在B：B中的某处。 你必须为其中一个发现做旧效率低下的循环方式。 这里是你如何循环内部查找

 Public Sub Swap() Dim LastCell As Range Dim FoundCell As Range Dim FoundCell2 As Range Dim FirstAddr As String Dim FoundAddr As String Dim Account As Variant Const CUSIP As String = "Cusip" Set LastCell = Sheet1.Cells(Sheet1.Rows.Count, 1) Set FoundCell = Sheet1.Range("A:A").Find(what:=CUSIP, after:=LastCell) If Not FoundCell Is Nothing Then FirstAddr = FoundCell.Address Do Account = Sheet1.Cells(FoundCell.Row, 2) FoundAddr = "" For Each FoundCell2 In Intersect(Sheet2.UsedRange, Sheet2.Columns(2)).Cells If FoundCell2.Value = Account Then FoundAddr = FoundCell2.Value Exit For End If Next FoundCell2 If Len(FoundAddr) = 0 Then FoundAddr = "Not Found" End If Debug.Print FoundCell.Address, FoundAddr Set FoundCell = Sheet1.Range("A:A").FindNext(after:=FoundCell) Loop Until FoundCell Is Nothing Or FoundCell.Address = FirstAddr End If End Sub