Excel – VBA – 在工作表中search数组值

我有一个VBAmacros，其中的一部分循环通过定义的string数组，并在工作表的列A中find它们。

如果数组的所有string都存在于A列中，那么这样做的效果很好，但如果string不存在，则会下降。

我一直在努力做一个简单的if语句来帮助我。 如果未find数组值，请移动下一步

For iArow = 0 To UBound(MyArray) - 1 iRow = Range("A:A").Find(MyArray(iArow), LookIn:=xlValues, lookat:=xlWhole).Row Range("D" & iRow).ClearContents Range("I" & iRow).ClearContents Rows(iRow + 1).Insert Rows(iRow).Insert Next iArow 

有什么build议么？

Answer 1

那些帮助？

 For iArow = 0 To UBound(myArray) - 1 Set Rng = Range("A:A").Find(myArray(iArow), LookIn:=xlValues, lookat:=xlWhole) If Not Rng Is Nothing Then iRow = Rng.Row Range("D" & iRow).ClearContents Range("I" & iRow).ClearContents Rows(iRow + 1).Insert Rows(iRow).Insert End If Next iArow