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

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
至于按钮，可以创建一个按钮控件，然后链接到此宏即可。