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