Question

我试图使该单元格的总范围为另一个工作表，但我一直陷于困境。范围行和列各不相同，但起点始终为C2。我需要从C2到使用范围的其余部分总计（aka排除A和B列以及第1行，但包括其他所有内容）。

请帮助。

Range("A1").Formula = "Wage Totals"
Range("A2").Formula = "=SUM(" & ActiveWorkbook.Sheets("Wage").Range(Cells(2, 3), Cells.SpecialCells(xlCellTypeLastCell)).Address(False, False) & ")"

Answer 1

查看此链接Using SUM() in VBA

您可以使用该想法将代码更改为：

Dim lastCol As Long
Dim lastRow As Long

lastCol = Sheets("Wage").Cells(1, Sheets("Wage").Columns.Count).End(xlToLeft).Column
lastRow = Sheets("Wage").Cells(Sheets("Wage").Rows.Count, 1).End(xlUp).Row

Range("A1").Value = "Wage Totals"
Range("A2").Value = WorksheetFunction.Sum(Sheets("Wage").Range(Sheets("Wage").Cells(2, 3), Sheets("Wage").Cells(lastRow, lastCol)))

这是一个非常幼稚的解决方案，因为它假定可以通过在“ A”列上查找上次使用的行以及在第1行上查找上次使用的col来找到使用范围的限制。您可以更改查找限制的方法。

对另一个工作表中的范围求和

1 个答案: