避免使用复制和粘贴 VBA 进行选择

Question

我正在尝试减少对 select 的使用。我一直在参考下面的文章，但我不完全确定如何在这种情况下实现它。为了练习，我有下面的工作代码集，我用它来复制 B1 中的值并将其粘贴到 A 列中填充的尽可能多的行中。如果有人可以指导我如何避免这个坏习惯以便编写更多有效高效的代码，不胜感激！

How to avoid using Select in Excel VBA

    Range("B1").Select
    Selection.Copy
    ActiveCell.Offset(0, -1).Select
    Selection.End(xlDown).Select
    ActiveCell.Offset(0, 1).Select
    ActiveSheet.Paste
    Application.CutCopyMode = False
    Selection.Copy
    Range(Selection, "B1").Select
    ActiveSheet.Paste

Answer 1

所有这些代码都可以翻译成这样：

Range("B1:B" & Cells(Rows.Count, "A").End(xlUp).Row).Value = Range("B1").Value

我们使单元格B1 到B 中的Range 和A 列中的最后一行单元格（我们使用Cells(Rows.Count, "A").End(xlUp).Row 得到）等于单元格B1 中的值.

Answer 2

其他人已经为您的代码提供了直接的解决方案。但是对于您关于如何避免选择的“指导”的问题，这就是正在发生的事情......

考虑将 .Select 存储为对其所附加的任何内容的引用。

Range("B1").Select 

是说存储对 Range: B1 的引用。

Selection.Copy

表示使用该引用，并调用函数 Copy

您可以直接访问它，而不是使用引用。

Range("B1").Copy

现在，由于您的复制和粘贴，您有两个不同的引用，即您的源和目标。因此，您可以直接将值从源应用到目标，而无需调用复制和粘贴功能。

Range(<DestinationRange>).value = Range(<SourceRange>).value

偏移函数只是说从指定的范围开始，然后移动指定数量的列或行，并使用此单元格作为参考。

Answer 3

你可以这样做：

Sub copyPaste()
Dim lastRow As Long

lastRow = Cells(Rows.Count, 1).End(xlUp).Row

Sheets("Sheet1").Range("B1:B" & lastRow).Value = Sheets("Sheet1").Range("A1:A" & lastRow).Value
End Sub