Копирование с нескольких листов на один рабочий лист

Question

Может ли кто-нибудь помочь с кодом vba, чтобы скопировать диапазон из нескольких листов (52 недели) в сводный лист в той же книге. Диапазон одинаковый для каждого листа. Я хочу, чтобы данные можно скопировать и вставить в 52 столбцов в ssummary листе с week1 на 52 неделе

Я нашел этот код в Интернете:

Sub SummurizeSheets() 
    Dim ws As Worksheet 
    Application.ScreenUpdating = False 
    Sheets("Summary").Activate 
    For Each ws In Worksheets 
     If ws.Name <> "Summary" Then 
      ws.Range("F46:O47").Copy 
      Worksheets("Summary").Cells(Rows.Count, 1).End(xlUp).Offset(1, 0).PasteSpecial (xlPasteValues) 
     End If 
    Next ws 
End Sub 

Answer 1

Try ниже код .Также установить приложение. ScreenUpdating = True.

Sub SummurizeSheets() 
    Dim ws As Worksheet 
    Dim j As Integer, col As Integer 

    Application.ScreenUpdating = False 

    Sheets("Summary").Activate 


    For Each ws In Worksheets 
     If ws.Name <> "Summary" Then 
      ws.Range("k3:k373").Copy 

      col = Worksheets("Summary").Range("IV1").End(xlToLeft).Column + 1 
      Worksheets("Summary").Cells(1, col).PasteSpecial xlPasteValues 
      Application.CutCopyMode = False 

     End If 

    Next ws 
    Columns(1).Delete 
    Range("A1").Activate 
    Application.ScreenUpdating = True 
End Sub