1. 跨表数据收割机

Sub 一键合并()

' 自动汇总所有车间数据到总表

For Each ws In Worksheets

If ws.Name <> "总表" Then

ws.Range("A2:D100").Copy Destination:=Sheets("总表").Range("A" & Rows.Count).End(xlUp).Offset(1)

End If

Next

End Sub

2. 超标预警雷达

Sub 自动标红()

' 不良率超5%自动弹窗

For Each cell In Range("D2:D1000")

If cell.Value > 0.05 Then

cell.Interior.Color = vbRed

MsgBox "第" & cell.Row & "行异常！速查！"

End If

Next

End Sub

3. 智能重命名术

Sub 批量改名()

' 按"日期+型号"规则命名文件

For Each f In ThisWorkbook.Path & "\*.xlsx"

Name f As Format(Date, "yyyymmdd") & "_" & Range("B2").Value & ".xlsx"

Next

End Sub

4. 报告一键生成器

Sub 秒出日报()

' 选区域→转PDF→邮件发送

Sheets("数据").Range("A1:K50").ExportAsPDF "D:\日报.pdf"

' Outlook自动发送代码...

End Sub

5. 数据清洗机器人

Sub 智能清洗()

Columns("A:D").RemoveDuplicates '删重复

Cells.SpecialCells(xlCellTypeBlanks).Delete '除空行

Columns("C").NumberFormat = "yyyy-mm-dd" '日期标准化

End Sub

立即解锁：
点击关注免费领《5大神码模板》（含调试指南）