excel VBA 複製貼上

excel vba 複製貼上

bubee 2021-05-22 13:58:17 ‧ 7436 瀏覽

請問大家我要如何修改才能正確完成複製貼上動作

因為B26這個儲存格是帶公式的

我想貼的是值不是直接把公式貼上

附上語法謝謝

Sub 按鈕10_Click()
Range("B26").Select
Selection.Copy
Range("D26").Select
ActiveSheet.Paste
End Sub

小魚 iT邦大師 1 級 ‧ 2021-05-22 14:10:35 檢舉

選擇性貼上?

登入發表討論

直播研討會

{{ item.channelVendor }} {{ item.webinarstarted }} |

直播中

2 個回答

japhenchen

iT邦超人 1 級 ‧ 2021-05-22 14:03:18

ActiveSheet.Range("D26").PasteSpecial xlPasteValues

回應 4
分享
檢舉

看更多先前的回應...收起先前的回應...

bubee iT邦新手 5 級 ‧ 2021-05-22 16:28:58 檢舉

已解決感謝

我還有另一個問題
如果在D26這個儲存格上插入註解
那該怎麼直接貼在註解裡

japhenchen iT邦超人 1 級 ‧ 2021-05-22 20:54:11 檢舉

 ActiveSheet.Range("D26").PasteSpecial xlPasteComments

bubee iT邦新手 5 級 ‧ 2021-05-23 00:54:07 檢舉

不能呢，你有可能誤會我意思了
我的意思是把 B26儲存格是帶公式的值(這個儲存格上沒有註解)
直接貼上D26插入註解裡
我是這樣打的如下
Sub 按鈕10_Click()
Range("B26").Select
Selection.Copy
Range("D26").Select
ActiveSheet.Range("D26").PasteSpecial xlPasteValues
End Sub

再麻煩你了謝謝

japhenchen iT邦超人 1 級 ‧ 2021-05-23 09:57:36 檢舉

Sub 巨集1()
'
' 巨集1
'

    Dim a As String
    
    Range("G6").Copy  ' 帶公式的格子 =G2
    
    Range("ZZ1").PasteSpecial xlPasteValues
    
    a = Range("ZZ1").Value
    `下方的J6就是要放附註的格子
    If Range("J6").Comment Is Nothing Then
        Range("j6").AddComment
    End If
    
    Range("J6").Comment.Visible = False
    Range("J6").Comment.Text Text:=a
    Range("J6").Select
    
    
    Range("zz1").Delete  ' 清掉借放的格子



End Sub

登入發表回應