如何在EXCEL

Question

Sheets("AVG-BW").Range("E" & Rows.Count).End(xlUp).Offset(-2, -4).Resize(3, 3).Copy Sheets("Data").Range("A28")

我需要从E，D和A列自动选择最后3个值。 我使用了上面给出的代码，但选择了C，B和A.帮助我。

Answer 1

您可以尝试这样的事情......

Dim sws As Worksheet, dws As Worksheet
Dim lr As Long
Dim rng As Range

Set sws = Sheets("AVG-BW")
Set dws = Sheets("Data")

lr = sws.Cells(Rows.Count, "E").End(xlUp).Row

Set rng = Union(sws.Range("E" & lr).Offset(-2, -4).Resize(3), sws.Range("E" & lr).Offset(-2, -1).Resize(3), sws.Range("E" & lr).Offset(-2).Resize(3))
rng.Copy dws.Range("A28")