代码之家 › 专栏 › 技术社区 › Deepak

如何在EXCEL的不同(非相邻)列中选择最后三行

excel-2010 excel vba

1

Deepak · 技术社区 · 8 年前

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

我使用了上面给出的代码,但它选择了C、B和A。请帮助我。

1 回复 | 直到 8 年前

1

3

Subodh Tiwari sktneer 8 年前

你可以试试这样的。。。

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")