(代码)常用的VBA短句(带注释).docVIP

常用的VBA短句（带注释） [A65536].End(xlUp).Row A列末行向上第一个有值的行数 [A1].End(xlDown).Row A列首行向下第一个有值之行数 [IV1].End(xlToLeft).Column 第一行末列向左第一列有数值之列数。 [A1].End(xlToRight).Column 第一行首列向右有连续值的末列之列数 Application.CommandBars(Standard).Controls(2).BeginGroup = True 在常用工具栏的第二个按钮前插入分隔符 Cells.WrapText = False 取消自动换行 If Len(Target) 5 Then 如果当前单元格中的字符数超过5个,执行下一行 Target.WrapText = True 自动换行 End If [A1:B10].SpecialCells(xlCellTypeBlanks).Rows.Hidden = True 有空格即隐藏行 [A2].Par