主题：[求助] 这断代码运行速度怎么提高 『搞定，摆个擂台啦』

楼主的判断条件是不是重复了？

根据你的思路，应该按照帮助这样写

With DataTables("ks75xsb")

  For each dr As DataRow in .DataRows

    If .Find("借方金额=" & dr("贷方金额")) IsNot Nothing Then lst1.Add(dr)

  Next

End With

如果一定要像楼主那样写的两个判断，那么直接改变一下条件，再添加以下同样结构的代码即可