如果列表中的名称与原始数据不匹配，则停止创建工作表的Javascript宏

Sub CheckNamesAndCreateSheet()
    Dim originalData As Range
    Dim listData As Range
    Dim cell As Range
    
    ' 设置原始数据和列表数据的范围
    Set originalData = ThisWorkbook.Sheets("原始数据").Range("A1:A10")
    Set listData = ThisWorkbook.Sheets("列表").Range("B1:B10")
    
    ' 遍历列表中的每个名称
    For Each cell In listData
        If IsError(Application.Match(cell.Value, originalData, 0)) Then
            MsgBox "名称 '" & cell.Value & "' 在原始数据中找不到，停止创建工作表。"
            Exit Sub
        End If
    Next cell
    
    ' 如果所有名称都匹配，则创建新工作表
    ThisWorkbook.Sheets.Add After:=ThisWorkbook.Sheets(ThisWorkbook.Sheets.Count)
    ThisWorkbook.ActiveSheet.Name = "新工作表"
    MsgBox "所有名称匹配，已成功创建新工作表。"
End Sub