Question

我有一个VBA宏，其中一部分循环遍历已定义字符串的数组，并在工作表的A列中找到它们。

如果数组的所有字符串都存在于A列中，则此工作完全正常，但如果字符串不存在则会失败。

我一直在用一个简单的if语句来帮助我。如果未找到数组值，请移动下一步

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

有什么建议吗？

Answer 1

Dows有帮助吗？

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

Excel - VBA - 在工作表中搜索数组值

1 个答案: