vba如何求整列的和

excel 表格中可以用自动求和或sum()函数来求和,但当行数发生变化时,就需要在去求一次,可以用下面的语句自动判断某一列的最后一行,求这一列的和。例如求B列的和:

Worksheets(“sheet2”).Range(“b1”).Select

n = Cells(65532, 2).End(xlUp).Row
Cells(n + 1, 3) = “=SUM(b1:b” & n – 1 & “)” ‘对b 列求和,并写入C列最后一个单元格
同样小小的演变以下,可以求两列的和
Worksheets(“sheet2”).Range(“b1”).Select

n1 = Cells(65532, 2).End(xlUp).Row
n2=Cells(65532, 3).End(xlUp).Row
if n1>n2 then
n=n1
else
n=n2
end if
Cells(n + 1, 4) = “=SUM(b1:c” & n – 1 & “)” ‘对b、 c列求和,并写入d列最后一个单元格
再经过其它演变就又会有不同的用途,^_^。

excel保存时提示不能通过“文档检测器删除”

        excel 在使用宏的保存的时候,提示此文档中包含宏、active插件、XML扩展包信息或web组件,其中可能包含个人信息,并且这些信息不能通过“文档检测器”进行删除。

可以通过如下方法解决:1)、去掉个人信息选项-文档检测器前的勾,Excel2003->工具\选项\安全性\个人信息选项,excel2007,Excel开始->Excel选项->信任中心->信任中心设置>个人信息选项。

2)、在vba工程中,excel 对象的thisbookwork中加入下面的代码也可以解决。
                     private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As Boolean)
                                  ThisWorkbook.RemovePersonalInformation = False
                     End Sub