副符號()
將r標註為整數
將p標註為整數
將s作為字符串變暗
Const scz = "_生產中"
r = 2
s =單元格(r，1)
而s & lt& gt""
p =儀器(s，scz)
If Cells(r，2)& lt；& gt”“那麽
如果p = 0，則
s = s + scz
如果…就會結束
其他
如果p & gt0，則s =左(s，p - 1)
單元格(r，1) = s
r = r + 1
行
末端接頭