详细一点说：
就是我在sheet1里面按格式写好数据后，点击控件，sheet1表中指定区域就被加入sheet2的数据中，多次点击sheet1的控件，就在sheet2中顺序向下写入数据。
你可以将其中的关系想象中操作界面与数据库的关系。
请问如何实现？
要通过VBA把Sheet1工作表中的数据写入Sheet2工作表中，可以采用如下方法：
1、假如要把Sheet1工作表中A1单元格的数据写入Sheet2工作表的A1单元格中。
2、可以执行以下语句：
sub test()sheets("Sheet2").range("A1").Value=sheets("Sheet1").range("A1").Value
end sub
3、语句解释：range("A1")代表A1单元格，.Value代表是单元格的值属性。
[a1].copy iif([a1]="",[a1],sheets(2).[a65536].end(3).offset(1))
end sub
将表1的数据插入到SHEET2的A列。
sheet是有表头啊什么的，我只要指定区域插入即可。
表1的指定区域我已经转成列表了，名字也命名好了。
还有，sheet2原来有数据的，这样不会影响sheet2的数据吗？
你的要求不明确，全是大范围，没一个准确的描述。。。我只有随便举例写了一个。
追问哦，真不好意思。那我尽量写准确一点
现在就是想在表1中将数据行填充进去以后，通过插入的按钮将数据航增加到表2的最后。
如图，这是表1的数据，当我填好后，点击上面的按钮，这一部分数据就被复制到表2 中，点击一下，就在表2中向下复制一次，达到数据积累的效果。
另外，我表1和表2的格式是一样的，只需要在表2的最下方插入表1的这些数据行就行了
range("b4:O"& [b65536].end(3).row).copy sheets(2).[B65536].end(3).offset(1)
end sub
把中间那名代码，复制到你的控件代码中。
追问我对VBA不懂，请问上述语句中，sheets(2) 是怎么定位的？
.....其他方面没有发现问题。
还有能否，点击之后弹出“数据已写入[XXX工作表]”
sheets(2) ，代表第2个表，在工作表标签上，从左往右数。
如果是sheets("sheet2")，则特指工作表名为"sheet2”的表。
要加弹出消息框。可以加语句。
msgbox "数据已写入……"
引号内为你要弹出的内容。
