使用 VBA 自动化提取工单信息：提升效率的实用教程

欢迎大家来到IT世界,在知识的湖畔探索吧!

在日常工作中，我们常常需要处理包含大量关键信息的数据表，例如服务工单数据。如果手动整理，不仅费时费力，还容易出错。那么，有没有一种高效的方法可以自动提取关键信息，并快速整理到对应的单元格呢？答案是肯定的，今天我们将分享一段基于 Excel VBA 的代码，帮助大家轻松完成这项任务。

一、场景描述

欢迎大家来到IT世界,在知识的湖畔探索吧!

我们需要将工单状态、工单号、用户姓名、用户电话、用户虚拟号、服务地址、业务类型、产品品类后面信息提取分别写入B:I单元格，效果如下图所示：

二、代码实现

Sub 提取工单信息分别写入对应单元格() Dim ws As Worksheet Dim lastRow As Long Dim i As Long Dim sourceData As String ' 获取工作表和最后一行 Set ws = ThisWorkbook.Sheets(1) ' 根据需要修改为您的工作表名称 lastRow = ws.Cells(ws.Rows.Count, "A").End(xlUp).Row ' 获取A列的最后一行 ' 添加表头 ws.Range("B2").Value = "工单状态" ws.Range("C2").Value = "工单号" ws.Range("D2").Value = "用户姓名" ws.Range("E2").Value = "用户电话" ws.Range("F2").Value = "用户虚拟号" ws.Range("G2").Value = "服务地址" ws.Range("H2").Value = "业务类型" ws.Range("I2").Value = "产品类型" ' 将F列设置为文本格式 ws.Columns("F").NumberFormat = "@" ' 循环遍历每一行 For i = 3 To lastRow ' 从A3开始 sourceData = ws.Cells(i, "A").Value ' 提取工单状态 ws.Cells(i, "B").Value = Mid(sourceData, InStr(sourceData, "工单状态：") + 5, 2) ' 提取工单号 ws.Cells(i, "C").Value = Mid(sourceData, InStr(sourceData, "工单号:") + 4, 11) ' 提取用户姓名 ws.Cells(i, "D").Value = Mid(sourceData, InStr(sourceData, "用户姓名:") + 5, 2) ' 提取用户电话 ws.Cells(i, "E").Value = Mid(sourceData, InStr(sourceData, "用户电话:") + 5, 11) ' 提取用户虚拟号并写入到F列（文本格式） ws.Cells(i, "F").Value = Mid(sourceData, InStr(sourceData, "用户虚拟号:") + 6, 12) ' 提取服务地址 ws.Cells(i, "G").Value = Mid(sourceData, InStr(sourceData, "服务地址:") + 5, 47) ' 提取业务类型 ws.Cells(i, "H").Value = Mid(sourceData, InStr(sourceData, "业务类型:") + 5, 2) ' 提取产品品类 ws.Cells(i, "I").Value = Mid(sourceData, InStr(sourceData, "产品品类:") + 5, Len(sourceData) - InStr(sourceData, "服务地址:") - 4) Next i MsgBox "数据提取完成！", vbInformation End Sub 

欢迎大家来到IT世界,在知识的湖畔探索吧!

三、代码说明

1. 动态获取最后一行：

使用 lastRow = ws.Cells(ws.Rows.Count, “A”).End(xlUp).Row，可以准确获取 A 列中数据的最后一行，确保代码可适配不同的数据量。

2. 设置 F 列为文本格式：

使用 ws.Columns(“F”).NumberFormat = “@”，避免用户虚拟号在写入时被自动转换为科学计数法。

3. 逐行解析数据：

通过 For 循环遍历每一行，结合 Mid 和 InStr 函数，精确提取所需的字段。

4. 优化用户体验：

提取完成后，通过弹窗提示用户，增加交互性。

这段代码不仅适用于工单信息的提取，还可以根据您的实际需求稍作修改，用于类似格式的其他数据处理任务。比如，可以用来提取物流单信息、客户订单详情等。