Excel VBA：复制动态范围直到指定文本

首先，我必须强调，我对

VBA

不熟悉，我是一名审计员，希望在当前工作之外扩展我的技能

我正在测试做一个代码来总结一个时间表，我被困在从透视表复制一个范围的部分

所以我想要的是复制范围

“N7”

和下面的所有行，直到出现文本

“总计”

。所有介于“总计”和单元格“N7”之间的内容都要复制到单元格“C11”中

我不知道从哪里开始。我认为首先我需要使用循环，但我不确定。如果有任何帮助，我将不胜感激

---

谢谢，

如果您的总计是工作表中的最后一行，请计算工作表中的最后一行数据并向上移动一行：

Dim LastRow as Long
With Worksheets("WorksheetName")
    LastRow = .Cells(.Cells.rows.count).End(xlUp).Row
    .Range("N7:N" & LastRow-1).Copy
End With

---

这就是您复制该范围的方式，是否要将该范围内的值相加以放入c11？

到目前为止，我们可以看到您的代码吗？以前没有太多代码，只有通过宏记录器创建pivo表的代码。或者使用

匹配

来定位总计行（以防下面有更多数据）我运行了代码，得到了错误消息“Application defined or boject defined error”（应用程序定义或对象定义错误）。我唯一更改的是工作表名。我看不到代码中的文本“总计”，有点混乱。