Генерация листов в Excel

Question

В Sheet1 у меня есть строки точек данных для нескольких различных измерений (столбцов). Я вручную создал второй лист, который выполняет некоторый анализ в первом столбце данных. Как создать макрокоманду или код VBA, чтобы новый лист создавался для каждого столбца в Листе 1, и тот же анализ выполняется как тот, который я создал вручную? Благодарю.

Answer 1

Создайте аналитический лист «шаблон» с местом для вставки столбца данных, затем создайте копии этого шаблона и скопируйте его в соответствующий столбец из Sheet1.

Например:

Sub Tester() 
    Dim rngData As Range, col As Range, colNum As Integer 
    Dim shtTemplate As Worksheet, shtData As Worksheet 

    Set shtData = Sheets("Sheet1") 
    Set shtTemplate = Sheets("Template") 

    Set rngData = shtData.Range("A1").CurrentRegion 
    colNum = 0 

    For Each col In rngData.Columns 
     colNum = colNum + 1 
     shtTemplate.Copy before:=shtTemplate 
     With Sheets(shtTemplate.Index - 1) 
      .Name = "Column " & colNum 
      col.Copy .Range("A1") 
     End With 
    Next col 
End Sub