Excel自动化办公常用代码.docxVIP

Excel自动化办公常用代码

在日常办公中，Excel的身影无处不在，从数据记录到报表生成，它承载着大量重复且繁琐的工作。若能巧妙运用VBA代码进行自动化处理，不仅能显著提升工作效率，更能将我们从机械的重复劳动中解放出来，专注于更具创造性的任务。本文将结合实际应用场景，精选一批Excel自动化办公中颇为实用的VBA代码片段，希望能为您的办公效率提升助一臂之力。这些代码经过实践检验，力求简洁高效，同时也保留了足够的灵活性，方便您根据具体需求进行调整。

一、数据处理与清洗：自动化的核心诉求

数据的规范与洁净是一切分析工作的基础。手动清理大量数据不仅耗时，更易出错。以下代码片段专注于解决数据处理中的常见痛点。

1.批量删除工作表中的空行

在数据录入或导入过程中，难免会产生一些空行，这些空行不仅影响数据的美观，更可能干扰后续的统计分析。

SubDeleteBlankRows()

DimwsAsWorksheet

DimlastRowAsLong

DimiAsLong

Setws=ActiveSheet操作当前活动工作表

lastRow=ws.Cells(ws.Rows.Count,A).End(xlUp).Row获取A列最后一行有数据的行号

从最后一行往上循环检查，避免删除行后行号变动导致漏删

Fori=lastRowTo1Step-1

IfApplication.CountA(ws.Rows(i))=0Then判断整行是否为空

ws.Rows(i).Delete

EndIf

Nexti

MsgBox空行删除完成！,vbInformation

EndSub

代码解析：此代码通过`CountA`函数判断某一行是否所有单元格均为空，若为空则删除。采用从下往上的循环方式，有效避免了因删除行导致的行号变化而漏删空行的问题。`ActiveSheet`可以根据需要替换为具体的工作表名称，如`Sheets(数据)`。

2.快速实现数据的批量排序

对数据进行排序是分析数据的常用手段，代码驱动的排序能确保排序规则的一致性和高效性。

SubSortData()

DimwsAsWorksheet

DimsortRangeAsRange

DimkeyColumnAsInteger

Setws=ThisWorkbook.Worksheets(销售数据)指定工作表

keyColumn=3排序关键字所在列号，例如第3列（C列）

假设数据从A1单元格开始，且有标题行，数据区域为标题行以下的连续区域

SetsortRange=ws.Range(A1).CurrentRegion.Offset(1).Resize(ws.Range(A1).CurrentRegion.Rows.Count-1)

按关键字列升序排序，Key1为排序关键字，Order1为排序方式(xlAscending升序,xlDescending降序)

sortRange.SortKey1:=ws.Cells(2,keyColumn),Order1:=xlAscending,Header:=xlNo

EndSub

代码解析：此代码首先明确定义了要操作的工作表和排序关键字列。通过`CurrentRegion`动态获取数据区域，使得代码具有一定的通用性，无需硬编码数据范围。`Offset(1).Resize`的作用是排除标题行，仅对数据部分进行排序。

3.根据特定条件筛选并复制数据

在大量数据中筛选出符合特定条件的记录，并将其复制到新的位置，这是数据整理中的常见需求。

SubFilterAndCopyData()

DimwsSourceAsWorksheet,wsDestAsWorksheet

DimlastRowAsLong,destRowAsLong

DimiAsLong

DimcriteriaAsString

SetwsSource=ThisWorkbook.Worksheets(原始数据)源数据工作表

SetwsDest=ThisWorkbook.Worksheets(筛选结果)目标工作表，存放筛选后的数据

criteria=已完成筛选条件，例如状态为已完成的记录

destRow=2目标工作表中数据开始粘贴的行号（假设第1行为标题）

wsSource.Activate

lastRow=wsSource.Cells(wsSource.Rows.Count,B).End(xlUp).Row假设条件在B列

清除目标工作表原有数据（标题行除外）

IfwsDest.Cells(w