With Worksheets("usb")
Set arr1 = .Range("A1:A" & .[C65536].End(xlUp).Row)
Set arr2 = .Range("B1:B" & .[C65536].End(xlUp).Row)
Set arr3 = .Range("C1:C" & .[C65536].End(xlUp).Row)
Set arr4 = Union(arr1, arr2, arr3)
If Instr(arr3, "某些数据")>0 Then
' 写入某个单元格 arr1和arr2的数据
End If
End With
For i=0 to 65535
If arr3(i).value=? then
Worksheets(?).cell(x,y).value=arr1.value+arr2.value
Endif
Next
短短一句话，居然没看懂，⊙﹏⊙b汗
内容全部来源于网络收集，如有侵权，请联系网站删除：QQ：24596024