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

Question

功能：打开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

Answer 1

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

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，步长为目标单元格行号之差。

Answer 2

试试
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