Копирование содержимого ячейки на другой рабочий лист в той же книге.

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 

Надеется, что это помогает.