如果一个单元格中的数据有多行,包括自动换行后形成的多行还是手动添加的换行(按alt+回车键),都可以通过在单元格中双击,将鼠标的光标定位到单元格中的字符间,这时移动上下左右键就可以在单元格的行之间,字符左右之间移动了。
Private Sub Worksheet_SelectionChange(ByVal Target As range)
rw = Target.Row
col = Target.Column
If Target.Value <> "" Then
For i = rw To 65536
If Len(Cells(i, col)) < 1 Then
Cells(i, col).Select
Exit Sub
End If
Next
End If
End Sub
'=====================================
上面那个不能单选 但 可以多选
下面这个不能单选 且 不能多选
'=====================================
Private Sub Worksheet_SelectionChange(ByVal Target As range)
rw = Target.Cells(1, 1).Row
col = Target.Cells(1, 1).Column
Set f = Application.WorksheetFunction
If f.CountA(Target) > 0 Then
For i = rw To 65536
If Len(Cells(i, col)) < 1 Then
Cells(i, col).Select
Exit Sub
End If
Next
End If
End Sub
这样的操作会非常不舒服。好像不听使唤似的。
你选择不让操作的单元格设置保护就行了。