是否存在用于将一列或一行向下移动到下一个与当前值不同的下一个单元格的快捷方式?
这是一个向右移动直到找到其他值的示例。为这个小宏分配一个快捷键:
Sub MoveToTheRight()
Dim v As Variant, i As Long, j As Long
v = ActiveCell.Value
j = ActiveCell.Column
k = ActiveCell.Row
For i = j + 1 To Columns.Count
With Cells(k, i)
If .Value <> v Then
.Select
Exit Sub
End If
End With
Next i
End Sub
这是向下移动的示例:
Sub MoveDown()
Dim v As Variant, i As Long, j As Long
v = ActiveCell.Value
j = ActiveCell.Column
k = ActiveCell.Row
For i = k + 1 To Rows.Count
With Cells(i, j)
If .Value <> v Then
.Select
Exit Sub
End If
End With
Next i
End Sub
本文收集自互联网,转载请注明来源。
如有侵权,请联系[email protected] 删除。
我来说两句