利用excel2010 VBA完成以下功能：①新建一个sheet表，命名为“工作表1”；②将sheet1表的图1复制，粘贴到“工作表1“

使用Excel 2010的VBA（Visual Basic for Applications）可以轻松地完成上述任务。下面是编写两个步骤的VBA宏代码示例：

Sub CreateSheetAndCopyChart()
    '步骤一：新建一个名为"工作表1"的工作表
    Dim wsNew As Worksheet
    Set wsNew = ThisWorkbook.Sheets.Add(After:=ThisWorkbook.Sheets(ThisWorkbook.Sheets.Count))
    wsNew.Name = "工作表1"

    '步骤二：假设图1在一个已存在的工作表上，比如Sheet2
    Dim wsOriginal As Worksheet
    Set wsOriginal = ThisWorkbook.Sheets("Sheet2")
    
    '复制图表
    Dim ChartObject As Object
    If wsOriginal.ChartObjects.count > 0 Then
        For Each ChartObject In wsOriginal.ChartObjects
            If ChartObject.HasChart Then
                '复制图1
                ChartObject.Copy
                '粘贴到新的工作表
                wsNew.Paste
                Exit For '跳出循环，因为我们只复制第一个图表
            End If
        Next ChartObject
    Else
        MsgBox "Sheet2上没有找到图表。"
    End If
End Sub

运行这个宏，你会在工作簿中创建一个新的工作表并将其命名为“工作表1”，然后从“Sheet2”的第一个图表复制并粘贴到新工作表。