EXCEL2007公式

这个要求,我想不出用公式的解决方案
只有宏的方案
给你段代码,输入完成,你只要每次运行这段宏就可以,
或者你也可以在表2中做一个按钮放在旁边,输入完成后按一下就可以,按钮on click的代码一样
Sub copy2to3()
Sheet2.Select
s = ""
For i = 1 To 10
s = s & Cells(4,i)
Next i
If s = "" Then
MsgBox ("您尚未输入任何数据")
Exit Sub
End If
Sheet3.Select
Activesheet.Cells.SpecialCells(xlCellTypeLastCell).Select
a = ActiveCell.Row
Sheet2.Rows("4:4").Cut (Sheet3.Rows(a + 1))
End Sub
再问： 请你把这些代码的使用方法和你说的那个按键的制作方法说得详细一些好吗，我是一个菜鸟，请多关照，谢谢！！
再答： excel2007为例 右击sheet2-查看代码（出现VBA编辑程序）-双击左侧的sheet2（出现sheet2的编辑页面）-然后复制给你的代码到编辑区域-然后保存退出 回到excel后-视图-宏-查看宏， 你会看到列表中有一个我们自己定义的宏名称，那个就是刚才我们写的小代码-点击执行就可以运行一次 你可以在窗口的选项对话框里，进行宏快捷键定义-比如 ctrl+0，那你以后只要按ctrl+0就可以快捷执行了
再问： 请你把宏快捷键定义的过程说详细一些,谢谢了
再答： 在点击“执行”的对话框里，下面有个“选项”，点击去你就会知道如何设置了