缺少函数或变量 的原因是啥？谢谢

bever

请各位大神帮忙看看，程序的目的是根据 Sheet1 中A列的值作为新工作表的名称来创建新工作表，创建的新工作表复制 Sheet2的内容。

但在调试时总是出现：缺少函数或变量，这是为什么呢？



Sub 创建工作表()
    Dim activeWorksheet As Worksheet
    Dim wsName As String
    Dim rng As Range
    Dim cell As Range
    Dim templateWorksheet As Worksheet
    Dim newWorksheet As Worksheet ' 声明新工作表对象

    ' 设置Sheet1为活动工作表
    Set activeWorksheet = ThisWorkbook.Sheets("Sheet1")

    ' 检查模板工作表Sheet2是否存在
    On Error Resume Next
    Set templateWorksheet = ThisWorkbook.Sheets("Sheet2")
    On Error GoTo 0
    If templateWorksheet Is Nothing Then
        MsgBox "模板工作表Sheet2不存在，请检查后再试。"
        Exit Sub
    End If

    ' 根据需要选择数据所在的列，这里假设数据在A列
    Set rng = activeWorksheet.UsedRange.Columns(1) ' 修改为UsedRange.Columns(1)以获取A列的非空区域

    ' 遍历指定列的每一个单元格
    For Each cell In rng
        ' 检查单元格是否为空
        If Not IsEmpty(cell) Then
            ' 获取单元格的值作为工作表名
            wsName = cell.Value
            ' 检查工作表是否已存在
            If DoesSheetExist(wsName, ThisWorkbook) = False Then
                ' 复制模板工作表的格式
                Set newWorksheet = templateWorksheet.Copy(After:=ThisWorkbook.Sheets(ThisWorkbook.Sheets.Count))
                ' 设置新工作表的名称
                newWorksheet.Name = wsName
            End If
        End If
    Next cell
End Sub

' 辅助函数，用于检查工作表是否存在
Function DoesSheetExist(sheetName As String, workbook As Workbook) As Boolean
    Dim sheet As Worksheet
    DoesSheetExist = False
    For Each sheet In workbook.Sheets
        If sheet.Name = sheetName Then
            DoesSheetExist = True
            Exit Function
        End If
    Next sheet
End Function

taller

taller

1.             If DoesSheetExist(wsName, ThisWorkbook) = False Then
   
2.                 ' 复制模板工作表的格式
   
3.                 ' ** Copy是Worksheet对象的方法，如下代码是错误的
   
4. '                Set newWorksheet = templateWorksheet.Copy(After:=ThisWorkbook.Sheets(ThisWorkbook.Sheets.Count))
   
5.                 ' ** 请改用
   
6.                 templateWorksheet.Copy After:=ThisWorkbook.Sheets(ThisWorkbook.Sheets.Count)
   
7.                 Set newWorksheet = ActiveSheet
   
8.                 ' 设置新工作表的名称
   
9.                 newWorksheet.Name = wsName
   
10.             End If

复制代码