只限定B2这个固定单元格吗?那可以用下面的VBA语句来实现:按Alt+F11快捷键,在左侧管理器上双击你当前的工作表名称,然后粘贴进去就行了。PrivateSubWorksheet_Change(ByValTargetAsRange)IfTarget.Address="$B$2"ThenActiveSheet.Name=Range("B2").ValueEndSub