BeforeSelChanged事件
If e.OldRange.RowSel <> e.NewRange.RowSel OrElse e.OldRange.ColSel <> e.NewRange.ColSel '如果选择的是不同的行
If e.OldRange.RowSel >= 0 AndAlso e.OldRange.Rowsel < e.Table.Rows.Count Then '而且原来选择的是一个有效的数据行
Dim r As Row = e.Table.Rows(e.OldRange.Rowsel) '获得原来选择的行
If r.IsNull(e.OldRange.ColSel) = False
Dim str As String
Dim arr() As String = r(e.OldRange.ColSel).Replace(chr(10), "").split(chr(13))
For Each s As String In arr
str &= s.TrimStart() & vbcrlf
Next
r(e.OldRange.ColSel) = str.TrimEnd(vbcr,vblf)
End If
End If
End If