標題: 複製時~ 只帶值不要格式 [打印本頁]

---

作者: hugh0620    時間: 2011-4-7 11:21     標題: 複製時~ 只帶值不要格式

Dear 大大

     卡到一個問題~ 就是用下面的方式將資料複製後~ 貼到需要的儲存格位置
     但是~ 我只是要貼值過去~ 不要它的儲存格格式~
       不知道大大能否教我~ 該怎麼處理~  (若僅限在此種寫法上)

     With Sheet1.Range("K4")
             .Copy Sheet1.Range("E4").End(xlDown).Offset(1, 0)
        End With

---

作者: FAlonso    時間: 2011-4-7 11:29

應該是 xxxxx.copy
          yyyyyy.pastespecial xlpastevalues

---

作者: hugh0620    時間: 2011-4-7 13:31

這個是什麼~ 有看沒有懂耶~ ><

---

作者: FAlonso    時間: 2011-4-7 13:46

其實等於用mouse right click複製=>目標儲存格=>選擇性貼上=>貼上值而已
例如A1是黃色格子,粗體英文字母"a",要只將"a"字複製至B1(不要黃色及粗體)

1. [a1].Copy
   
2. [b1].PasteSpecial xlPasteValues
   
3. Application.CutCopyMode = False

複製代碼

就行了

---

作者: GBKEE    時間: 2011-4-7 17:34

回復 1# hugh0620
不用 COPY  效果一樣

1. Sub Ex()
   
2.     With Sheet1.Range("K4")
   
3.         Sheet1.Range("E4").End(xlDown).Offset(1, 0) = .Value
   
4.     End With
   
5. End Sub

複製代碼

---

作者: hugh0620    時間: 2011-4-7 18:34

回復 5# GBKEE


    謝謝大大~ 這一種方式~ 比較不用讓我修改太多~ 感恩唷~  ^_^

---

作者: hugh0620    時間: 2011-4-8 14:03

回復 5# GBKEE

    大大~ 很抱歉唷~ 一開始沒有寫清楚~
              我正確的程式碼如下~

                With Sheet2.Range("C" & 3 + N & ":C" & 3 + N)
                     .Copy Sheet3.Cells(H + K, 3 + X)
                End With
                With Sheet2.Range("D" & 3 + N & ":G" & 3 + N)
                     .Copy Sheet3.Cells(H + K, 4 + X)
                End With
                With Sheet2.Range("K" & 3 + N & ":P" & 3 + N)
                     .Copy Sheet3.Cells(H + K, 11 + X)
                End With

             後來用大大的方式修改~
                With Sheet2.Range("C" & 3 + N & ":C" & 3 + N)
                     Sheet3.Cells(H + K, 3 + X)=.Value
                End With

             只能帶出一個儲存格的值~  不然帶出區間的所有值~

---

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