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

Question

我需要将一个工作表中的单元格内容复制到另一个工作表。目前我有这个代码。这有什么问题？当我运行它时，它给了我错误。工作表的数量不是恒定的。我需要将单元格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

Answer 1

试试这个：

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

希望这有帮助。