Sub test()
Dim A, B, i&, r&
r = Cells(Rows.Count, 1).End(xlUp).Row
A = Range("a3:f" & r)
ReDim B(1 To UBound(A), 1 To 1)
For i = 1 To UBound(A)
If VBA.IsNumeric(A(i, 1)) And VBA.IsNumeric(A(i, 6)) Then B(i, 1) = A(i, 6) - A(i, 1)
Next i
Range("h:h").ClearContents
[h3].Resize(UBound(B)) = B
End Sub
Book两数差2.rar
(80.47 KB, 下载次数: 14)