VBA------------实例(表格数据拆分)

最新推荐文章于 2024-10-07 13:34:35 发布

YANG_1605

最新推荐文章于 2024-10-07 13:34:35 发布

阅读量1.5k

点赞数 1

分类专栏： vba 文章标签：数据分析

本文链接：https://blog.csdn.net/YANG_1605/article/details/111676260

版权

通过对VBA的学习，已经基本可以通过代码来操作表格进行数据处理，本次就通过实际编写代码来进行描述：

首先，先创建一张表格，用来保存最初始的数据。

本次主要实现的功能是：通过所属部门的名称对人员进行分类，并按照部门名称将表格拆分成多个子表。

代码实现过程如下：

Sub 拆分工作表()
    Application.DisplayAlerts = False  '不显示错误提示窗
    Application.ScreenUpdating = False  '不闪屏
    
    Dim i As Integer
    Dim sh As Worksheet
    
    '删除多余的工作表
    If Sheets.Count > 1 Then
        For i = Worksheets.Count To 2 Step -1
            Worksheets(i).Delete
        Next i
    End If
    
    '对信息表中的数据按照部门进行排序，之后按照部门拆分成新的工作表
    Dim irow As Integer
    Dim istart As Integer
    
    irow = Range("A" & Rows.Count).End(xlUp).Row  '计算一共需要处理的行号
    If irow > 2 Then
        Range("A2:K" & irow).Sort Range