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。帮助我。
你可以试试这样的...
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")
本文收集自互联网,转载请注明来源。
如有侵权,请联系[email protected] 删除。
我来说两句