EXCEL VBA----断面数据处理1

Sub Myhello()
Dim k As Integer
For k = 1 To 1236
If Cells(k, 1).Value = "BEGIN" Then Cells(k, 2) = " "

Next
  
End Sub