上QQ阅读APP看本书，新人免费读10天
设备和账号都新为新人
1.5 练习与思考
1.为自动求和程序提升容错及兼容性。
假设A2:H10存放生产数据，利用代码对各列求和，结果存放在A11:H11区域中，其代码如下：
Sub 多列求和()
Range("A12:H12").Select
Selection.FormulaR1C1 = "=SUM(R[-10]C:R[-1]C)"
End Sub
如何优化代码，使其具有通用性和防错性。
2.对数据比较程序提速。
以下程序用于比较两个数据是否一致，不区分大小写。请对它进行优化，提升执行速度。
Sub 两列比较且不区分大小写()
Dim rng As Range
For Each rng In Range("a1:a1000")
If UCase(rng.Text) <> UCase(rng.Offset(0, 1).Text) Then rng.Offset(0,
2) = "不一致"
Next rng
End Sub
3.利用防错语句判断单元格是否存在条件格式。