在你要自动替换的工作表标签上右击,然后在弹出菜单中选择“查看代码”将下列代码复制到代码窗口中,就可以实现你的要求:PrivateSubWorksheet_Change(ByValTargetAsRange)IfTarget.Value=3ThenTarget="△"IfTarget.Value=5ThenTarget="○"EndSub如果你还有其它要求,自己试试改一下代码就行了。