先清理一下概念,一个excel文档.xls,这是工作簿,里面的Sheet1、2这些是工作表。你的意思是批量修改一个工作簿里面的600个工作表(汗)的名字。要是这样的话,你在sheet1(工作表一)里面添加一个按钮,然后在 Private Sub CommandButton1_Click() For n = 1 To 600 Sheets(n).Name = Sheets(n).Range("A2").Value Next End Sub 你要保证所有的a2单元格的数据不同,excel不允许出现同名的工作表