標題: 複製完 有法子 刪除原始位址嗎 ??? [打印本頁]

---

作者: 李春輝    時間: 2011-11-16 00:03     標題: 複製完 有法子 刪除原始位址嗎 ???

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

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

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

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

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

            謝謝 .........

---

作者: 李春輝    時間: 2011-11-16 00:10

因為  複製過來的資料數值  有很多多筆   
一個一個打  太浪費很多時間
想請教  老師們    會不會有這種方法呢 ???

---

作者: register313    時間: 2011-11-16 08:03

選擇性貼上 值

---

作者: mark15jill    時間: 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

---

作者: 李春輝    時間: 2011-11-16 09:39

回復 4# mark15jill


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

---

作者: 李春輝    時間: 2011-11-16 09:55

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

---

作者: mark15jill    時間: 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

---

作者: 李春輝    時間: 2011-11-16 10:41

回復 7# mark15jill


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

---

歡迎光臨 麻辣家族討論版版 (http://forum.twbts.com/)