excel - VBA，Excel。执行偏移并调整范围大小的代码，然后复制它。 “Compile error: Invalid watch expression”

Question

我试图偏移，调整大小并复制包含数据的范围，并在立即窗口中键入以下代码行:

shAll.Range("A1:I78").Offset(1).Resize(.Rows.Count - 1, .Columns.Count - 
1).SpecialCells(xlCellTypeVisible).copy

当我按Enter键时，出现以下错误:“编译错误:无效的监视表达式”

这是语法问题吗？

在立即窗口中执行时，这部分代码可以正常工作:

shAll.Range("A1:I78").Offset(1).select

我想要的方式被抵消了。剩下的部分是调整大小并复制它。

顺便说一下，范围 shAll.Range("A1:I78")包含所有单元格中的数据。

提前致谢!

Answer 1

您尚未指定.Rows和.Columns适用于哪个对象。

如果它们适用于该范围，则

With shAll.Range("A1:I78")
    .Offset(1).Resize(.Rows.Count - 1, .Columns.Count - 1).SpecialCells(xlCellTypeVisible).copy
End with

要么

shAll.Range("A1:I78").Offset(1).Resize(shAll.Range("A1:I78").Rows.Count - 1, _
shAll.Range("A1:I78").Columns.Count - 1).SpecialCells(xlCellTypeVisible).copy