1、在开发工具——查看代码
2、将以下代码复制到里面Sub 批量生成EXCEL并命名()Dim i As IntegerT = Range("A" & Rows.Count).End(xlUp).RowFor i = 2 To TIf Cells(i, 12).Value = Cells(i + 2, 12).Value And Cells(i, 12).Value = Cells(i + 1, 12) Then i = i + 2 Else i = iIf Cells(i, 12).Value = Cells(i + 1, 12).Value Then i = i + 1 Else i = iRange(Cells(i, 1), Cells(i, 10)).Select Selection.CopyWorkbooks.AddRange("A2").SelectActiveSheet.PasteRange("A1").Select ActiveCell.FormulaR1C1 = "序号" Range("B1").Select ActiveCell.FormulaR1C1 = "所属ENODE-ID" With ActiveCell.Characters(Start:=1, Length:=16).Font .Name = "Tahoma" .FontStyle = "常规" .Size = 10 .Strikethrough = False .Superscript = False .Subscript = False .OutlineFont = False .Shadow = False .Underline = xlUnderlineStyleNone .ThemeColor = xlThemeColorLight1 .TintAndShade = 0 .ThemeFont = xlThemeFontNone End With Range("C1").Select ActiveCell.FormulaR1C1 = "基站名称" Range("D1").Select ActiveCell.FormulaR1C1 = "站型" Range("E1").Select ActiveCell.FormulaR1C1 = "厂商" Range("F1").Select ActiveCell.FormulaR1C1 = "维护部" Range("G1").Select ActiveCell.FormulaR1C1 = "行政区" Range("H1").Select ActiveCell.FormulaR1C1 = "扩容方式" Range("I1").Select ActiveCell.FormulaR1C1 = "扩容配置" Range("J1").Select ActiveCell.FormulaR1C1 = "来源"Windows("扩容批量生成脚本.xlsm").Activate t = Cells(i, 12).ValueActiveWindow.ActivateNextActiveWorkbook.SaveAs Filename:=t '另存ActiveWorkbook.Close Windows("扩容批量生成脚本.xlsm").Activate Next MsgBox "已完成", vbOKOnly + vbInformation, "弹窗提醒" End Sub
3、将其保存为XLSM格式。后面如果要执行就直接点执行即可，不过格式一定要如下图所示。
