1、复制原来的数值区域，在目标区域，右键-选择性粘贴-格式，点确定。
2、查找-格式-黄色-查找全部，下面显示的查找到的所有项，ctrl+A全选，关闭。
3、输入1，ctrl+enter。
说明：这种方法可以实现你要的效果，缺点是：目标区域 无法实时动态变化，只能在原数据全部填充好颜色后，选择性粘贴。
利用查找功能：Ctrl+f打开查找工具栏，点击格式-填充-选择黄色-确认即可，如下图（测试OK):
用VBA代码操作。
