10个适合VBA初学者的经典应用案例

1 数据清洗三连击

Sub CleanData()

With Sheets("数据")

.UsedRange.Replace "#N/A","" '清错误值 .UsedRange.SpecialCells(xlCellTypeBlanks).EntireRow.Delete '删空行

.UsedRange.RemoveDuplicates Columns:=Array(1,3) '去重

End With

End Sub

一键完成数据标准化

2 多文件合并

file = Dir("C:\Reports\*.xlsx")

Do While file <> ""

Workbooks.Open(file).Sheets(1).UsedRange.Copy _ 总

表.Cells(Rows.Count,1).End(xlUp).Offset(1)

Loop

自动汇总文件夹内所有Excel

3 邮件轰炸机

Set olApp = CreateObject("Outlook.Application")

For Each row In Range("A2:A10") olApp.CreateItem(0).To=row.Offset(0,1).Send

Next

批量发送带附件的邮件

4 智能考勤机

If Cells(i,3).Value < TimeValue("9:00") Then

Cells(i,5).Value = "迟到"

ElseIf Cells(i,4).Value > TimeValue("18:30") Then

Cells(i,5).Value = "加班"

End If

自动标记异常考勤

5 风险预警器

If cell.Value > 1000000 Then

cell.AddComment "超预算！"

cell.Interior.Color = RGB(255,200,200)

End If

高亮异常数据+批注提醒

6 自动归档

savePath = "D:\Archives\" & Format(Date,"yyyy-mm") & "\"

ThisWorkbook.SaveCopyAs savePath & "Report_" & Format(Now,"dd-HHMM") & ".xlsm

按日期生成版本备份

7 动态看板

ActiveWorkbook.PivotCaches.Create(SourceData:="数据!A1:E100").CreatePivotTable

Charts.Add.ChartType = xlColumnClustered

2行代码生成透视表+图表

8 数据校验

Private Sub Worksheet_Change(ByVal Target As Range)

If Not IsNumeric(Target) Then

MsgBox "输入数字！"

Target.ClearContents

End If

End Sub

实时监控输入合法性

9 智能批处理

For Each ws In Worksheets

ws.Name = "Data_" & ws.Index ws.Range("A1:D10").Borders.LineStyle = xlContinuous

Next

批量重命名+统一格式

数据库对接

conn.Open "Driver={SQL Server};Server=MyServer;"

Range("A2").CopyFromRecordset conn.Execute("SELECT * FROM Orders")

直连SQL数据库抓数据

#VBA技巧 #Excel神器 #打工人必备

#办公自动化 #数据清洗 #效率提升

你还被哪些重复工作困扰？评论区告诉我

Tags：批处理 for