程序问答   发布时间:2022-06-02  发布网站:大佬教程  code.js-code.com
大佬教程收集整理的这篇文章主要介绍了Excel VBA - 将总和公式放入行数可变的单元格中?大佬教程大佬觉得挺不错的,现在分享给大家,也给大家做个参考。

如何解决Excel VBA - 将总和公式放入行数可变的单元格中??

开发过程中遇到Excel VBA - 将总和公式放入行数可变的单元格中?的问题如何解决?下面主要结合日常开发的经验,给出你关于Excel VBA - 将总和公式放入行数可变的单元格中?的解决方法建议,希望对你解决Excel VBA - 将总和公式放入行数可变的单元格中?有所启发或帮助;

我正在创建一个宏,它从一张纸中获取一些变量输入(即可能有 2 个,可能有 3 个,可能有 6 个)并在另一张纸上制作一个具有该行数的表格(所以有可以是 2 行、3 行等)。

我还试图在表格底部有一行,用于计算每列所有输入的总和。使用 Range Value "=Sum(RangE)" 的简单求和函数是人们通常会做的。

但是,由于行数可变,我无法输入固定范围。如果我尝试使用 ENd.(xlUp) 来解决这个问题,它将不起作用,因为我试图在该单元格中有一个公式并留在该单元格中。如果我使用 WorksheetFunction.Sum(RangE),那么公式将不会保留在该单元格中 - 相反,它会对该范围进行一次求和,并将结果作为数字留在该单元格中。

那么,有什么方法可以在将“=SUM(rangE)”保留在所需单元格中的同时解释变量?

解决方法

试试这个。这是正确的,如果你在 A 列中求和的范围

Sub test()
Set ws = Worksheets("Sheet1")
lastRow = ws.Range(ws.Cells(1,1),ws.Cells(Rows.Count,1).End(xlUp).Rows).Count
Set Rng = ws.Range(ws.Cells(1,ws.Cells(lastRow,1))
ws.Cells(lastRow + 1,1).Formula = "=SUM(" & Rng.Address(0,0) & ")"
End Sub

大佬总结

以上是大佬教程为你收集整理的Excel VBA - 将总和公式放入行数可变的单元格中?全部内容,希望文章能够帮你解决Excel VBA - 将总和公式放入行数可变的单元格中?所遇到的程序开发问题。

如果觉得大佬教程网站内容还不错,欢迎将大佬教程推荐给程序员好友。

本图文内容来源于网友网络收集整理提供,作为学习参考使用,版权属于原作者。
如您有任何意见或建议可联系处理。小编QQ:384754419,请注明来意。