求列和

来源：互联网发布：java自动化构建工具编辑：程序博客网时间：2024/04/28 04:06

之前动态报表列求和是在excel自己输入公式在隐藏单元格实现，昨天发现了有更好的实现方法。代码如下：

Dim rng As Range
    With Cells(6, 3)
        Set rng = Range(.Offset(1), .Offset(1).End(xlDown))
        .Formula = "=SUM(" & rng.Address(rowabsolute:=False, _
            columnabsolute:=False) & ")"
        .Copy Destination:=Range(.Offset(0), .Offset(1).End(xlToRight).Offset(-1))
    End With

效果图：

64到69就是求和的行，会自动求列和。

有几个学习的地方：

1. 是end方法和强大，上下左右的单元格都可以查找，以后可以好好利用。它会一直找到第一个非空的cell。

2. cells和offset的基准分别是从1和0开始。

例子如下：

cells(20,20).cells(1,1).value = 123456

其实仍然是对cells(20,20)赋值，没有偏移。相当于cells(20,20).offset(0,0)语句.

例子中的copy语句offset(1)后面又有offset(-1)就是利用了上面的特性。