2013年10月25日 星期五

Excel VBA 取得工作表的最後一欄或最後一列

可以使用ActiveSheet.Rows.Count與ActiveSheet.Columns.Count來取得

最後一列
Cells(ActiveSheet.Rows.Count, 1).End(xlUp).Row

最後一欄

Cells(1, ActiveSheet.Columns.Count).End(xlToLeft).Column

 

例:

Worksheets("sheet1").Range("H2").Copy
ActiveSheet.Paste Destination:=Worksheets("sheet1").Range("H3:h" & Cells(ActiveSheet.Rows.Count, 1).End(xlUp).Row)

沒有留言: