索美装饰&陈正🇨🇳:
alt+F11插入模块将下列代码粘贴进去把50改成你实际需要插入的数据的行数Sub宏1()Fori=1To50Selection.EntireRow.InsertActiveCell.Offset(2,0).Range("A1").SelectNextiEndSub然后鼠标选定第一行数据任意单元格,选择菜单工具-宏-运行宏,选择刚才的宏1,执行看你的问题补充,感觉你像是要做工资条,假设第一行是表头,即为你要复制的内容,那么代码如下,注意需要选择第三行第一单元格(A3),执行宏,否则可能出错Sub....