用VBA生成一个批量删除“研究员考核评分”工作表之后的工作表的代码

以下是用 VBA 生成批量删除“研究员考核评分”工作表之后的工作表的代码：

Sub DeleteWorksheets()
Dim ws As Worksheet
Application.DisplayAlerts = False
For Each ws In ThisWorkbook.Worksheets
If ws.Name > "研究员考核评分" Then
ws.Delete
End If
Next ws
Application.DisplayAlerts = True
End Sub

请注意，这段代码将删除名字在“研究员考核评分”之后的所有工作表。如果您需要删除其他工作表，请修改代码中的条件语句。