Warning: file_get_contents(/data/phpspider/zhask/data//catemap/5/excel/25.json): failed to open stream: No such file or directory in /data/phpspider/zhask/libs/function.php on line 167

Warning: Invalid argument supplied for foreach() in /data/phpspider/zhask/libs/tag.function.php on line 1116

Notice: Undefined index: in /data/phpspider/zhask/libs/function.php on line 180

Warning: array_chunk() expects parameter 1 to be array, null given in /data/phpspider/zhask/libs/function.php on line 181

Warning: file_get_contents(/data/phpspider/zhask/data//catemap/5/flutter/10.json): failed to open stream: No such file or directory in /data/phpspider/zhask/libs/function.php on line 167

Warning: Invalid argument supplied for foreach() in /data/phpspider/zhask/libs/tag.function.php on line 1116

Notice: Undefined index: in /data/phpspider/zhask/libs/function.php on line 180

Warning: array_chunk() expects parameter 1 to be array, null given in /data/phpspider/zhask/libs/function.php on line 181
Excel-如何选择刚复制的工作表_Excel_Vba - Fatal编程技术网

Excel-如何选择刚复制的工作表

Excel-如何选择刚复制的工作表,excel,vba,Excel,Vba,以下代码行是VBA宏的一部分 Sheets("sheetName").copy After:=Sheets(Sheets.count) Set copySheet = Sheets(Sheets.count) 上述代码应使用名称sheetName复制工作表,然后将复制的工作表设置为copySheet。从我第二次运行宏开始,它就以某种方式正确运行。第一次,它选择了错误的纸张 因为我希望复制的工作表是隐藏的,所以我认为我也不能使用Set copySheet=ActiveSheet 因此,作为解决方

以下代码行是VBA宏的一部分

Sheets("sheetName").copy After:=Sheets(Sheets.count)
Set copySheet = Sheets(Sheets.count)
上述代码应使用名称sheetName复制工作表,然后将复制的工作表设置为copySheet。从我第二次运行宏开始,它就以某种方式正确运行。第一次,它选择了错误的纸张

因为我希望复制的工作表是隐藏的,所以我认为我也不能使用
Set copySheet=ActiveSheet

因此,作为解决方案,我正在寻找一种方法或变量,我可以选择“复制的工作表”。VBA是否有这样的命令或变量?

使用“活动”对象并不总是很好,但以下是一种替代方法:

Sub SetSt()

Dim copySheet As Excel.Worksheet

Sheets("sheetName").Copy After:=Sheets(Sheets.Count)
Set copySheet = Sheets(Excel.ActiveSheet.Name)

End Sub

对我来说,不管工作表是否隐藏,比如Brettdj,我对你的原始代码没有任何问题。

这对我来说很好-你能发布你的完整代码吗?