返回列表 上一主題 發帖

複製完 有法子 刪除原始位址嗎 ???

mark15jill
　暱稱: 隨風飄蕩的羽毛
　頭銜: [御用]潛水艇

高中生Rank: 3Rank: 3

帖子
852 
主題
79 
精華
0 
積分
918 
點名
0  
作業系統
Windows 7 , XP 
軟體版本
Office 2007, Office 2003,Office 2010,YoZo Office 
閱讀權限
50 
性別
男 
來自
宇宙 
註冊時間
2011-4-8 
最後登錄
2024-2-21 
1# 跳轉到 »
發表於 2011-11-16 09:02 | 顯示全部帖子
本帖最後由 mark15jill 於 2011-11-16 09:28 編輯

回復 1# 李春輝
如用樓主的方法 會造成一個問題..
sheet2的 值 為 sheet1的 A1+B1+C1..
但如果sheet1的A1+B1+C1 的值被消除後..
那sheet2的值也會跟著消失..
如
sheet1.range("a1").value=sheet1.range("a"&oa).value+sheet1.range("b1").value+sheet1.range("c1").value
sheet1.range("a1").value=0+0+0
sheet1.range("a1").value=0


建議用迴圈..
如
for oa = 1 to 65535
     sheet2.range("a"&oa).value = sheet1.range("a"&oa).value+sheet1.range("b"&oa).value+sheet1.range("c"&oa).value
     sheet2.range("a"&oa).select
                       Selection.Copy
                      Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
                       :=False, Transpose:=False
     sheet1.range("a"&oa,"c"&oa).value=""
next oa

TOP

mark15jill
　暱稱: 隨風飄蕩的羽毛
　頭銜: [御用]潛水艇

高中生Rank: 3Rank: 3

帖子
852 
主題
79 
精華
0 
積分
918 
點名
0  
作業系統
Windows 7 , XP 
軟體版本
Office 2007, Office 2003,Office 2010,YoZo Office 
閱讀權限
50 
性別
男 
來自
宇宙 
註冊時間
2011-4-8 
最後登錄
2024-2-21 
2#
發表於 2011-11-16 10:22 | 顯示全部帖子
本帖最後由 mark15jill 於 2011-11-16 10:27 編輯

回復 5# 李春輝
方法1..
    for oa = 1 to 65535   '這是指  oa 為 1 到 65535  
   sheet2.range("a"&oa).value = sheet1.range("a"&oa).value+sheet1.range("b"&oa).value+sheet1.range("c"&oa).value    '這是指 sheet2的A欄內的儲存格 = sheet1的A欄內的儲存格+B欄內的儲存格+C欄內的儲存格     

sheet2.range("a"&oa).select    'SHEET2的A欄位某儲存格的選擇   
                    
                      Selection.Copy '選擇的範圍 複製
                    
                        Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _      '選擇性貼上      
                        :=False, Transpose:=False

    sheet1.range("a"&oa,"c"&oa).value=""         'SHEET1 的A欄位到 C欄位(指 A B C) 的儲存格的值為空白

next oa

TOP

        靜思自在 : 好事要提得起，是非要放得下，成就別人即是成就自己。
返回列表 上一主題