Sub FindSheet() Dim wb As Workbook Dim ws As Worksheet Dim sheetName As String ' 设置要查找的Sheet名称 sheetName = "物品" ' 获取当前活动的Workbook Set wb = ActiveWorkbook ' 遍历每个Worksheet For Each ws In wb.Worksheets ' 检查Sheet名称是否匹配 If ws.Name = sheetName Then ' 找到了目标Sheet MsgBox "找到名为" & sheetName & "的Sheet！" ' 进行其他操作，如在该Sheet上进行数据处理 ' 退出循环，不再继续遍历其他Sheet Exit For End If Next ws ' 如果没有找到目标Sheet If ws Is Nothing Then MsgBox "未找到名为" & sheetName & "的Sheet！" End IfEnd Sub