第1个回答 2009-10-23
在你要输出的地方输入公式
=IF(**<=100,IF(**>=0,1,""),"")
**为你要转换的那个单元格
比如说,你要转换的是A1单元格，那公式就是：
=IF(A1<=100,IF(A1>=0,1,""),"")
全部转换下拉公式就可以了
如果不想这样，也可以用VBA做，不过那个在这里面不好详述本回答被提问者采纳
第2个回答 2009-10-23
是要把工作表中的数字变为 1 吗？
可以把要改的数字区域选中，——>输入 1（或其他数字） ——>ctrl + enter
——即可！
第3个回答 2009-10-23
'用下面的vba代码，可以遍历当前打开的工作表，找到0-100的数值然后替换成1
Option Explicit
Sub test()
Dim a, b As Range
Set a = ActiveSheet.UsedRange
Application.ScreenUpdating = True
For Each b In a
If IsNumeric(b.Value) = True And b.Value > 0 And b.Value < 100 Then b.Value = 1
Next b
Application.ScreenUpdating = False
Set a = Nothing
End Sub
第4个回答 2009-10-23
=if(and(a1>=0,a1<=100),1,a1)
下拉复制公式。