Question

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

就是SHEET名称会自动根据某表格内容而自动变化，望高人赐教，谢谢。我用的EXCEL 2010版本。

Answer 1

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

追问

不甚感激，我是想在一张工作表内把工作表标签名称全部填进去，然后工作表标签自动读取。
譬如下面工作标签自动读取：
SHEET1 2-1 周一
SHEET2 2-2 周二
SHEET3 2-3 周三
SHEET4 2-4 周四
SHEET5 2-5 周五
SHEET6 2-6 周六
SHEET7 2-7 周日
SHEET7 2-8 周一
........

追答

可将脚本修改为：
Sub titleFromA1()
For Each Sheet In Worksheets
If Worksheets(1).Cells(Sheet.Index, 1).Text "" Then
Sheet.Name = Worksheets(1).Cells(Sheet.Index, 1).Text
End If
Next
End Sub
其中，假定你存放标签名称从A1开始。如果你存放标签名称的单元格是从C3开始，那么cells中的行列定位相应修改为 sheet.index+2,3

Answer 2

这个要用到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区域）的名称