다른 내용을 가진 다음 셀로 커서를 옮깁니다.

Question

열과 행을 가로 질러 현재 셀과 다른 값으로 다음 셀로 이동하는 지름길이 있습니까?

Answer 1

다음은 다른 값이 발견 될 때까지 오른쪽으로 이동하는 예제입니다.

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