是否可以使用VBA复制工作表并保留对它的引用?我知道我可以执行以下操作来保持对新工作表的引用,但我必须跟踪索引,看起来应该已经内置了可以执行此操作的内容.
Dim newws as Worksheet
Dim oldws as Worksheet
' set oldws to whatever I need, then
oldws.Copy Before:=Worksheets(1)
Set newws = Worksheets(1)
但是如果像这样的东西可用,那就更干净了,就像它适用于Worksheets.Add一样
' You can do this
Set newws = Worksheets.Add
' But definitely not this, because Sheets.Copy doesn't return anything.
Set newws = oldws.Copy Before:=1
我想我可以编写自己的函数:
Function CopyAWorksheet(ws As Worksheet, Before As Worksheet) As Worksheet
ws.Copy Before:=Before
Set CopyAWorksheet = Worksheets(Before.Index - 1)
End Function
我可以添加一个After参数并制作Before和After变体,这样它就可以完全按照我的意愿行事,但似乎我只是遗漏了已经内置到Excel VBA中的内容.如果有一些有趣的技术原因,这是不可能的,我也很乐意听到这些.
我正在使用Excel 2010.
最佳答案 首先,可能是最简单的选项 – 当您复制工作表时,新副本将成为活动工作表,因此您可以这样做:
oldws.Copy Before:=Sheets(1)
set newws = Activesheet