在Excel中生成表格

Question

在Sheet1中，我有几行不同度量（列）的数据点。我手动创建了第二张工作表，对第一列数据执行一些分析。如何创建一个宏或VBA代码，以便为Sheet1中的每个列创建一个新工作表，并执行与我手动创建的完全相同的分析？谢谢。

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