- 帖子
- 199
- 主題
- 45
- 精華
- 0
- 積分
- 252
- 點名
- 0
- 作業系統
- windows 7 (X64)
- 軟體版本
- office 2010 (x64)
- 閱讀權限
- 20
- 性別
- 男
- 來自
- 桃園
- 註冊時間
- 2010-12-24
- 最後登錄
- 2020-3-31
 
|
4#
發表於 2011-1-5 23:17
| 只看該作者
本帖最後由 linshin1999 於 2011-1-6 10:03 編輯
Jumky妳好:如果用巨集指令可願意乎?
Sub 搬移儲存格資料
Range("C4").Cut
Range("D7").select
ActiveSheet.Paste
End Sub
如果很多的話,妳可以用兩個陣列來做對吊的工作如下:
Sub 搬移儲存格資料
Dim delete_data, copy_data
delete_data = Array("A5", "B9", "C2", "G3", "D5", "E4", "F7")
copy_data = Array("A9", "B2", "C6", "G5", "D2", "E7", "F2")
Dim i As Integer
For i = 0 To 5
Range(delete_data(i)).Cut
Range(copy_data(i)).select
ActiveSheet.Paste
Next i
End Sub
試試看很好玩的 |
|