excel - 在这个例子中如何避免可怕的 'Select' 、 'Copy' 和 'Paste' ？

Question

这行得通，但我知道这是邪恶的:

EIRPLLs.Select
Range(Cells(1, RevCol - 2), Cells(lastRevRow, RevCol + 3)).Copy
EIRPCases.Select
[A1:F1].Select
ActiveSheet.Paste
Selection.PasteSpecial Paste:=xlPasteValues

以下内容旨在等效，但导致对象“_Worksheet”的方法“范围”失败:

EIRPCases.Columns("A:F") = EIRPLLs.Range(Cells(1, RevCol - 2), Cells(lastRevRow, RevCol + 3)).Value

这也失败了:

EIRPCases.Range(Cells(1, 1), Cells(lastRevRow, 6)) = EIRPLLs.Range(Cells(1, RevCol - 2), Cells(lastRevRow, RevCol + 3)).Value

什么是正确的实现？

Answer 1

我会这样做:

With EIRPLLs.Cells(1, RevCol - 2).Resize(lastRevRow, 6)
    EIRPCases.Range("A1").Resize(.Rows.Count, .Columns.Count).Value = .Value
End With