
excel
Sub InsertRows()' 定义变量Dim ws As WorksheetDim lastRow As LongSet ws = ActiveSheetlastRow = ws.Cells(Rows.Count, 1).End(xlUp).Row ' 获取表格最后一行' 循环插入行For i = 1 To 5 ' 插入5行ws.Rows(i).EntireRow.Insert ' 插入整行Next iEnd Sub这段代码将在活动工作表上连续插入5行。你可以根据需要修改循环次数来插入更多的行数。另外,如果只是手动输入数据的话,也可以使用“插入”选项卡中的“行”功能来快速地插入空白行。只需点击“+”按钮即可增加一个新的空白行。希望以上内容对您有所帮助!Copyright © 2025 IZhiDa.com All Rights Reserved.
知答 版权所有 粤ICP备2023042255号