Board logo

標題: [發問] 選擇範圍做COPY 動作 ?? [打印本頁]
作者: t8899    時間: 2013-3-25 13:07     標題: 選擇範圍做COPY 動作 ??

A欄最後一筆資料往右移到H欄再往上移5格
再做COPY 的動作，巨集如何寫??
例如 最後一筆資料為A80
A76:H80 做COPY 動作
跟先按shift不動 再按 "->" 再按 "向上箭頭"一樣
所以要先算出A欄的所在位置 , 才有辦法做動作
我只知道
A欄的所在位置
為  Range("A65536").End(xlUp).Offset(1).Select
作者: kimbal    時間: 2013-3-25 13:24

回復 1# t8899

就是把A80 的資料放到H76 ?
      Range("A65536").End(xlUp).offset(-4,7)=Range("A65536").End(xlUp)
作者: GBKEE    時間: 2013-3-25 13:44

回復 1# t8899
  1. Sub Ex()
  2.     Dim Rng As Range
  3.     With ActiveSheet
  4.         Set Rng = .Range("A65536").End(xlUp)
  5.         .Range(Rng.Cells(-3, 1), Rng.Cells(1, 8)).Copy
  6.         '.Cells(-3, 1) 上移4列    ,  .Cells(1, 8)右移到第8欄 "H"
  7.     End With
  8. End Sub
複製代碼
作者: t8899    時間: 2013-3-25 14:43

回復  t8899
GBKEE 發表於 2013-3-25 13:44

答案完全正確, 謝謝解答!



歡迎光臨 麻辣家族討論版版 (http://forum.twbts.com/)