事前导入南方的断面格式,分列时候,英文:分开断面数目
Sub Myhello()
Dim k As Integer
For k = 1 To 1236
If Cells(k, 1).Value = "BEGIN" Then Cells(k, 1) = Cells(k, 2): Cells(k, 2) = " "
Next
End Sub
事前导入南方的断面格式,分列时候,英文:分开断面数目
Sub Myhello()
Dim k As Integer
For k = 1 To 1236
If Cells(k, 1).Value = "BEGIN" Then Cells(k, 1) = Cells(k, 2): Cells(k, 2) = " "
Next
End Sub