excel - 使用 VBA 在 Excel 中复制列中的最后一行

Question

我想将特定列中最后一行的值复制到另一个单元格中，

例如，这是我用来查找 G 列中最后使用的行的代码

Dim LastRow As Long

LastRow = Range("G65536").End(xlUp).Row

现在 LastRow 获取行地址的值，我需要以这种方式修改此代码，以便它将复制 LastRow 的值（而不是地址），然后将此单元格的值传递到地址为“Q1”的另一个单元格中"

有谁可以帮忙告诉我一下，谢谢！

Answer 1

根据微软 MVP：

您不应使用数字，因为不同版本的 Excel 具有不同的最大行数。

.Cells(.Rows.Count, "Q")是 Q 列底部的最后一个单元格。

.Cells(.Rows.Count, "Q").End(xlUp).Row是 Q 列中最后一个非空白单元格的行号。

所以你应该使用 Cells(Rows.Count, "G").End(xlUp).Row

要查找使用的行数：

ActiveSheet.UsedRange.Rows.Count 

Answer 2

Range.Copy method具有允许您复制Range到所需目的地的参数。

根据 MSDNRange.Copy语法如下：

expression.Copy(Destination)
expression   A variable that represents a Range object.

在您的情况下，您可以按如下方式调用它：

Range("G65536").End(xlUp).Copy Range("Q1")

Range("Q1")如果需要，应在哪里更改为任何其他单元格