vba右断面cass(南方）格式转成EICAD(苏交科断面格式）

Sub test()
Dim i, j, m, n As Integer
For i = 1 To 23

 If Cells(i, 1) = "BEGIN" Then j = i
If Cells(i + 1, 1) = "BEGIN" Then m = i - j

For n = 1 To m - 1

    If Cells(i - m, 1) = "BEGIN" Then Cells(i - m + 1, 2 * n + 1) = Cells(i - m + n + 1, 1): _
    Cells(i - m + 1, 2 * n + 2) = Cells(i - m + n + 1, 2)
   Next

Next

End Sub