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
 

已标记关键词 清除标记
©️2020 CSDN 皮肤主题: 大白 设计师:CSDN官方博客 返回首页