Excel 工作表的名称随单元格内容改变

按ALT+F11弹出VBA编辑器

左边sheet列表双击选择你要实现这个效果的表格，右边空白的代码框处贴入以下代码

方法一

Private Sub Worksheet_Change(ByVal Target As Range)
 If Target.Address = "$A$1" Then ActiveSheet.Name = Target
End Sub

方法二

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Dim ShtC As Integer
Dim RngC As Integer
Dim i As Integer
ShtC = Sheets(1).[A65536].End(xlUp).Row
RngC = Sheets.Count
For i = 1 To Application.WorksheetFunction.Min(ShtC, RngC)
Sheets(i).Name = Sheets(1).Cells(i, 1)
Next i
End Sub