一分钟速成数据清洗，告别冗余烦恼！

2024-01-17 17:33:43

数据清洗必备技：一分钟速成告别冗余烦恼！

在数据分析和处理中，数据清洗是一项必备技能。它可以帮助我们剔除数据中的错误和冗余，提升数据的质量。今天，让我们来学习一个一分钟速成的数据清洗技巧，让你轻松告别冗余烦恼！

问题：合并单元格带来的困扰

我们经常会遇到这样的表格：A列是带有合并单元格的部门名称，右侧是各部门的人员姓名，每个部门的人数也没有规律。如下图所示：

部门	人员姓名
市场部	张三
	李四
	王五
销售部	赵六
	钱七
技术部	孙八

这样的表格在数据分析时会带来诸多不便，例如：

无法统计各部门的人员数量
无法对数据进行排序或筛选
无法使用透视表进行分析

解决方案：使用分列工具

要将此类表格转换为需要的数据样式（每行一个部门名称和人员姓名），可以使用分列工具：

选中表格中的数据区域。
在菜单栏中选择“数据”选项卡。
在“数据工具”组中，单击“分列”按钮。
在“分列向导”中选择“固定宽度”选项，然后单击“下一步”。
在“分列”窗口中，调整分隔符位置，使每个部门名称和人员姓名位于单独的列中。
单击“预览”按钮查看效果，确认无误后单击“完成”按钮。

VBA代码实现

如果你更熟悉VBA代码，也可以使用以下代码实现上述步骤：

Sub UnmergeAndSplitTable()
    Dim rng As Range, i As Integer, j As Integer, k As Integer

    Set rng = Application.InputBox("选择需要拆分合并单元格的表格区域：", Type:=8)

    ' 确定合并单元格的行数和列数
    k = rng.Rows.Count
    For i = 1 To k
        For j = 1 To rng.Columns.Count
            If rng(i, j).MergeCells Then
                k = k + rng(i, j).MergeArea.Rows.Count - 1
            End If
        Next j
    Next i

    ' 复制数据到一个新工作表中
    rng.Copy Sheets.Add.Cells(1, 1)
    Sheets.Add.Name = "拆分后的数据"

    ' 循环拆分合并单元格
    k = 1
    For i = 1 To rng.Rows.Count
        For j = 1 To rng.Columns.Count
            If rng(i, j).MergeCells Then
                For m = 1 To rng(i, j).MergeArea.Rows.Count
                    Sheets.Add.Cells(k + m - 1, j) = rng(i, j).Value
                Next m
                k = k + rng(i, j).MergeArea.Rows.Count - 1
            Else
                Sheets.Add.Cells(k, j) = rng(i, j).Value
            End If
        Next j
        k = k + 1
    Next i
End Sub