EXCEL遇到难题，请大家帮帮忙
这个问题用VBA解决比较便捷，操作也很简单：
在Excel文件中创建一个按钮，定义按钮的单击事件代码为——
Option Explicit '强制要求变量申明
Private Sub CommandButton1_Click()
Application。 ScreenUpdating = False '关闭屏幕刷新
Dim intRow1%, intRow2%, i%, j%, k As Range
intRow1 = Val(InputBox("请输入要插入的行数：", "输入数据", "30")) + 1 '获取要插入的单元格数
intRow2 = Range("A1:A" & [A...全部
这个问题用VBA解决比较便捷，操作也很简单：
在Excel文件中创建一个按钮，定义按钮的单击事件代码为——
Option Explicit '强制要求变量申明
Private Sub CommandButton1_Click()
Application。
ScreenUpdating = False '关闭屏幕刷新
Dim intRow1%, intRow2%, i%, j%, k As Range
intRow1 = Val(InputBox("请输入要插入的行数：", "输入数据", "30")) + 1 '获取要插入的单元格数
intRow2 = Range("A1:A" & [A65536]。
End(xlUp)。Row)。Cells。Count + 1 '获取待插入列的数据总数
With ActiveSheet
For i = 2 To intRow2 '采用循环插入单元格和填充数据
j = 2 + intRow1 * (i - 2) '获取插入点
Range(。
Cells(j, 1), 。Cells(j + intRow1 - 2, 1))。Insert Shift:=xlDown '插入指定数量的空白单元格
。Cells(j - 1, 1)。
AutoFill Destination:=Range(。Cells(j - 1, 1), 。Cells(j + intRow1 - 2, 1)), Type:=xlFillDefault '填充插入的空白单元格
Next '结束循环
End With
Application。
ScreenUpdating = True '恢复屏幕刷新
End Sub
单击按钮，奇妙的事情是不是发生了？
效果见附件：。收起
