Dim arr(), brr(), iRows As Integer, i As Integer, iocv As Double, iimp As Integer, iccv As Double, iocv1 As String, iimp1 As String, iccv1 As String
Dim K As Integer, M As Integer, m1 As Integer, N As Integer, n1 As Integer
iRows = Worksheets("111").Range("a" & Rows.Count).End(xlUp).Row - 4
M = UBound(arr, 1)
N = UBound(arr, 2)
ReDim brr(1 To M, 1 To N)
K = 0
For i = 1 To M
If Evaluate(arr(i, 2) & iocv1 & iocv) Then
K = K + 1
For j = 1 To N
brr(K, j) = arr(i, j)
Next j
End If
Next i
m1 = UBound(brr, 1)
n1 = UBound(brr, 2)
ReDim arr(1 To m1, 1 To n1)
For i = 1 To m1
For j = 1 To n1
arr(i, j) = brr(i, j)
Next j
Next i
M = UBound(arr, 1)
N = UBound(arr, 2)
ReDim brr(1 To M, 1 To N)
K = 0
For i = 1 To M
If arr(i, 1) = "" Then Exit For '为什么从这里开始 数组值为空 赋值就提示类型错误,有什么好的解决办法
If Evaluate(arr(i, 3) & iimp1 & iimp) Then
K = K + 1
For j = 1 To N
brr(K, j) = arr(i, j)
Next j
End If
Next i
m1 = UBound(brr, 1)
n1 = UBound(brr, 2)
ReDim arr(1 To m1, 1 To n1)
For i = 1 To m1
If brr(i, 1) = "" Then Exit For
For j = 1 To n1
arr(i, j) = brr(i, j)
Next j
Next i
M = UBound(arr, 1)
N = UBound(arr, 2)
ReDim brr(1 To M, 1 To N)
K = 0
For i = 1 To M
If arr(i, 1) = "" Then Exit For
If Evaluate(arr(i, 4) & iccv1 & iccv) Then
K = K + 1
For j = 1 To N
brr(K, j) = arr(i, j)
Next j
End If
Next i
m1 = UBound(brr, 1)
n1 = UBound(brr, 2)
ReDim arr(1 To m1, 1 To n1)
For i = 1 To m1
If brr(i, 1) = "" Then Exit For
For j = 1 To n1
arr(i, j) = brr(i, j)
Next j
Next i
M = UBound(arr, 1)
N = UBound(arr, 2)
iRows = Worksheets("111").Range("F" & Rows.Count).End(xlUp).Row
Worksheets("111").Range("F5:I" & iRows).Clear
Worksheets("111").Range("F5").Resize(M, N).Value = arr