如何你的数据是不同行，但输入时是按同一列的话，就可以试试这个办法，但如果按同一列输入的话，那这个办法就不行了。那只能考虑之前两位朋友所说的宏啦。
选中要输入数据的矩形区域，按下午Enter,光标逐行移动，移动至当列末尾时，光标跳至第二列第一个单元格，以此类推。
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
r = ActiveCell.Row
c = WorksheetFunction.CountA(Rows(r)) + 1
Cells(r, c).Select
End Sub
输入完数据后删掉这个宏。
内容全部来源于网络收集，如有侵权，请联系网站删除!
QQ：24596024