请问如何用VB 在EXCEL单元格中粘贴字符后自动换行？

Question

如何用VB 在EXCEL单元格中粘贴字符后立即换行？举例：
从网页内容或者单元格数据，复制到粘贴板后，先选中EXCEL工作表单元格，比如是A1（此时A1为空不会自动换行），然后用Ctrl+V快捷粘贴到A1单元格中，1秒后马上换行跳转到A2，直到A2粘贴到有字符后，自动跳转到A3...如此类推....

请高手研究后赐码，谢谢！

Answer 1

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Dim tr, tc
tr = Target.Row
tc = Target.Column
If tr >= 1 And tc = 1 Then
x = Range("a65536").End(xlUp).Row
Cells(x + 1, 1).Select
End If
End Sub追问

您好，这组代码已经很接近理想答案了，上题目的是要：当单元格中有字符粘贴后自动换行跳转到下一单元格中，目的时是要取代在单元格中输入字符后按回车跳转下一单元格。请再研究一下，谢谢！

追答

Private Sub Worksheet_Change(ByVal Target As Range)
Dim tr, tc
tr = Target.Row
tc = Target.Column
If tr >= 1 Then
x = Range("a65536").End(xlUp).Row
Cells(x + 1, 1).Select
End If
End Sub