带宏的总和列

Question

我正在尝试从一张Excel工作表中复制数字，并将这些数字的总和粘贴到与其值对应的另一个Excel工作表上。

复制sum单元格B20:R20并找到粘贴到另一个工作表C上的下一个空单元格到下一个空单元格

Answer 1

这是一个简单的示例，显示与您提出的问题相关的基本代码。这只是为了让你开始，你需要根据自己的情况进行修改

Sub copyVals()
Dim r As Range, r2 As Range, sh As Worksheet, sh2 As Worksheet
Set sh = Worksheets("1")
Set sh2 = Worksheets("2")
Set r = sh.Range("S2")
r.formula = "=sum(B2:R2)"
sh2.Activate
Set r2 = sh2.Range("C1").End(xlDown).Offset(1, 0)
Application.CutCopyMode = False
r.copy
r2.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
End Sub