vb实例教程之办公自动化：Excel数据处理案例实操

每天上班要处理一堆 Excel 表格的朋友，是不是总被重复劳动搞得头大？比如给几十行数据求和、给不同部门的报表标不同颜色、从杂乱的数据里挑出符合条件的记录，这些活儿不算难，但一遍遍点鼠标真的耗时间。其实用 VB 就能让 Excel 自己干活，今天兔子哥就带大家实操几个办公常用的数据处理案例，看完你也能解放双手，一起往下看吧！

为啥用 VB 做 Excel 自动化？这效率提升可不是一点半点

有朋友可能会说：“Excel 本身就有函数和宏，为啥还要学 VB？” 其实啊，复杂的批量操作靠函数根本搞不定，比如给 100 个工作表统一改格式；用宏虽然能录操作，但改起来麻烦还容易出错。VB 就不一样了，代码写一次能反复用，不管数据再多，点一下按钮全搞定。兔子哥之前帮财务部门写过一个数据汇总程序，原本两小时的活儿，现在 30 秒就完事，他们现在都喊我 “效率救星” 呢。

案例 1：用 VB 连接 Excel，第一步就得走对

想让 VB 操控 Excel，先得学会 “连接” 它们。别觉得这很难，几步就能搞定：

• 准备工作：先在电脑上建一个 Excel 文件，比如 “员工数据.xlsx”，里面录入几行测试数据（姓名、部门、工资），存在容易找到的地方，比如桌面。

• 写连接代码：打开 VB6.0，新建一个工程，在窗体上拖一个命令按钮（Command1）。双击按钮写代码：plaintext

  Dim xlApp As Object, xlBook As ObjectSet xlApp = CreateObject("Excel.Application")  '创建Excel对象Set xlBook = xlApp.Workbooks.Open("C:\Users\桌面\员工数据.xlsx")  '打开文件xlApp.Visible = True  '让Excel窗口显示出来MsgBox "连接成功！现在可以操作表格啦"

  
  

• 注意事项：文件路径一定要写对，要是提示 “找不到文件”，看看路径里有没有中文空格，或者文件是不是被打开着（被打开的文件可能连接失败）。兔子哥第一次试的时候，就因为把 “Users” 写成 “user”，折腾了十分钟才发现问题。

案例 2：自动统计数据，求和、计数一键搞定

财务朋友最常用的就是数据统计，比如求各部门工资总和。用 VB 写个程序，点一下就出结果：

• 需求：统计 “员工数据.xlsx” 中 “销售部” 的工资总和，结果显示在 MsgBox 里。

• 代码步骤：
  plaintext

  Dim i As Integer, sum As Double, dep As Stringsum = 0  '初始化总和'从第2行开始循环（第1行是表头）For i = 2 To xlBook.Worksheets("Sheet1").UsedRange.Rows.Countdep = xlBook.Worksheets("Sheet1").Cells(i, 2).Value  '第2列是部门If dep = "销售部" Thensum = sum + xlBook.Worksheets("Sheet1").Cells(i, 3).Value  '第3列是工资End IfNext iMsgBox "销售部工资总和：" & sumxlBook.Close  '关闭文件xlApp.Quit  '退出ExcelSet xlBook = Nothing: Set xlApp = Nothing  '释放对象

  
  

1. 连接 Excel（用上面的连接代码）；

2. 定位数据所在的工作表，比如 “Sheet1”；

3. 循环读取每一行的部门和工资，符合条件就累加：

• 运行效果：点按钮后，程序自动循环计算，几秒钟就弹出结果。之前手动求和容易看错行，用程序算又快又准。

案例 3：批量调整格式，报表瞬间变整齐

报表格式乱七八糟？用 VB 批量设置字体、颜色、边框，比手动调快 10 倍：

• 需求：给 “员工数据.xlsx” 的表头（第 1 行）设为蓝色背景、白色字体，给 “工资” 列（第 3 列）大于 5000 的单元格标红色。

• 核心代码：plaintext

  '设置表头格式With xlBook.Worksheets("Sheet1").Rows(1).Interior.Color = vbBlue  '蓝色背景.Font.Color = vbWhite  '白色字体.Font.Bold = True  '加粗End With'设置工资列格式For i = 2 To xlBook.Worksheets("Sheet1").UsedRange.Rows.CountIf xlBook.Worksheets("Sheet1").Cells(i, 3).Value > 5000 ThenxlBook.Worksheets("Sheet1").Cells(i, 3).Font.Color = vbRed  '红色字体End IfNext ixlBook.Save  '保存文件

  
  

• 小技巧：颜色可以用 vbRed、vbBlue 这些简单的，也可以用 RGB 代码调具体颜色，比如 RGB (255,200,200) 就是浅红色，办公报表用柔和的颜色看着更舒服。

案例 4：数据筛选导出，只要你想要的记录

从几百行数据里挑出 “销售部且工资> 5000” 的记录，手动筛选再复制多麻烦？VB 能直接把符合条件的数据导出到新表格：

• 步骤：新建一个工作表 “筛选结果”，循环判断原数据，符合条件就复制过去：plaintext

  Dim newRow As IntegernewRow = 1  '新表格的行号从1开始xlBook.Worksheets.Add.Name = "筛选结果"  '新建工作表'复制表头xlBook.Worksheets("Sheet1").Rows(1).Copy _xlBook.Worksheets("筛选结果").Rows(1)'筛选数据For i = 2 To xlBook.Worksheets("Sheet1").UsedRange.Rows.CountIf xlBook.Worksheets("Sheet1").Cells(i, 2).Value = "销售部" And _xlBook.Worksheets("Sheet1").Cells(i, 3).Value > 5000 ThennewRow = newRow + 1xlBook.Worksheets("Sheet1").Rows(i).Copy _xlBook.Worksheets("筛选结果").Rows(newRow)End IfNext i

  
  

运行后打开 Excel，会多出一个 “筛选结果” 表，里面全是符合条件的记录，是不是超方便？
兔子哥做办公自动化这么久，发现最实用的永远是解决日常痛点的小案例。刚开始不用学复杂代码，先从连接 Excel、简单统计这些基础案例练起，熟了再慢慢加功能。写代码时别怕报错，VB 的报错提示很清楚，比如 “对象未定义” 就是没声明变量，“类型不匹配” 就是数据类型错了，对着改就行。
其实 Excel 自动化没那么神秘，就像搭积木，学会几个基础模块就能组合出实用工具。建议大家把常用的重复操作记下来，一个个用 VB 实现，不出一个月，你也能成为办公室的 “效率达人”。要是哪个案例没看懂，或者运行出错，留言说说具体情况，兔子哥来帮你分析！

标签： Visual Basic VB.NET