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

问题描述：

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

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

这东西吗？ 'Range（“A1：AH”＆Range（“C”＆Rows.count）.End（xlUp）.Row - 2）.Select'请注意，使用Select选项效率低下，通常是不必要的。 – SJR

答

你需要把-2偏移部分，并将支架在正确的位置

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

只要最终排在C列