excel学习库-手废了，做个表复制粘贴3000次，只因不会For Next循环语句

实操问题，左边是从系统导出来的，现在希望每个房间都增加一行标题。原始数据有几千行，除了用复制，粘贴标题行，重复无数次之外，有没更快捷的方法？

重复一个动作几千次，手估计要废了。其实，在Excel里面有一个循环语句，可以代替手工操作，只要告诉她重复多少次即可。

先跟着一起来完成第一次操作，复制标题，插入到小计下一行。这个操作是需要记录下来，专业点叫录制宏。点开发工具，录制宏，复制第1行，选择第4行，右键，插入复制的单元格，停止录制。

点开发工具，VB，模块1，就可以看到刚刚录制的宏。

直接录制的代码，其实可以进行简化。

Rows("1:1").Select
Selection.Copy

可以简化成Rows("1:1").Copy，也就是复制第1行。

Rows("4:4").Select
Range("B4").Activate
Selection.Insert Shift:=xlDown

可以简化成Range("A4").Insert Shift:=xlDown，也就是在A4插入刚刚复制的标题。

重点来了Range("A4")这个是变动的，需要判断上一行有小计2字，就在下一行插入标题。也就是需要进行一次判断，在VBA里面也有IF。

If Range("A" & I) = "小计" Then

Rows("1:1").Copy
Range("A" & I + 1).Insert Shift:=xlDown

End If

I这里是变量，从1到17，这里就需要循环语句For Next，有一个注意点因为插入标题后，行数会改变，必须先从17行开始到1行往上判断，步长为-1。最终代码出来了。

Sub 插入标题()
Dim i%

For i = 17 To 1 Step -1

If Range("A" & i) = "小计" Then

Rows("1:1").Copy
Range("A" & i + 1).Insert Shift:=xlDown

End If

Next

End Sub

运行代码，就批量将标题插入完毕。

录制宏得到的是傻瓜式的代码，从中获取关键的代码，再修改才能得到智能的代码。

方法比努力更重要。

一	二	三	四	五	六	日
						1
2	3	4	5	6	7	8
9	10	11	12	13	14	15
16	17	18	19	20	21	22
23	24	25	26	27	28	29
30	31

excel学习库

excel表格_excel函数公式大全_execl从入门到精通

手废了，做个表复制粘贴3000次，只因不会For Next循环语句2024-08-26 21:21:48