Question

EXCEL 一个表里面有个隐藏的表 如何用VB复制这个表 创建新的表！！！ 有图！！！！ 大神帮帮忙！！！！！

比如 一个工作薄里面 我把Sheet1隐藏掉如何使用宏或者VB复制Sheet1 创建一个新表Sheet4跟Sheet1 一模一样

做个按钮还可以无限创建 Sheet4 Sheet5 Sheet6 Sheet7.............





Answer 1

Sub CopySheet()
    Dim newsheet As Worksheet
    Dim sheetname As String
    sheetname = InputBox("请输入要复制的工作表名：", "复制工作表")
    If sheetname = "" Then Exit Sub
    On Error Resume Next
    Sheets(sheetname).Activate
    If Err <> 0 Then
        MsgBox "指定工作表不存在"
        Exit Sub
    End If
    On Error GoTo 0
    With Sheets(sheetname)
        Sheets(sheetname).Copy after:=Worksheets(Worksheets.Count)
        ActiveSheet.Name = sheetname & "副本"
        .Visible = False
    End With
End Sub
至于按钮，可以创建一个按钮控件，然后链接到此宏即可。

追问

谢谢大神！
我想不弹出任何框框 只要按一下按钮 就自己创建一个新的
新的表格名字没有任何要求

追答

你是否只重复复制Sheet1为一个新表，如果这样，代码更改如下：

Sub CopySheet()
    With Sheets("Sheet1")   
        .Visible = True
        .Copy after:=Worksheets(Worksheets.Count)
        ActiveSheet.Name = ActiveSheet.CodeName
        .Visible = False
    End With
End Sub

创建按钮：在"开发工具"-"插入" ，选择“表单控件”下按钮，会弹出“指定宏”对话框，选择该宏。