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

您好 ..... 再麻煩請教

例: A1儲存格是  2    A2儲存格是  4       A3儲存格是  6

         另一活頁簿    B1=A1+A2+A3 >> 12

         有法子  複製完  B1的結果  12       在另一儲存格  C1 後    刪掉 A1/A2/A3

         可 C1複製過的結果會是12  不變嗎 ??? 請問有法子在這一格裡做什麼動作讓它不用再是公式了嗎 ???

         謝謝 .........

樓主熱帖

李春輝

中學生 Rank: 2

帖子: 18
主題: 7
精華: 0
積分: 53
點名: 0
作業系統: XP
軟體版本: OFFICE2003
閱讀權限: 20
性別: 男
來自: 台北/台東
註冊時間: 2011-11-5
最後登錄: 2013-8-1

8^#

發表於 2011-11-16 10:41 | 只看該作者

回復 7# mark15jill

感謝您 ......
不過我不懂得進階程式的寫法 ..
再研究時再請教您了
謝謝您哦 ...

李春輝

TOP

mark15jill

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

高中生 Rank: 3 Rank: 3

帖子: 852
主題: 79
精華: 0
積分: 918
點名: 0
作業系統: Windows 7 , XP
軟體版本: Office 2007, Office 2003,Office 2010,YoZo Office
閱讀權限: 50
性別: 男
來自: 宇宙
註冊時間: 2011-4-8
最後登錄: 2024-2-21

7^#

發表於 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

李春輝

中學生 Rank: 2

帖子: 18
主題: 7
精華: 0
積分: 53
點名: 0
作業系統: XP
軟體版本: OFFICE2003
閱讀權限: 20
性別: 男
來自: 台北/台東
註冊時間: 2011-11-5
最後登錄: 2013-8-1

6^#

發表於 2011-11-16 09:55 | 只看該作者

應謝 ... 用選擇性貼上即可
謝謝謝謝 ..... 有朋友真好

李春輝

TOP

李春輝

中學生 Rank: 2

帖子: 18
主題: 7
精華: 0
積分: 53
點名: 0
作業系統: XP
軟體版本: OFFICE2003
閱讀權限: 20
性別: 男
來自: 台北/台東
註冊時間: 2011-11-5
最後登錄: 2013-8-1

5^#

發表於 2011-11-16 09:39 | 只看該作者

回復 4# mark15jill

感謝 ....
可因為以前不知道 EXCEL 可以寫程式 (以前我的CLIPPER 學的不錯說)
所以不懂您寫的要如何作業呢 ??
可否請教有沒有普通版的方式呢 ????
謝謝

李春輝

TOP

mark15jill

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

高中生 Rank: 3 Rank: 3

帖子: 852
主題: 79
精華: 0
積分: 918
點名: 0
作業系統: Windows 7 , XP
軟體版本: Office 2007, Office 2003,Office 2010,YoZo Office
閱讀權限: 50
性別: 男
來自: 宇宙
註冊時間: 2011-4-8
最後登錄: 2024-2-21

4^#

發表於 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

register313