光学四等红黑尺编数据（点号处理）

Sub 点号递增()
Dim i As Integer
Dim j As Integer
Dim Z As Integer
Dim X As Integer
Dim M As Integer
Dim N As Integer
Dim C As Integer

For i = 9 To 24 Step 4
Z = Cells(i, 18)
j = Cells(i, 18) * 4 + 7

If i = 9 Then                   '处理第二行首末站行号
 Cells(i, 2) = Cells(i, 15)
 
 
 Cells(i + 2 + (Z - 1) * 4, 2) = Cells(i, 16)
 Cells(i + 4 + (Z - 1) * 4, 2) = Cells(i + 2 + (Z - 1) * 4, 2)
 
    Cells(i, 8) = Cells(i, 2) '处理第八行行号
    
Cells(i + 1 + (Z - 1) * 4, 8) = Cells(i, 16)
    
 Else
 N = Cells(i - 4, 18)

  Cells(j, 2) = Cells(i, 16)
  
  Cells(j + 2, 2) = Cells(j, 2)

 
 End If
 
For X = 9 To 62 Step 4
 
If (Cells(X, 1).Row - 5) / 4 <= Z Then Cells(X, 1) = (X - 5) / 4

 Next X

 Next i
 
 For M = 9 To 63 Step 2 '处理TP
 Cells(M, 8) = Cells(M, 2)
 C = M + 1
 Cells(M + 1, 8) = Cells(M + 2, 2)
 If Cells(M, 2) = "" Then Cells(M, 2) = "TP"
 Next
 
End Sub