宏无法正常工作的10台计算机之一

我的同事遇到了我制作的小宏的问题,该宏仅通过单击按钮来下拉公式。该宏可在除她以外的其他所有计算机上工作。

咬线时

j = Application.WorksheetFunction.CountA(Workbooks("Backlog_Cal").Worksheets("Menu").Range("I:I")) - 1

它给出订阅超出范围的错误,就好像它的名称中包含拼写错误。

当我做一个测试麦科

dim j as long
j = Application.WorksheetFunction.CountA(Range("I:I"))
MsgBox j

在工作表菜单处于活动状态的地方它起作用了。

我担心这会弄乱我将来为某人制作的其他宏

先感谢您

评论