Sub hello()
Dim m, n As Integer
For m = 1 To 1236
If Cells(m, 1) = "BEGIN" Then Cells(m, 1).Cut Cells(m, 3)
Next
End Sub
Excel VBA断面数据4
最新推荐文章于 2022-05-13 14:10:10 发布
Sub hello()
Dim m, n As Integer
For m = 1 To 1236
If Cells(m, 1) = "BEGIN" Then Cells(m, 1).Cut Cells(m, 3)
Next
End Sub