Sub 判断工点类型() Application.ScreenUpdating = False Application.DisplayAlerts = False For j = 4 To Sheets("勘探点一览表").Cells(Rows.Count, 1).End(xlUp).Row If Sheets("勘探点一览表").Cells(j, 3).Value = "*桥*" Then Sheets("勘探点一览表").Cells(j, 27).Value = "桥梁" ElseIf Sheets("勘探点一览表").Cells(j, 3).Value = "隧道" Then Sheets("勘探点一览表").Cells(j, 27).Value = "隧道" ElseIf Sheets("勘探点一览表").Cells(j, 3).Value = "互通" Then Sheets("勘探点一览表").Cells(j, 27).Value = "互通" Else Sheets("勘探点一览表").Cells(j, 27).Value = "桥梁" End If Next ThisWorkbook.Save Sheets("勘探点一览表").Select Application.DisplayAlerts = True Application.ScreenUpdating = True End Sub
时间: 2024-03-14 20:49:33 浏览: 26
这是一个VBA宏,用于根据勘探点一览表中第三列的内容判断工点类型,并将结果写入该行的第27列。如果第三列包含"桥",则将该行第27列的值设为"桥梁";如果第三列是"隧道",则将该行第27列的值设为"隧道";如果第三列是"互通",则将该行第27列的值设为"互通";否则将该行第27列的值设为"桥梁"。最后保存工作簿并显示警告框和屏幕更新。