Question

Excel ：数据输入自动换行如何实现

Excel ：在sheet1中 两个“固定的表格”A2,B2里头做数据输入sheet:1图
数据会在sheet2中A:A,B:B记录,下次在A2，B2输入的数据会在sheet2 A:A,B:B 中换行记录。
sheet2图

Answer 1

Sub MK205()
'

Sheets("SHeet1").Select
Dim p1, p2 As Variant
p1 = Cells(Selection.Row, 1)
p2 = Cells(Selection.Row, 2)
Sheets("SHeet2").Select
Range("Z1").Select
Cells(1, 26) = "=COUNTA(C[-25])+1"
Range("Z1").Select
Selection.NumberFormatLocal = "0_ "
Dim a As Variant
a = Range("Z1")
Range("Z1") = ""
Cells(a, 1) = p1 Cells(a, 2) = p2
End Sub2003版环境下的宏模块。输入数据后选定的单元格不要离开本行，然后执行此宏，数据会自动填写在SHeet2内。为方便你可设置按钮来执行此宏。当然回车直接触发宏最方便，但我不会，可再请教高手。此方法好处是可保留输入的原始数据。

Answer 2

VBA实现佷简单，在在sheet1中 两个“固定的表格”A2,B2里头做触发，数据保存到sheet2中A:A,B:B最后一个非空单元格就行了！