Excel VBA如何将值列附加到数组？

Question

我想搜索一列数据并比较这些值。如果值不在数组中，那么我想将值附加到数组。否则，我会不断浏览每一行。我的语法有点麻烦。我可以得到一些帮助吗？

当我运行这个时，我在IsError（Application.Match（cells（i，4）.Value，codeArr，False））函数上收到错误说“无效的过程调用或参数”。

EditText

Answer 1

尝试使用此UDF

Realm.copyBundledRealmFiles()

然后替换

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

与

If IsError(Application.Match(cells(i, 1).Value, codeArr, False)) Then

我相信它会完成你所追求的目标。

修改 示例输入：

If Not IsInArray(cells(i, 1).Value, codeArr) Then

如果A列分别在第1,2,3和4行中有1,2,3和4，那么Dim codeArr As Variant codeArr = Array(4, 5, 6) cnt = 4 'Use this instead of Count as Count is a reserved word 将包含值（4,5,6,1,2,3）你循环codeArr。