excel用vba实现内容的复制代码怎么写

功能:打开excel后,选择sheet2时拷贝sheet1中单元格的内容,如,把sheet1的cells(1,1)中的内容拷贝到sheet2的cells(1,1)中去!实... 功能:打开excel后,选择sheet2时拷贝sheet1中单元格的内容,如,
把sheet1的cells(1,1)中的内容 拷贝到sheet2的cells(1,1)中去!实现的代码怎么写?
我用(在sheet2中写代码),不行!
sub private worksheett_activate
sheet("sheet1").cells(1,1).select
selection.copy
cells(1,1).paste
end sub
展开
 我来答
black8310
2015-12-06 · TA获得超过13.5万个赞
知道大有可为答主
回答量:1.9万
采纳率:68%
帮助的人:4609万
展开全部

打开工作表,找到原数据,。插入表单按钮。


ALT+F11打开VBA代码编辑器,输入宏代码如下。


将表单按钮指定到宏,运行代码。查看运行后的效果,目标区域出现了和原数据一样的数据,但位置发生了变化。


输入的代码内容并解释。

Sub 运行代码()For i = 1 To 12Range("c" & i + 2) = Range("b" & i)Next iEnd Sub


1.原数据单元格区域 b1 b2 b3 b4  到 b12;

2.目标单元格区域出现  c3 c4 c5 c6 c7 到 c14;

3.原数据区域在后,目标区域在前;

4.目标区域和原数据之间的相同数据之间的位置变化:原数据与目标区域之间行号之差;

5.使用FOR NEXT循环,步长为1,步长为目标单元格行号之差。

是敬04o
2012-09-12 · TA获得超过149个赞
知道小有建树答主
回答量:285
采纳率:100%
帮助的人:96.4万
展开全部
试试
sub private worksheett_activate()
sheets("sheet1").cells(1,1).select
selection.copy
sheets("sheet2").cells(1,1).paste
end sub
追问
我试了,运行错误:类range的select方法无效
追答
Private Sub worksheet_activate()
Sheets("sheet1").Cells(1, 1).Copy Sheets("sheet2").Cells(1, 1)
End Sub
本回答被提问者采纳
已赞过 已踩过<
你对这个回答的评价是?
评论 收起
推荐律师服务: 若未解决您的问题,请您详细描述您的问题,通过百度律临进行免费专业咨询

为你推荐:

下载百度知道APP,抢鲜体验
使用百度知道APP,立即抢鲜体验。你的手机镜头里或许有别人想知道的答案。
扫描二维码下载
×

类别

我们会通过消息、邮箱等方式尽快将举报结果通知您。

说明

0/200

提交
取消

辅 助

模 式