以上是我之前的查询：vba code - copy cells above when value changes
这是有帮助的，但如果可能的话，我想补充一点。我需要将几行相同的行复制到每个新创建的工作表（这些行在第一个活动工作表上）。每个新工作表的行相同，并且在上面的宏填充的数据下面大约2行。此外，我想为这个专栏填写重复数据。因此，该列将包括：由宏填充的数据加上每个新工作表的相同预设行以及此列中的重复项检查。结果将显示不重复的值，以便我知道我需要将它们添加到我的应用程序中？如何将其添加到代码中？：）
下面适合某个地方吗？
Sheets("Results".Range("A1:A36").Copy Destanation:=Sheets(Activeworkbook.Sheets.Count)
谢谢！