怎么样使用EXCEL批量插入批注?
发布网友
发布时间：2022-04-23 04:29
共1个回答
热心网友
时间：2022-05-02 07:08
F11
插入模块
将下列代码粘贴进去
把50改成你实际需要插入的数据的行数
Sub
宏1()
For
i
=
1
To
50
Selection.EntireRow.Insert
ActiveCell.Offset(2,
0).Range("A1").Select
Next
i
End
Sub
然后鼠标选定第一行数据任意单元格，选择菜单
工具-宏-运行宏，选择刚才的宏1，执行
看你的问题补充，感觉你像是要做工资条，假设第一行是表头，即为你要复制的内容，那么代码如下，注意需要选择第三行第一单元格（A3），执行宏，否则可能出错
Sub
宏1()
For
i
=
1
To
50
Selection.EntireRow.Insert
Rows("1:1").Copy'复制第一行数据，所以执行宏的时候必须选择的是某行的开始单元格否则会粘贴出错
ActiveSheet.Paste
ActiveCell.Offset(2,
0).Range("A1").Select
Next
i
End
Sub
