Excel 将单元格内容复制到同一工作簿中的其他工作表。

我需要将一个工作表中单元格的内容复制到另一个工作表中。目前我有这个代码。怎么了？当我运行它时，它会给我错误。工作表的数量不是恒定的。我需要将单元格C4的内容复制到工作簿的最后一个工作表中

Sub WorksheetLoop()

         Dim Store As Integer
         Dim WS_Count As Integer
         WS_Count = ActiveWorkbook.Worksheets.Count

            Store = ActiveWorkbooks.Sheets(5).Range("C4").Value
            ActiveWorkbooks.Sheets(WS_Count).Range("C4").Value = Store

End Sub

试试这个：

Sub WorksheetLoop()

Dim Store As Integer

Store = ActiveWorkbook.Sheets("Sheet_name").Range("C4").Value 'Better to specify the name of the sheet
ActiveWorkbook.Sheets(ActiveWorkbook.Sheets.Count).Range("C4").Value = Store
'This writes the value of Store in C4 of the last sheet

---

希望这有帮助。

如果您的工作表编号小于5，则会出现错误。还有什么是W_计数？对不起，忘了那一行。编辑代码确定，首先您应该使用

ActiveWorkbook

，而不是

ActiveWorkbook

。然后，正如我在帖子中所说的，最好指定源代码的

工作表名称。如果您的工作表少于5张，
sheets（5）
将抛出一个错误。我可以用数字来代替它的名称吗？例如，页（1）是第一页，页（n）是第n页。这可能吗？是的，这是可能的，但请确保分配的编号不会大于图纸总数。如何确定源数据？我是说工作表编号？我在工作簿中有20个工作表，程序需要在所有工作表中复制单元格C4，并将其粘贴到新工作表中。我已经完成了。谢谢你的帮助！：）NP我提供的哪些帮助帮助了你呵呵，他只是好奇。你给的代码和关于能够用数字来写地址的信息，哈哈：）