这个要求,我想不出用公式的解决方案 只有宏的方案 给你段代码,输入完成,你只要每次运行这段宏就可以, 或者你也可以在表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 Su