刚学VBA，如下代码如何理解呢？

Sub 回车键01()

Application.OnKey "{ENTER}", "回车键01"
If ActiveCell.Row > 5 And ActiveCell.Row <= 65536 Then
If ActiveCell.Column = 3 Then
ActiveCell.Offset(0, 3).Select
ElseIf ActiveCell.Column = 6 Then
ActiveCell.Offset(1, -3).Select
End If

Else
N = 9
While Not IsEmpty(Cells(N, 1))
N = N + 1
Wend
Cells(N, 1).Select
End If

If ActiveCell.Column > 7 Then
N = 9
While Not IsEmpty(Cells(N, 1))
N = N + 1
Wend
Cells(N, 1).Select
End If

End Sub

1 首先根据当前选中单元格的行来判断
1.1 第5行之后的（EXCEL最多是65535行），如果选中第三列，就选中同行（offset+0）的第六列（offset+3），如果选中第六列，就选中下行（offset+1）的第三列（offset-3）.
1.2 如果是第1到5行，就选中第9行开始第一个第一列不为空的单元格

2 根据当前选中单元格的列来判断
2.1 如果是第7列以后的列,就选中第9行开始第一个第一列不为空的单元格

就是说一共四种处理
1是选中第9行开始第一个第一列不为空的单元格,范围是1到5行的单元格,还有第7列以后的单元格
2是选中同行的第六列,范围是第5行以后的第三列的单元格
3是选中下行的第三列,范围是第5行以后的第六列的单元格
4是没反应,范围是第5行以后的第一,二,四,五,七列的单元格

sub fontcolor()   selection.entirecolumn.insert , copyorigin:=xlformatfromleftorabove   columns(selection.column).select      selection.font.colorindex = 30 end sub 点击查看 或者是 sub fontcolor()     selection.insert shift:=xltoright, copyorigin:=xlformatfromleftorabove     columns(selection.column).font.colorindex = 30 end sub