EXCEL是否可以实现自动录入替换

晓月清风

以下是引用huangwl在2005-5-26 7:50:00的发言：



如何设置有效使用区域

如：A1:b15这个区域使用自动替换

Sub myReplace()

Range("a1:b15").Select '先选取区域

For Each x In Selection '对区域中所有单元格进行操作

If x.Value = "ac" Then x.Value = "ACCESS中国"   '当某一单元格的值为“ac”时替换

Next x

End Sub