将excel中的光标移动到具有不同内容的下一个单元格

是否有一个快捷方式下移一列或跨行到下一个单元格与当前不同的值?

这里是一个向右移动的例子,直到find一个不同的值。 给这个小macros指定一个快捷键:

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 
Interesting Posts