Excel 使用宏对列求和

我试图从一张Excel表格复制数字，并将数字的总和粘贴到另一张与其值相对应的Excel表格上

复制求和单元格

B20:R20

，并在粘贴到下一个空单元格的另一张纸上的列C中找到下一个空单元格

---

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

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

---

欢迎光临！在这个网站上，你应该尝试自己编写代码。之后，如果你有问题，你可以张贴你已经尝试了一个明确的解释什么是不工作，并提供一个解决方案。我建议读“和”。另外，一定要读“和”。我不确定这是一个编程问题。