vba中怎么新建工作表并命名

在VBA中，可以使用Sheets.Add方法来新建工作表，然后使用Name属性来给工作表命名。以下是一个简单的示例代码：

Sub CreateAndNameSheet()
    Dim newSheet As Worksheet
    
    ' 新建工作表
    Set newSheet = ThisWorkbook.Sheets.Add
    
    ' 给工作表命名
    newSheet.Name = "新工作表"
End Sub

在这个示例中，我们使用ThisWorkbook.Sheets.Add方法来新建工作表，并将返回的工作表对象赋值给newSheet变量。然后，我们使用newSheet.Name属性来给工作表命名为"新工作表"。