Warning: file_get_contents(/data/phpspider/zhask/data//catemap/0/vba/16.json): failed to open stream: No such file or directory in /data/phpspider/zhask/libs/function.php on line 167

Warning: Invalid argument supplied for foreach() in /data/phpspider/zhask/libs/tag.function.php on line 1116

Notice: Undefined index: in /data/phpspider/zhask/libs/function.php on line 180

Warning: array_chunk() expects parameter 1 to be array, null given in /data/phpspider/zhask/libs/function.php on line 181
Vba 列中特定单元格的总和_Vba_Excel - Fatal编程技术网

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
应该会给您一些提示。(注意颜色编码☺)