1.5 练习与思考_Excel 2010 VBA编程与实践-QQ阅读男生轻小说网

书名：Excel 2010 VBA编程与实践
作者名：罗刚君章兰新黄朝阳编著
本章字数：200字
更新时间：2020-08-27 02:13:48

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.利用防错语句判断单元格是否存在条件格式。