SCZ会计报表

每次输完数据后，执行一次下面的宏：Sub Sign()Dim r As IntegerDim p As IntegerDim s As StringConst scz = "_生产中" r = 2 s = Cells(r, 1) While s <> "" p = InStr(s, scz) If Cells(r, 2) <> "" Then If p = 0 Then s = s + scz End If Else If p > 0 Then s = Left(s, p - 1) End If Cells(r, 1) = s r = r + 1 s = Cells(r, 1) WendEnd Sub