一个excel里面的列求和函数

感谢僵尸大佬的技术支持

这个函数主要解决一些单元格类型是文本的求和问题,文本的话还得转数值然后求和,实际上太麻烦了,不如绕过这一步

使用飞跃大佬的excelget函数做为底子,然后仿写了一下飞跃大佬之前写的一个写入数组的句子

ExcelSumRow(whichrow,Begin:=2,){
objExcel:=Excel_Get()
last:=objExcel.ActiveSheet.Cells(objExcel.Rows.Count,whichrow).End(3).Row
arr:=[]
loop, % last-1
	arr.Push( objExcel.Cells(A_Index+Begin-1,15).Text )
log4ahk(arr)
sum:=0
loop,% last-1
    sum:=sum+arr[A_Index]
log4ahk(sum)
Return sum
}

第一个参数是第几列要求和,第二个参数是避免一些第一行是表头,填写从第几行开始就可以了

经僵尸大佬指点,加一个瘦身版

MsgBox,% ExcelSumRow(15,2)
ExcelSumRow(whichrow,Begin:=2){
sum:=0
objExcel:=Excel_Get()
last:=objExcel.ActiveSheet.Cells(objExcel.Rows.Count,whichrow).End(3).Row
loop,% last-1
    sum+=objExcel.ActiveSheet.Cells(A_Index+Begin-1,whichrow).Text
Return sum
}