ExcEL 可否用vBA一次插入多行
答案:4 悬赏:20 手机版
解决时间 2021-12-03 10:37
- 提问者网友：别再叽里呱啦
- 2021-12-02 17:03
ExcEL 可否用vBA一次插入多行
最佳答案
- 五星知识达人网友：狂恋
- 2021-12-02 17:37
Sub 插入空行()
Sheets("Sheet1").Activate
Range("6:25").Insert Shift:=xlDown
End Sub
Sheets("Sheet1").Activate
Range("6:25").Insert Shift:=xlDown
End Sub
全部回答
- 1楼网友：纵马山川剑自提
- 2021-12-02 19:51
怎么指定表名？
- 2楼网友：行路难
- 2021-12-02 19:00
当然可以！给你个简单的。
VBA代码：
Sub insertData()
For i = 6 To 25
Sheets("Sheet1").Rows(i).Insert
Next
Range("A6:A25") = 1
End Sub
说明：
Sheets("Sheet1")中“Sheet1”替换为你要添加数据的表名
Range("A6:A25")中A6:A25中的“A”替换为你要添加数据的列
VBA代码：
Sub insertData()
For i = 6 To 25
Sheets("Sheet1").Rows(i).Insert
Next
Range("A6:A25") = 1
End Sub
说明：
Sheets("Sheet1")中“Sheet1”替换为你要添加数据的表名
Range("A6:A25")中A6:A25中的“A”替换为你要添加数据的列
- 3楼网友：轻熟杀无赦
- 2021-12-02 17:44
双击按钮，进入vb编辑器，将下面代码粘贴进去
Sheets("sheet2").Rows("6:25").Insert Shift:=xlDownsheet2是工作表名，你可以换成自己的
我要举报
如以上问答信息为低俗、色情、不良、暴力、侵权、涉及违法等信息，可以点下面链接进行举报！
大家都在看
推荐资讯