close

可以使用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)

arrow
arrow
    全站熱搜

    alyoou 發表在 痞客邦 留言(0) 人氣()

    E-mail轉寄