Question

VBA怎么写选定区域的求和位置？

数据非常多且行数不固定，目前写宏的构思就是：1、手动选择区域；2、运行宏命令；3、自动求和到所选区域的最后一行的右侧指定单元格。求大神解答

Answer 1

参考

Excel怎样使有颜色自动等于下面无颜色部分之和

Answer 2

=IF(COUNTIF($A$2:A2,A2)=COUNTIF(A:A,A2),SUMIF(A:A,A2,B:B),"")

Answer 3

这个公式就可以做到，无须VBA，C2单元格公式=IF(A2=A3,"",SUMIF(A:A,A2,B:B))

追问

你这个公式不行啊，相同的a列的数据行数不确定，而且我只要在相同数据的最后一行计算统计值

追答

C2单元格公式=IF(ROW()=MAX(IF(A:A=A2,ROW(A:A))),SUMIF(A:A,A2,B:B),"")

数组公式，需按Ctrl+Shift+Enter三键结束公式，使公式前后产生大括号{}后，下拉公式。 如图：

为了提高运算速度，可根据表格数据行数多少设定公式，如：将C2单元格公式设定成=IF(ROW()=MAX(IF(A$2:A$1000=A2,ROW(A$2:A$1000))),SUMIF(A$2:A$1000,A2,B$2:B$1000),"")