Question

我使用以下代码选择固定列中的最后3行（动态位置），以便我可以推断到单元格Q37。

selection of last 3 rows in column Q R and S

Sheets("Data").Select
LastRow = Range("S" & Rows.Count).End(xlUp).Row
Set Last3Rows = Range("Q" & LastRow - 2, "S" & LastRow)
Last3Rows.Select

自从最后3个单元格以来，我无法继续将这些值自动填充到第37行。不同工作表的位置有所不同。

我以前从动态结尾自动填充的代码是：

Last3Rows.Select
Range ("Q:S" & Range("Y" & Rows.Count).End(xlUp).Row), Type:=xlFillDefault
    Range("Q18:S37").Select

Y是一列，其值为第37行。我该如何进行自动填充？

Answer 1

这是一行代码，可以满足我的想法。第一部分选择要粘贴的范围，第二部分选择要复制的范围。

Sheets("Data").Range("Y37:AA39").Value = Range("Q" & Cells.Rows.Count).End(xlUp).Offset(-2).Resize(3, 3).Value

Answer 2

请注意，在您的示例中，您不能使用.AutoFill方法我希望我明白你的意思：

LastRow = Range("S" & Rows.Count).End(xlUp).Row
Set Last3Rows = Range("Q" & LastRow - 2, "S" & LastRow)
Last3Rows.AutoFill Destination:=Last3Rows.Resize(37 - LastRow + Last3Rows.Rows.Count, 3)

从活动动态选择到特定单元格的自动填充目标

2 个答案: