EXCEL VBA中新添加一张工作表后，如何返回原有工作表进行操作，请各位大侠指教

Question

如题所述

Answer 1

With Sheets(ActiveSheet.Name) '用 “.”代替当前工作表

''''''''''''''''''''''''若“temp”表不存在则新建一个''''''''''''''''''''''
On Error Resume Next '忽略下方的陷阱错误
With Sheets("temp")
If Err.Number <> 0 Then '指定的工作表不存在
Sheets.Add.Name = "temp" '添加的新表自动激活为当前表
Err.Clear
End If
End With
'''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
.Select ''''''激活返回“.”原有工作表进行操作
'该干啥就干啥
End With

试试看

Answer 2

在添加新的Sheet前，对当前表进行记录，类似如下代码
Sub Run()
Dim Obj As Worksheet
Set Obj = ActiveSheet'记录原来的Sheet
Sheets.Add'增加新的Sheet
Obj.Cells(1, 1) = "操作"'对原来的Sheet进行操作
Set Obj = Nothing
End Sub本回答被提问者和网友采纳

Answer 3

要分下是工作薄还是工作表
工作表即一个EXCEL文件，如果该文件没有关闭的话，可用workbooks("文件名").actiavte 返回
如果工作表，即SHEET,可用SHEETS("工作表名“）.select 返回原表

Answer 4

看下你原来的代码，加新工作表可以不改变当前活动工作表的