我现在相对excel中一列求和,其中行数是改变的
xlssheet.Cells(no1, 2) = xlssheet.Application.WorksheetFunction.Sum()
其中no1代表最后需要写入数据的行数。
假如从第cells(5,2)一直加到cells(no-1,2),sum中该如何写呢?
谢谢!

解决方案 »

  1.   

    打开EXCEL,录制宏,做上述操作,
    然后编辑宏,里面就有原代码,EXCEL里面怎么写的,基本上可以原封不动搬到VB里面用。
      

  2.   

    Sheet2.Cells(23, 34) = Str(totalCH1) 'totalCH1  是在前边给表格赋值时单个加的和
         ''same as
    '   Sheet2.Range("AH23").Value = Application.WorksheetFunction.Sum("AH8:AH22")
    或者如楼上录制宏
      

  3.   

    for循环就可以,定义好相应的变量就可以