Sub ControlInsertProduct()Dim Wb As WorkbookDim OneSht As WorksheetDim Arr As VariantDim i As LongArr = Array("农家香菜籽油（20L）", "万家炊大豆油（20L）", "万家炊原香菜籽油（20L）", "压榨菜籽油（20L）")Set Wb = Application.ThisWorkbookFor Each OneSht In Wb.WorksheetsIf IsNumeric(OneSht.Name) Or OneSht.Name = "月销量" ThenFor i = LBound(Arr) To UBound(Arr)InsertNewProduct OneSht, Arr(i)Next iEnd IfNext OneShtSet Wb = NothingSet OneSht = Nothing
End SubSub InsertNewProduct(ByVal Sht As Worksheet, ByVal ProductName As String)Dim InsertCol&, EndCol&, EndRow&   '插入列和结束列Dim CopyStart, CopyEnd    '复制的起始列Dim OrgRng As RangeWith ShtEndCol = .Cells.Find("*", .Cells(1, 1), xlValues, xlWhole, xlByColumns, xlPrevious).ColumnEndRow = .Cells.Find("*", .Cells(1, 1), xlValues, xlWhole, xlByRows, xlPrevious).RowInsertCol = EndCol - 2CopyStart = EndCol - 5CopyEnd = EndCol - 3Set OrgRng = .Range(.Cells(2, CopyStart), .Cells(EndRow, CopyEnd))OrgRng.Copy.Cells(2, InsertCol).Insert xlShiftToRight, xlFormatFromLeftOrAbove.Cells(2, InsertCol).Value = ProductName'修改公式EndCol = EndCol + 3For i = 4 To EndRow - 2If Not .Cells(i, EndCol - 2).Formula Like "*SUM*" ThenFormula = "="For j = 4 To EndCol - 3 Step 3Formula = Formula & "+" & .Cells(i, j).AddressNext jFormula = Replace(Formula, "+", "", , 1).Cells(i, EndCol - 2).Value = FormulaEnd IfIf Not .Cells(i, EndCol - 1).Formula Like "*SUM*" ThenFormula = "="For j = 5 To EndCol - 3 Step 3Formula = Formula & "+" & .Cells(i, j).AddressNext jFormula = Replace(Formula, "+", "", , 1).Cells(i, EndCol - 1).Value = FormulaEnd IfIf Not .Cells(i, EndCol - 0).Formula Like "*SUM*" ThenFormula = "="For j = 6 To EndCol - 3 Step 3Formula = Formula & "+" & .Cells(i, j).AddressNext jFormula = Replace(Formula, "+", "", , 1).Cells(i, EndCol - 0).Value = FormulaEnd IfNext iEnd WithSet OrgRng = Nothing
End Sub