请VB高手编写excel里的宏语句

来源：百度知道 编辑：UC知道 时间：2024/06/27 04:31:49
程序是:复制单元格A1的数值到单元格B1(注:A1里是一个公式)
非常感谢各位的帮助，能否使下列语句更简化一些？
range("a1").copy
range("b1").PasteSpecial Paste:=xlPasteValues

cells(1,2).FormulaR1C1 = "=RC[-1]"

可以用以下代码实现：
Sub test()
Range("A1").Select
Selection.Copy
Range("B1").Select
Selection.PasteSpecial Paste:=xlPasteValues
End Sub

连公式一起复制粘贴：range("a1").copy range("b1")

只粘贴数值：
range("a1").copy
range("b1").PasteSpecial Paste:=xlPasteValues

111