結束（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列