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

wswang02 · 发表于 2018-7-30 11:07

feixiangye 发表于 2018-7-30 10:52
这句代码就可以啊，你试试看

非常感谢您的回复, 然而, 这个只是复制了A1单元格的内容, 并没有复制他的公式, 能否复制公式, 比如选取A3, 则A3 就是计算B3:H3的总和, 和A1一样是计算B1:H1的总和.

wswang02 · 发表于 2018-7-30 11:11

朱荣兴发表于 2018-7-30 10:26
是娶带公式一并粘贴，还是只粘贴数值？？？

要带公式一并粘贴, 谢谢

朱荣兴 · 发表于 2018-7-30 11:28

提示: 作者被禁止或删除内容自动屏蔽

wswang02 · 发表于 2018-7-30 11:38

朱荣兴发表于 2018-7-30 11:28
参考》》》》》》》》》》》》》》》》》》
Sub kaobei()
Dim rng As Range

非常感谢, 您帮我解决了问题! 感谢!

719404338 · 发表于 2018-7-30 15:28

本帖最后由 719404338 于 2018-7-30 15:39 编辑

Sub t()
If Selection <> Range("a1") Then
Selection.Value = Cells(1, 1).FormulaR1C1
Else
MsgBox "被选取的单元格不能包含A1"
End If
End Sub

		自动登录	找回密码
密码			免费注册

朱荣兴朱荣兴当前离线性别保密 UID 1318548 阅读权限 0 注册时间 2011-2-2 在线时间小时最后登录 1970-1-1 积分 19282 财富分享技术精华头像被屏蔽 TA的精华主题 TA的得分主题	发表于 2018-7-30 11:28 \| 显示全部楼层 [广告] ★用Excel做企业管理系统，Excel服务器学习和下载★ 提示: 作者被禁止或删除内容自动屏蔽

	回复举报

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