返回列表 上一主題 發帖

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

linshin1999

帖子
199 
主題
45 
精華
0 
積分
252 
點名
0  
作業系統
windows 7 (X64) 
軟體版本
office 2010 (x64) 
閱讀權限
20 
性別
男 
來自
桃園 
註冊時間
2010-12-24 
最後登錄
2020-3-31 

論壇贊助勳章論壇榮譽勳章
1# 跳轉到 »
發表於 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

試試看很好玩的
V98

TOP

linshin1999

帖子
199 
主題
45 
精華
0 
積分
252 
點名
0  
作業系統
windows 7 (X64) 
軟體版本
office 2010 (x64) 
閱讀權限
20 
性別
男 
來自
桃園 
註冊時間
2010-12-24 
最後登錄
2020-3-31 

論壇贊助勳章論壇榮譽勳章
2#
發表於 2011-1-6 10:12 | 顯示全部帖子
Sujane0701你好:改好了(如前文)再去執行看看.我没有試屬性不同的儲存格的轉移,你談的部分我的經驗不夠,不好意思,我的檔案單純是測試性質,所以只是簡單的同型態的儲存格的移轉,恐怕没有上傳的意義,謝謝!!
V98

TOP

linshin1999

帖子
199 
主題
45 
精華
0 
積分
252 
點名
0  
作業系統
windows 7 (X64) 
軟體版本
office 2010 (x64) 
閱讀權限
20 
性別
男 
來自
桃園 
註冊時間
2010-12-24 
最後登錄
2020-3-31 

論壇贊助勳章論壇榮譽勳章
3#
發表於 2011-1-7 20:01 | 顯示全部帖子
回復 11# sujane0701

linshin1999 大大您好,不好意思前面留言不明確,讓您誤會囉.
小弟只是想知道樓主的實際表格狀況,所以提出個人認為可能有參考用處的條件.建議樓主可以補充,
而且個人VBA能力極差,萬萬沒有指出任何VBA問題的能力,發言不當處,還請見諒~

其實我也剛接觸 Excel 或者說我才從 Dos 改用 Windows, Win7 是我第一個接觸的 Windows 系統,所以要很用力的學,很多東西都很新鮮, 我是寫程式討飯吃的, 所以對於你所熟悉的,其實也很默生,對VBA比較熟悉一點,對非 VBA 領域的討論,很弱! 很弱!

所以論壇有很多對於函數的討論,還在認真的了解中,不會介意的,因為我也有很多不會的地方啊,:D
V98

TOP

        靜思自在 : 閒人無樂趣，忙人無是非。
返回列表 上一主題