excel VB 怎么通过控件把sheet1的内容逐行输出到sheet2

可以给控件设置事件驱动程序，通过事件驱动来读取sheet1的内容后再写入sheet2。举例说明。

例如有sheet1数据表，如图：

第一步：点击开发工具-插入-命令按钮。如图：

第二步：为该按钮编宏，代码如下：Sub 按钮2_Click()Dim I, J, K, L As IntegerDim MYARR(1 To 100, 1 To 100)I = 1: J = 1Do While Cells(I, 1) I = I + 1LoopI = I - 1 '计算数据区最后一行的行号Do While Cells(1, J) J = J + 1LoopJ = J - 1 '计算数据区最后一列的列号For K = 1 To I For L = 1 To J MYARR(K, L) = Cells(K, L) Next LNext KSheets(sheet2).Activate

For K = 1 To I

For L = 1 To J Cells(K + 20, L) = MYARR(K, L) Next LNext KEnd Sub

按钮点击前，如图：

按钮点击后，如图：