不連續儲存格該如何拖曳?

返回列表下一主題上一主題發帖

sujane0701

　暱稱: Ted

中學生 Rank: 2

帖子: 70
主題: 12
精華: 0
積分: 163
點名: 0
作業系統: windows
軟體版本: office 2010
閱讀權限: 20
性別: 男
來自: 基隆市
註冊時間: 2010-5-3
最後登錄: 2024-6-7

5^# 跳轉到 »

發表於 2011-1-6 01:49 | 只看該作者

樓主您好
提供的訊息條件不太充足,可否上傳檔案範例?
如果這些不連續儲存格,有一定的規律(比如內含某一中英數字;或同一日期時間,或其他相關可能的條件),或是這些儲存格的上下一格擁有特定狀況,或是前後儲存格具備某種條件屬性等等可供篩選參考,那應該有許多現成的excel功能可供利用,目前訊息不足以判斷,建議上傳個檔案囉~

TOP

linshin1999

中學生 Rank: 2

帖子: 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

試試看很好玩的