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

关于icod

logging,无人问津,孤岛余生
此条目发表在Bingo分类目录,贴了, , 标签。将固定链接加入收藏夹。

发表评论

电子邮件地址不会被公开。 必填项已用*标注

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