excel ----改键

Sub Left()
'
' Left 宏
'
'
' 快捷键: Ctrl+h
'
    On Error Resume Next
    Selection.Offset(0, -1).Select
    On Error GoTo 0
End Sub
Sub Right()
'
' Right 宏
'
' 快捷键: Ctrl+l
'
    On Error Resume Next
    Selection.Offset(0, 1).Select
    On Error GoTo 0
End Sub
Sub Up()
'
' Up 宏
'
' 快捷键: Ctrl+k
'
    On Error Resume Next
    Selection.Offset(-1, 0).Select
    On Error GoTo 0
End Sub
Sub Down()
'
' Down 宏
'
' 快捷键: Ctrl+j
'
    On Error Resume Next
    Selection.Offset(1, 0).Select
    On Error GoTo 0
End Sub