求教怎么将附件表格判断列公式用数组代码写出来？

puzhixin520

公司报表需要判断数据是否OK，数据量太大,我现在VBA程序用的工作函数,用起来非常卡,



求教大神,帮忙用数组+循环直接将结果写到报表,非常感谢！

TEST.zip (108.73 KB, 下载次数: 6)

2018-10-18 23:36 上传

点击文件名下载附件

hdbk

Sub abc()
Dim arr, i&, k As Integer
k = Sheets("sheet1").Range("a1048576").End(3).Row
arr = Sheets("sheet1").Range("a1:f" & k)
     For i = 2 To UBound(arr)
              If Abs(arr(i, 1)) > 100 Or Abs(arr(i, 2)) > 100 Or Abs(arr(i, 3)) > 50 _
              Or Abs(arr(i, 4)) > 80 Or Abs(arr(i, 5)) > 80 Then
              arr(i, 6) = "NG"
               Else
             arr(i, 6) = "OK"
             End If
     Next
Sheets("sheet1").Range("a1").Resize(UBound(arr), UBound(arr, 2)) = arr
End Sub

puzhixin520

hdbk 发表于 2018-10-19 00:08
Sub abc()
Dim arr, i&, k As Integer
k = Sheets("sheet1").Range("a1048576").End(3).Row

非常感谢，我想问问，我有几十万行这样的数据要处理，数组快还是公式快？

puzhixin520

非常感谢！！

puzhixin520

不相邻的数据怎么写入数组,比如我要将A列 D列 E列写入数据中，应该怎么写?