打开“工具-宏-visual basic编辑器”，插入“模块”，然后粘贴如下代码，并按F5执行，会自动将各页的A1单元格中内容作为标题替换sheet1、sheet2、sheet3等页标题。
Sub titleFromA1()
For Each Sheet In Worksheets
If Sheet.Cells(1, 1).Text <> "" Then
Sheet.Name = Sheet.Cells(1, 1).Text
End If
Next
End Sub
这个要用到VBA
sub test
for i=1 to sheets.com
sheets(i).name=sheets(1).range("A"&i+1).value
next
end sub
这段代码可以将工作表名称统一变更为sheet1工作表A2单元格开始（A2：An区域）的名称
