一、在第一个工作表中插入一命令按钮 视图-工具栏-控件工具箱 再增加一个“命令按钮” 二、定义一个查找功能的过程,如: 工作表名在A1单元格 Private Sub CommandButton1_Click() Dim i As Integer Dim shtName As String shtName = Range("A1").Value If shtName = "" Then Exit Sub For i = 1 To ThisWorkbook.Sheets.Count If ThisWorkbook.Sheets(i).Name = shtName Then ThisWorkbook.Sheets(i).Activate Exit For End If Next i End Sub