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

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

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

 

 
  
  1. Sub Macro1() 
  2. For i = 2 To 5000 Step 1 
  3. If Cells(i, 2) + 2 = Cells(i + 1, 2) Then  //cell(a,b) a为行，b为列
  4. Rows(i + 1).Insert 
  5. Cells(i + 1, 2) = Cells(i, 2) + 1 
  6. End If 
  7. Next i 
  8. End Sub 
 
  
 
 
  
不过有些时段之间不止相差一个，所以还需要稍加修改才能符合要求。
 
  
之前就听说vba好用，但没实践过，第一次感觉很不错。哈哈哈。