在Excel中生成表单

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

Answer 1

用一个地方创build一个“模板”分析表来粘贴一列数据，然后制作该模板的副本并复制粘贴到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