vba - 如何在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")