arr=range("S1:S320")
brr=range("A1:A5600")
crr=range("B1:B5600")
For b = 1 To 320
BuySellTime = Val(Left(arr(b,1), 8))
For BB = 3 To 5600
If BuySellTime = Val(brr(BB,1)) Then
Range("T" & b).Value = Val(crr(BB,1))
Exit For
End If
Next
Next
Range("S" & b).这个改成cells(b,"s"),其它的几个地方也改一下，应当能快些。
另外数据先读取到数组，处理的结果也放到数组，最后再写进去也可能会快些。
For b = 1 To 320
BuySellTime = Val(Left(Range("S" & b).Value, 8))
if application.countif(range("A:A"),BuySellTime ) >0 then
rw = range("A:A").find(BuySellTime ,lookin:=xlvalues,lookat:=xlwhole).row
Range("T" & b).Value = Val(Range("B" & rw ).Value)
end if
Next
内容全部来源于网络收集，如有侵权，请联系网站删除：QQ：24596024