Vba 列中特定单元格的总和
我正在运行一个宏,其中需要列中一系列单元格的总和。但这在每次跑步中都是一个变量。每次运行宏时,单元格的范围都会有所不同。我尝试使用此链接上的答案 但它不适用于我的代码Vba 列中特定单元格的总和,vba,excel,Vba,Excel,我正在运行一个宏,其中需要列中一系列单元格的总和。但这在每次跑步中都是一个变量。每次运行宏时,单元格的范围都会有所不同。我尝试使用此链接上的答案 但它不适用于我的代码 first_line = ws.Cells(i, k).Value last_line = ws. cells(i + 3, k).Value sum_each_col = "=SUM(first_line, j:last_lin - 1, j)" ws.cells(last_line, j) = sum_each_col j是
first_line = ws.Cells(i, k).Value
last_line = ws. cells(i + 3, k).Value
sum_each_col = "=SUM(first_line, j:last_lin - 1, j)"
ws.cells(last_line, j) = sum_each_col
j是列号。
它不起作用。我肯定我误解了代码中的某些内容。请您看一下,因为我只是这方面的初学者。假设您想在一列中找到前三行的总和。然后在该列的第四行中,你必须得到总和。该列第四行的VBA代码如下所示
ws.cells(4,j) = "=SUM(R[-3]C:R[-1]C)"
也许你可以用这个
With ws
first_line = .Cells(i, k).Value
last_line = .Cells(i + 3, k).Value
.Cells(last_line, j) = WorksheetFunction.Sum(.Range(.Cells(first_line, j), .Cells(last_line - 1, j)))
End With
worksheetfunction.sum
要将变量添加到字符串中,您需要首先关闭字符串:MsgBox“开始于行”&第一行&“结束于行”&最后一行-1
应该会给您一些提示。(注意颜色编码☺)