结束（xlUp），但从选定区域删除底部2行？

Question

Sub SelectRangeDown_Discontiguous()
   Range("A1:AH1", Range("c1048576").End(xlUp)).Offset(0, 0).Select
End Sub

我正在使用上面的宏从要复制的活动工作表中选择数据。但是，有一行没有数据，然后是底部的页脚，所以我需要在复制之前减少2行选择的区域。

Answer 1

您需要在偏移部分放置-2并将括号放在正确的位置

Sub SelectRangeDown_Discontiguous()
   Range("A1:AH1", Range("C1048576").End(xlUp).Offset(-2, 0)).Select
End Sub

只要结束行在C列中有某些内容。