2

我需要将单元格值从一个单元格复制到另一个单元格。

这是工作的代码

    Private Sub CommandButton2_Click()
Range("K5").Select
Selection.Copy
Sheets("Sheet1").Select
Range("B12").Select

ActiveSheet.Paste
End Sub

需要将 K5 单元格数据复制到 sheet1 b12 吗?

4

2 回答 2

2

也许:

Private Sub CommandButton2_Click()
    Range("K5").Copy
    Sheets("Sheet1").Range("B12").PasteSpecial xlPasteValues
End Sub

注意

选择不是必需的。

于 2013-10-23T11:40:50.667 回答
1
Private Sub CommandButton2_Click()
Range("K5").Copy Destination:=Sheets("Sheet1").Range("B12").Pastespecial xlPasteValues

End Sub
于 2015-06-27T00:35:08.590 回答