vba左断面数据cass格式转苏交科断面格式

ub DM()
Dim i, j, m, n As Integer
For i = 1 To 30

'左断面数据cass格式转苏交科断面格式
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 + 1, 1) = "BEGIN" Then Cells(i, 2 * n + 1) = Abs(Cells(i - n, 1)): Cells(i, 2 * n + 2) = Abs(Cells(i - n, 2))
Next

Next
End Sub