答案:=IF(OR(A1=1,A1=2,A1=3),A1,A1&B1&C1&D1)关于实现“查找并替换”的宏我相要编写一个自动替换的宏。要替换的内容如下:把特殊符号“▼”替换为“▼”即把原特殊符号前后各加上一个换行符。Sub Macro()Cells.Replace What:="▼", Replacement:=Chr(10) & "▼" & Chr(10), lookAt:=xlPart, SearchOrder _:=xlByRows, MatchCase:=False, SearchFormat:=False, ReplaceFormat:=FalseEnd Sub用了一下,有问题,把“, SearchFormat:=False, ReplaceFormat:=False”删除后就能用了,不过,原有的文本格式设置都没有了,有点儿得不偿失了,呵呵。我在想,删除里的“ReplaceFormat”是用来指定格式的吧,可我看了“Replace”的帮助,没有这个参数设置的。我用的是Execl2000,不知道有没有联系。有关输入数字的提示①、可作为数字使用的字符 在 Microsoft Excel 中,数字只可以为下列字符: