我想将特定列中最后一行的值复制到另一个单元格中，
例如，这是我找到的代码，它是G列中最后一次使用的rown
Dim LastRow As Long LastRow = Range("G65536").End(xlUp).Row
现在LastRow得到行的地址的值，我需要这样修改这个代码，所以它会复制LastRow的值（不是地址），而不是超过这个单元格的这个值到另一个地址为“Q1”的Cell “
如果有人能帮忙告诉我，谢谢！
Range.Copy method 具有允许您将 Range 复制到所需目的地的参数 .
Range.Copy method
Range
根据MSDN Range.Copy 语法如下：
Range.Copy
expression.Copy(Destination) expression A variable that represents a Range object.
在您的情况下，您可以按如下方式调用它：
Range("G65536").End(xlUp).Copy Range("Q1")
如果需要， Range("Q1") 应更改为任何其他单元格
Range("Q1")
根据微软MVP：
您不应该使用数字，因为不同版本的Excel具有不同的最大行数 .
.Cells(.Rows.Count, "Q") 是Q列底部的最后一个单元格 .
.Cells(.Rows.Count, "Q")
.Cells(.Rows.Count, "Q").End(xlUp).Row 是列Q中最后一个非空单元格的行号 .
.Cells(.Rows.Count, "Q").End(xlUp).Row
所以你应该使用Cells（Rows.Count，“G”） . End（xlUp）.Row
要查找使用的行数：
ActiveSheet.UsedRange.Rows.Count
2 回答
Range.Copy method具有允许您将Range复制到所需目的地的参数 .根据MSDN
Range.Copy语法如下：在您的情况下，您可以按如下方式调用它：
如果需要，
Range("Q1")应更改为任何其他单元格根据微软MVP：
您不应该使用数字，因为不同版本的Excel具有不同的最大行数 .
.Cells(.Rows.Count, "Q")是Q列底部的最后一个单元格 ..Cells(.Rows.Count, "Q").End(xlUp).Row是列Q中最后一个非空单元格的行号 .所以你应该使用Cells（Rows.Count，“G”） . End（xlUp）.Row
要查找使用的行数：