複製時~ 只帶值不要格式

　暱稱: VBA向前衝

帖子: 550
主題: 55
精華: 0
積分: 614
點名: 0
作業系統: win8
軟體版本: office2013
閱讀權限: 50
性別: 男
來自: TW
註冊時間: 2010-11-22
最後登錄: 2020-5-12

1^# 跳轉到 » 倒序看帖

打印

字體大小: tT

發表於 2011-4-7 11:21 | 只看該作者

複製時~ 只帶值不要格式

Dear 大大

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

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

樓主熱帖

學習才能提升自己

FAlonso

中學生 Rank: 2

帖子: 135
主題: 19
精華: 0
積分: 165
點名: 0
作業系統: XP
軟體版本: 2003
閱讀權限: 20
性別: 男
來自: 香港
註冊時間: 2010-12-9
最後登錄: 2012-8-27

2^#

發表於 2011-4-7 11:29 | 只看該作者

應該是 xxxxx.copy
yyyyyy.pastespecial xlpastevalues

80 字節以內
不支持自定義 Discuz! 代碼

　暱稱: VBA向前衝

帖子: 550
主題: 55
精華: 0
積分: 614
點名: 0
作業系統: win8
軟體版本: office2013
閱讀權限: 50
性別: 男
來自: TW
註冊時間: 2010-11-22
最後登錄: 2020-5-12

3^#

發表於 2011-4-7 13:31 | 只看該作者

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

學習才能提升自己

FAlonso

中學生 Rank: 2

帖子: 135
主題: 19
精華: 0
積分: 165
點名: 0
作業系統: XP
軟體版本: 2003
閱讀權限: 20
性別: 男
來自: 香港
註冊時間: 2010-12-9
最後登錄: 2012-8-27

4^#

發表於 2011-4-7 13:46 | 只看該作者

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

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

複製代碼

就行了

80 字節以內
不支持自定義 Discuz! 代碼

GBKEE

超級版主 Rank: 8 Rank: 8

帖子: 5923
主題: 13
精華: 1
積分: 5986
點名: 0
作業系統: win10
軟體版本: Office 2010
閱讀權限: 150
性別: 男
來自: 台灣基隆
註冊時間: 2010-5-1
最後登錄: 2022-1-23

2017 雞年全勤獎章 2016猴年全勤獎章 2015羊年全勤獎章 2014馬年全勤獎章 2013蛇年全勤獎章 2012龍年全勤獎章論壇貢獻勳章熱烈參與勳章 2011兔年全勤獎章

5^#

發表於 2011-4-7 17:34 | 只看該作者

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

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

複製代碼

　暱稱: VBA向前衝

帖子: 550
主題: 55
精華: 0
積分: 614
點名: 0
作業系統: win8
軟體版本: office2013
閱讀權限: 50
性別: 男
來自: TW
註冊時間: 2010-11-22
最後登錄: 2020-5-12

6^#

發表於 2011-4-7 18:34 | 只看該作者

回復 5# GBKEE

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

學習才能提升自己

　暱稱: VBA向前衝

帖子: 550
主題: 55
精華: 0
積分: 614
點名: 0
作業系統: win8
軟體版本: office2013
閱讀權限: 50
性別: 男
來自: TW
註冊時間: 2010-11-22
最後登錄: 2020-5-12

7^#

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

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

學習才能提升自己