优化大量数据的循环

Question

For indY as Integer = 1 To xLsheet.UsedRange.Rows.Count Then
If aRndLAcctNo.Contains(xLsheet.Cells(indy + 1, 2).Value.ToString()) Then
aRndLTotProd.Add(Indy)
End If
Next

当我将它设置为“至1000”时效果很好。但是，当我使用'To xLsheet.UsedRange.Rows.Count'时，它会抛出一个错误。我的excel文件包含16000行。请帮助优化For Loop。或者，如果你可以建议另一种方法，我可以得到excel文件的行，其中包含已经在arndLacctNo字符串列表中的项目..

Answer 1

你在这里遇到的主要问题是你没有研究错误信息的文本，其次也没有在你的问题中包含错误信息。

假设你收到了这样的话：

prog.vb (5,63) : Error VBNC30205: Expected end of statement.

这告诉你，“在文件prog.vb，第5行，第63栏，你有一个拼写错误;而不是声明的结尾你还有别的东西”。

在我的情况下，第5行第63列是Then没有相应If潜伏的地方。查看您自己的错误消息，找到您自己的代码位置，并在那里删除有问题的关键字。这是一个简单的语法错误，与行数无关。