EXCEL在当前选中行的下方插入一行

应用场景：某些情况下，在EXCEL表启用了筛选后，需要在当前选中行（筛选显示行号间断处）下方插入1行（右键插入行操作默认为向上插入行）
VBA代码：
=============================

Sub 下插行()
	i = Selection.Row
	'获取当前选定行号i

	Rows(i + 1).Resize(1).Insert
	'第i+1行插入1行,可修改指定插入多行

End Sub

==============================
百度没搜到现成的，在线学习，手工制作，滑稽
通过宏设置了快捷方式，另存为xla宏文件，可在下次在其他EXCEL表格中通过加载宏，快捷运行操作
过程搜集参考VBA代码如下：
	Selection.EntireRow.Insert
	当前选中单元格所在行的上方插入

	rows(i).resize(3).insert
	第i行插入3行

	selection.offset(1).select
	当前选定单元格的下一行单元格

	i=selection.row
	提取当前行号
===============================

Views: 545