求VBA编码，不打开工作表情况下选定区域的替换。

Question

Sheets("票据打印").Select
Range(Cells(4, 2), Cells(a, 2)).Select '定位选定使用范围
Selection.Replace What:="", Replacement:="以下空白", LookAt:=xlWhole, _
SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=False, _
ReplaceFormat:=False
你好！对VBA基本是白丁。请帮忙把这句改为不打开“票据打印”页就可以写入。内容是查找选定区域的空白单元格以“以下空白”填充。
谢谢！

Answer 1

为什么要不打开的情况下？
宏是内嵌在Excel中的，不打开就不会运行。如果一定要不打开这个Excel，也必须要另外打开别的Excel，然后调用别的VBA来处理此表。当然，最好就直接改用VB而不是用VBA。

追问

哦，可能我没讲清楚。我是在账目工作簿的“清单”页操作，把需要打印票据的信息转给“票据打印”页。如果每次都显示“票据打印”页影响运行速度。谢谢！

追答

Sheets("票据打印").Range(Cells(4, 2), Cells(a, 2)).Replace What:="", Replacement:="以下空白", LookAt:=xlWhole, SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=False, ReplaceFormat:=False

追问

你是拿这句Sheets("票据打印").Range(Cells(4, 2), Cells(a, 2)).覆盖了Selection.这句吗，然后接着其它内容Replace What:="",、、、、、、
我试了一下，提示“应用程序定义或对象定义错误”，是我那没搞对吗？

追答

疏忽了，Range不能选定非活动工作表区域并进行查找替换。不好意思。
改成如下吧：(你查找的范围是第4行到第a行）
for i=4 to a
if Sheets("票据打印").cells(i,2)="" then Sheets("票据打印").cells(i,2)="以下空白"
next i

Answer 2

fiberzhw 这样修改肯定出错啦，这段代码是用宏来录制的，如果要达到你的要求，必须要重新用VBA来制作，不能用录制宏！