|
楼主 |
发表于 2017-9-21 19:12
|
显示全部楼层
版主的建议是好的,值得推广。还有您帮我写的代码没错。我要向大哥学习写的代码,然后在仿照一下。大哥可以看下我仿照的代码,不足之处多多指教。Sub zz()Dim ar, br, i%
ar = Range("b4:i" & Cells(Rows.Count, 2).End(3).Row)
ReDim br(1 To UBound(ar), 1 To 2)
For i = 1 To UBound(ar) - 2
br(i, 1) = Right(ar(i, 1) + ar(i + 1, 8), 3) / 16
If Left(br(i, 1), 1) = "." Then
br(i, 2) = 10
Else
br(i, 2) = Left(br(i, 1), 1)
End If
Next i
[n6].Resize(UBound(br), 2) = br
End Sub
|
|