Excel VBA实战：3分钟搞定固定资产标签批量打印（附完整代码）

原创

于 2026-03-31 02:11:41 发布 · 543 阅读

标签

Excel VBA实战：固定资产标签批量打印全流程指南

固定资产管理是每个企业都绕不开的基础工作，而标签打印这个看似简单的环节却常常让行政和IT人员头疼不已。想象一下，当公司新购入200台设备时，手动逐个输入打印不仅耗时费力，还容易出错。这正是VBA自动化可以大显身手的地方——用代码把三天的工作压缩到三分钟完成。

1. 准备工作与环境搭建

在开始编写VBA代码前，我们需要做好基础准备工作。首先确保你的Excel已经启用了开发工具选项卡：文件→选项→自定义功能区→勾选"开发工具"。然后按下Alt+F11打开VBE编辑器，这是我们的主战场。

必备工具清单：

Microsoft Excel 2010及以上版本
标签打印机（推荐Brother QL系列）
标准A4标签纸（如A4 63.5×33.9mm）

建议先创建一个标准的Excel工作簿，包含两个工作表：第一个命名为"资产明细"用于存放原始数据，第二个保留为"Sheet1"用于输出标签。数据源表格应该包含这些基本字段：

列名	数据类型	说明
资产编号	文本	唯一标识符
资产名称	文本	设备描述
规格型号	文本	技术参数
购置日期	日期	YYYY-MM-DD格式
使用部门	文本	责任归属
存放地点	文本	物理位置信息

2. 核心VBA代码解析

下面这个改进版的VBA模块可以处理大多数固定资产标签打印需求。代码加入了错误处理和格式自适应功能：

Sub GenerateAssetTags()
    On Error GoTo ErrorHandler
    Dim wsData As Worksheet, wsOutput As Worksheet
    Dim rngData As Range, lastRow As Long
    Dim i As Long, tagCounter As Integer
    Dim arrHeaders() As Variant
    
    ' 初始化设置
    Set wsData = ThisWorkbook.Worksheets("资产明细")
    Set wsOutput = ThisWorkbook.Worksheets.Add(After:=ThisWorkbook.Sheets(ThisWorkbook.Sheets.Count))
    wsOutput.Name = "资产标签_" & Format(Now(), "yyyymmddhhmmss")
    
    ' 获取数据范围
    lastRow = wsData.Cells(wsData.Rows.Count, "A").End(x