excel选择性粘贴数值的宏。

Question

每天都要用到选择性粘贴-数值-确定，想着能不能制作和宏按钮方便使用。

Answer 1

Sub 选择性粘贴()
    Set rng1 = Application.InputBox("请使用鼠标选择【复制】区域：", , , , , , , 8)
    Set rng2 = Application.InputBox("请使用鼠标选择【粘贴】区域的首个单元格：", , , , , , , 8)
    rng1.Copy
    rng2.PasteSpecial Paste:=xlValues
End Sub

追问

有没有只执行选择性粘贴-数值-确定 这个过程的代码

追答Sub 选择性粘贴()
    Range("a1:d5").Copy
    [h2].PasteSpecial Paste:=xlValues
End Sub

以上代码将A1:D5区域中的数据香气并选择性粘贴到以H2单元格为开头的H2:K6区域中。

真没想到你还喜欢干点麻烦事儿。早知这样，要省去我不少麻烦！