YANG_1605的博客

一、前言 自己从进入职场后首次接触的语言是VBA，通过一段时间的学习，感觉自己学到了不少东西，也对VBA相关知识有了一定的了解。本次文章是讲解通过具体代码来对一个实例进行实现，以此来对自己的最近所学进行一个提升与巩固。二、项目简介本次实例中总共包含6个工作表，通过对6张表中的数据进行提取，再进行运算，将其汇总成一张新的表格。这就是本次实例所要实现的功能。六张表分别是：财务费用汇总（入账+未入账）、数据源（入账）、数据源（未入账）、试算表-是、试算表-非和试算表-上月累计额。其中财务费用汇总.

通过对VBA的学习，已经基本可以通过代码来操作表格进行数据处理，本次就通过实际编写代码来进行描述：首先，先创建一张表格，用来保存最初始的数据。本次主要实现的功能是：通过所属部门的名称对人员进行分类，并按照部门名称将表格拆分成多个子表。代码实现过程如下：Sub 拆分工作表() Application.DisplayAlerts = False '不显示错误提示窗 Application.ScreenUpdating = False '不闪屏 D.

我们来认识一点VBA的代码，代码的主要意思是在两个表中进行数据的操作。Sub 测试() Dim arr() As Variant Dim brr() As Variant Dim i As Integer Dim Length As Integer Dim Longth As Integer Worksheets("利润表").Select Length = Range("A1").End(xlDown).Row For i = 1