'类别=个人常用
'说明=绘图输入工程量汇总表(按构件)
Sub
绘图输入删除()
For
Each
objsht
In
Sheets
objsht.Name = Replace(objsht.Name,
"绘图输入工程量汇总表(按构件) - "
,
""
)
Next
End