Dim co1，co2，co3，co4為整數
co1 =範圍(" A3 ")
co2 =範圍(“d3”)
co3 =範圍(“e3”)
co4 =範圍(" f3 ")
將a，b，c，r表示為整數
r =範圍(“A65536”)。結束(xlUp)。排
c = 0
對於a = 1到r
如果是數值(單元格(a，CO3)) = true，並且(單元格(a，CO1)像“*不包括在總價扣除中*”_
Orcells (a，co1+1)如“*不包括在總價扣除*”)則
單元格(a，co3 + 1) = -1 *單元格(a，co3)
其他
If單元格(a，1)。MergeCells = False那麽
對於b = 1到200
If單元格(a，co1)。Text =單元格(b，co2)。文本然後c = c + 1
If單元格(a，co1 + 1)。Text =單元格(b，co2 + 1)。文本然後c = c + 1
如果c & gt= 1則單元格(a，co3) =單元格(b，co4):退出
下壹個b
如果c = 0，則
單元格(a，co3) = "新項目"
那麽ElseIf c = 1
Cells(a，co3).Font.ColorIndex = 10
如果…就會結束
如果…就會結束
c = 0
If IsNumeric(Cells(a，co3)) = True，IsNumeric(Cells(a，co3 - 1)) = True，Cells(a，1)。MergeCells = False _
則單元格(a，co3 + 1) =單元格(a，co3) *單元格(a，co3 - 1)
如果…就會結束
下壹個a
末端接頭