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
	提取当前行号
===============================

留下评论

此站点使用Akismet来减少垃圾评论。了解我们如何处理您的评论数据

返回顶部