[已解决]求助vba

2218104823 · 发表于 2014-3-31 23:20

Sub hong()
ActiveCell.FormulaR1C1 = "11"
Range("A1").Select
Selection.Copy
Range("C3").Select
ActiveSheet.Paste
Application.WindowState = xlNormal
End Sub
代码什么意思？

最佳答案

月排行榜 / 总排行榜

543445211

2014-3-31 23:28

复制a1到c3

跳转到最佳答案楼层

543445211 · 发表于 2014-3-31 23:28

这个最佳答案由 543445211 给出，感谢 543445211 的回答。

单击隐藏图章

复制a1到c3

不信这样还重名 · 发表于 2014-3-31 23:28

Sub hong()
   ActiveCell.FormulaR1C1 = "11" '当前活动单元格中输入11
   Range("A1").Select '选择活动工作表的A1单元格
   Selection.Copy '复制选择的单元格，即A1
   Range("C3").Select '选中C3单元格
   ActiveSheet.Paste '粘贴复制的东西，即把A1中的内容复制到C3中
   Application.WindowState = xlNormal '还原EXCEL软件窗口
End Sub

Banieliang · 发表于 2014-3-31 23:57

通过宏功能把A1单元格的数据复制到C3里面去

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