Excel VBA 用 .Cells 定义 .Range

Question

我在尝试选择/复制工作表中的某些范围时遇到了问题。我已尽我所能缩小范围。

这很好用：

dataSheet.Cells(dRow, dataSheet.Range("IO_MODULES").Column).Select

这不是：

dataSheet.Range(Cells(dRow, dataSheet.Range("IO_MODULES").Column), Cells(dRow, dataSheet.Range("IO_MODULES").Column)).Select

这就是我想要做的：

dataSheet.Range(Cells(dRow, dataSheet.Range("IO_MODULES").Column), Cells(dRow, dataSheet.Range("MODULE_END").Column)).Copy Destination:= _
dataSheet.Range(Cells(dataSheet.Range("MODULE_1").Row + i - 1, dataSheet.Range("D_COUNT").Column + 1), Cells(dataSheet.Range("MODULE_1").Row + i - 1, dataSheet.Range("DATA_COL_END").Column))

我似乎误解了 Worksheet.Cells 和 Worksheet.Range 之间的关系。我需要做的是能够根据我命名的单元格的行号和列号选择一系列单元格。

Answer 1

UNTESTED 尝试将其从一个Range 复制到另一个：

'...
Dim Source As Range, Dest As Range

With dataSheet
    Set Source = .Range(.Cells(dRow, .Range("IO_MODULES").Column), _
        .Cells(dRow, .Range("MODULE_END").Column))
    Set Dest = .Range(.Cells(.Range("MODULE_1").Row + i - 1, .Range("D_COUNT").Column + 1), _
        .Cells(.Range("MODULE_1").Row + i - 1, .Range("DATA_COL_END").Column))
    Source.Copy Dest
End With

1. With...End With 允许您对单个对象（在本例中为dataSheet）进行多次操作，而无需每次都显式调用它。 您编写的每一行代码都是必须维护和可能调试的行，所以当您可以更简洁而又不失可读性时，您应该这样做。 （更多关于With...End With的声明在这里：http://msdn.microsoft.com/en-us/library/office/gg264723(v=office.15).aspx）
2. 通过命名Ranges，您可以使用超级友好的Range.Copy 方法，概述如下：http://msdn.microsoft.com/en-us/library/office/ff837760(v=office.15).aspx。这使您能够绕过 .Select 或 .Activate，根据我的经验，这是运行时错误的主要来源。