|
[广告] Excel易用宝 - 提升Excel的操作效率 · Excel / WPS表格插件 ★ 免费下载 ★ ★ 使用帮助★
做个简单的模型,如上图所示,F列"工程造价小计"=工程量(或单位)× 单价。行数是动态增加的。。 。
====================================
说之前, 大家可以先考虑一下自己的思路
====================================
Sub test()
dim i%
On Error Resume Next
For i = 1 To [a1].CurrentRegion.Rows.Count
If IsNumeric(Cells(i, 1)) Then Cells(i, "F") = Cells(i, "C") * Cells(i, "E")
Cells(i, "F") = Cells(i, "D") * Cells(i, "E") ‘正是利用了on error resume next 错误则不执行的特性
Next
End Sub
代码很简单,但是细想一下这个思路其实还是很不错的,可以扩展开来用到很多地方。
在别的地方还没有见到过这种用法, 所以分享给大家。
小子刚学VBA,有什么不对的地方还请各位老师斧正。
|
|