复制指定单元格的内容到选取的区域中

wswang02

VBA小白请大神帮忙.
求一段代码要 实现如下功能:
在工作表的任意位置(除A1单元格以外)选取一个单元格或一个单元格区域. 然后点击一个按钮(即执行这段代码) 那么A1单元格的内容(是一个公式)就被粘贴到刚刚被选取的单元格或单元格区域里.
另外, 如果A1被选取, 或选取的区域中包含A1单元格, 则不能进行如上的操作并用消息框提示被选取的单元格不能包含A1.

比如,
附件中, 首先选取A2单元格, 再按Button1, 则A1单元格的内容就被复制并粘贴到A2单元格中了. 如果是选择A2:A5, 则A1单元格的内容就被复制并粘贴到A2:A5中.

再次感谢大神的帮助!!!!

microyip

录制一下宏，把手工操作的内容录制一下，修改一下

feixiangye

你是想只复制A1单元格内容，还是A1单元格公式，永远都是只复制A1吗

wswang02

feixiangye 发表于 2018-7-30 10:17
你是想只复制A1单元格内容，还是A1单元格公式，永远都是只复制A1吗

是的, 永远复制A1, 因为A1的公式可能会变

wswang02

microyip 发表于 2018-7-30 10:12
录制一下宏，把手工操作的内容录制一下，修改一下

录制宏我试过了, 但是不知道怎么再修改, 请赐教.

feixiangye

Sub 宏1()
    Selection.FormulaR1C1 = Cells(1, 1)
End Sub

wswang02

feixiangye 发表于 2018-7-30 10:27
Sub 宏1()
    Selection.FormulaR1C1 = Cells(1, 1)
End Sub

谢谢回复, 关键是粘贴的目标单元格就是我在执行宏之前选取的那些单元格, 这个要如何做到?

wswang02

feixiangye 发表于 2018-7-30 10:27
Sub 宏1()
    Selection.FormulaR1C1 = Cells(1, 1)
End Sub

谢谢回复, 关键是粘贴的目标单元格就是我在执行宏之前选取的那些单元格, 这个要如何做到?

feixiangye

这句代码就可以啊，你试试看