如何将工作表标签Sheet1,Sheet2,Sheet3...自动等于某表格内的（周一、周二、周三.....）数字或公式值？

打开“工具-宏-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 Nex