iT邦幫忙

0

excel VBA 複製貼上

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

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

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

附上語法 謝謝

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

小魚 iT邦大師 1 級 ‧ 2021-05-22 14:10:35 檢舉
選擇性貼上?

2 個回答

2
japhenchen
iT邦大師 1 級 ‧ 2021-05-22 14:03:18
ActiveSheet.Range("D26").PasteSpecial xlPasteValues
看更多先前的回應...收起先前的回應...
bubee iT邦新手 5 級 ‧ 2021-05-22 16:28:58 檢舉

已解決 感謝

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

 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

再麻煩你了 謝謝

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

0
paicheng0111
iT邦高手 1 級 ‧ 2021-05-22 15:04:16
Range("D26").Value = Range("B26").Value
bubee iT邦新手 5 級 ‧ 2021-05-22 16:29:14 檢舉

謝謝你的幫忙

記得選我為最佳解答

我要發表回答

立即登入回答