excel通过vba插入行

今天遇到这种格式的数据：





要把不连续的时段补充连续，如图就是在时段2和时段4之间插入行。

整张表有几千行，一一排查是不可能的了，在网上找来两段代码，揉合一下，居然解决了。

Sub Macro1()
For i = 2 To 5000 Step 1
If Cells(i, 2) + 2 = Cells(i + 1, 2) Then  //cell(a,b) a为行，b为列
Rows(i + 1).Insert
Cells(i + 1, 2) = Cells(i, 2) + 1
End If
Next i
End Sub

不过有些时段之间不止相差一个，所以还需要稍加修改才能符合要求。

之前就听说vba好用，但没实践过，第一次感觉很不错。哈哈哈。
本文出自 “关注生活，关注技术” 博客，转载请与作者联系！