Sub 數(shù)量回寫()Application.ScreenUpdating = FalseRange("U3:DA60000").ClearContentsRange("U3:DA60000").ClearFormatsRange("L3:L60000").ClearFormatsDim vArrDim i%, j%Dim row%, countArr%vArr = Sheet2.UsedRangerow = Cells(Rows().Count(), 2).End(3).rowcountArr = UBound(vArr)For i = 3 To rowFor j = 3 To countArrIf Cells(i, 2) = vArr(j, 2) ThenFor k = 16 To Sheet2.Cells(1, Columns().Count()).End(1).ColumnIf vArr(j, k) <> "" ThenvArr(j, k) = Sheet2.Cells(j, "N")Cells(i, k + 5) = Cells(i, k + 5) + vArr(j, k)If Cells(i, k + 5) > Cells(i, "L") ThenCells(i, k + 5).Interior.ColorIndex = 3Cells(i, "L").Interior.ColorIndex = 3End IfEnd IfNext kEnd IfNext jNext iApplication.ScreenUpdating = TrueEnd Sub