Home / Questions / 14530
Accepted
Priscila Estala
Asked: 2020-06-21 13:17:35 +0800 CST 2020-06-21 13:17:35 +0800 CST

如果数组中的字符串值则...vba

  • 772

我正在使用一个宏，我想要做的是将列的值与数组中的值进行比较，如果发现它删除整行，我不知道是指令找到值，我的代码：

Dim i, c, last_row As Integer
Dim myarray As Variant
Dim Product As String

myarray = Array("J8031A#ACC", "J8031A#ACQ", "A2W80A")
last_row = wsMissingSCM2.Range("A22").End(xlDown).Row

For c = 22 To last_row

 Product = wsMissingSCM2.Cells(c, 4).Value

 **If IsArray(Product) Then** 'Tengo este codigo pero no me funciona

    Rows(c).EntireRow.Delete

 End If
Next c
array

1 Answers

  1. Best Answer

    从SO 上的这个答案中，您需要一个辅助函数来检查数组中是否存在值：

    Function IsInArray(stringToBeFound As String, arr As Variant) As Boolean
  IsInArray = (UBound(Filter(arr, stringToBeFound)) > -1)
End Function

    现在是的，当你找到值时，使用这个函数来做你需要的事情：

    ' ...
For c = 22 to last_row
    Product = wsMissingSCM2.Cells(c,4).value
    If IsInArray(Product, myarray) then
        Rows(c).EntireRow.Delete
    End If
next c
' ...
    • 3