删除所有工作表，只有一个工作表在循环内循环

Sub DeleteWorksheets()
    Dim ws As Worksheet
    
    ' 循环删除除第一个工作表外的所有工作表
    Application.DisplayAlerts = False ' 禁止显示删除确认对话框
    For Each ws In ThisWorkbook.Worksheets
        If ws.Index > 1 Then
            ws.Delete
        End If
    Next ws
    Application.DisplayAlerts = True ' 恢复显示删除确认对话框
    
    ' 在循环内循环的工作表中执行操作
    For Each ws In ThisWorkbook.Worksheets
        ' 在这里编写你需要执行的操作代码
        ' 例如：在A1单元格中输入文本"Hello, World!"
        ws.Range("A1").Value = "Hello, World!"
    Next ws
End Sub