单元格数字连续

rlz680926

1. Sub 使单元格标号顺序连续()
   
2. Dim a As Integer, b As Integer, c As Integer
   
3. On Error Resume Next
   
4. For a = 2 To 535
   
5. If Cells(a + 1, 1) - Cells(a, 1) <> 1 Then
   
6.    b = Cells(a + 1, 1) - Cells(a, 1) - 1
   
7.    If b < 0 Then
   
8.     Cells(a + 1, 1) = Cells(a, 1) + 1
   
9.    End If
   
10.    c = a + 1
    
11.    Rows(c).Resize(b).Insert
    
12.   Cells(a + 1, 1) = Cells(a, 1) + 1
    
13.    End If
    
14.     Next
    
15. End Sub
    

复制代码