VBA Excel : Copying across sheets using alphanumeric range vs cells

Question

有点奇怪的标题，我会解释我在问什么。

使用.Range("A1:B2").copy与使用 .Range(Cells(1, 1), Cells(2, 2)).copy .

两者都可以，但只有当我在实际工作表上时。如果调用宏时我在另一张纸上，则只有字母数字范围有效。

有问题的实际代码:

CurrentExtractSheet.Range("A2: AR" & (CurrentExtractCount + 1)).Copy
PreviousExtractSheet.Range("A2").PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks:=False, Transpose:=False

对比

CurrentExtractSheet.Range(Cells(2, 1), Cells(CurrentExtractCount + 1, 45)).Copy
PreviousExtractSheet.Range("A2").PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks:=False, Transpose:=False

那么我要问的是有什么办法可以解决这个问题(我更喜欢使用 Cells 方法而不是字母数字范围)？是否 Cells首先需要一个事件表(我也不特别喜欢)？

提前致谢。

Answer 1

您不需要将 CurrentExtractSheet 设置为 ActiveSheet，但您确实需要将它包含在您的 Cells 命令中，这样......

CurrentExtractSheet.Range(CurrentExtractSheet.Cells(2, 1), CurrentExtractSheet.Cells(CurrentExtractCount + 1, 45)).Copy

或者

With CurrentExtractSheet
 .Range(.Cells(2, 1),.Cells(CurrentExtractCount + 1, 45)).Copy
End With