Question

EXCEL2007公式表2中,在A4-J4中输入数据,当确认输入完成后,A4-J4的数据可以出现在表3的A4-J4中,同

Answer 1

这个要求,我想不出用公式的解决方案

只有宏的方案

给你段代码,输入完成,你只要每次运行这段宏就可以,

或者你也可以在表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