excel 按列拆分合并表格操作及脚本

最新推荐文章于 2025-06-09 15:31:16 发布

心飞路漫

最新推荐文章于 2025-06-09 15:31:16 发布

阅读量1.1k

点赞数

CC 4.0 BY-SA版权

分类专栏： excel 文章标签： vb

本文链接：https://blog.csdn.net/qq_34924407/article/details/112462507

当面临大量杂乱数据时，Excel的分列功能能有效帮助整理。通过简单四步操作，选择分隔符号，如中文逗号，即可轻松拆分数据。对于更大规模的数据，可以利用VBA脚本自动化处理，提高效率。

摘要生成于 C知道，由 DeepSeek-R1 满血版支持，前往体验 >

有时候我们从系统软件中导出来的数据是杂乱的，需要我们进一步的拆分来，进而找到我们需要的数据。
如果一个一个的去弄就会显得很麻烦，Excel中的分列功能就能帮到你，大家来一起试试吧!
第一步，找到系统中的数据，并将数据复制粘贴到excel表格中。
第二步，选中需要分列的数据，在【数据】选项卡中，找到【分列】菜单。
第三步，观察我们的原始数据，他们是被一个个的逗号隔开的，所以我们选择分隔符号，点击下一步。
第四步，在【其他】复选框内点击一下，打上勾，然后在右边的方框内输入【，】这个逗号是中文格式。我们可以在预览窗口内看到已经将数据拆分。

=============================
如果数据量再大，数据再多就不能手动操作了，这个时间就需要脚本来处理

Sub 拆分总表()
    Sheets(1).Select
    Ro = [A65536].End(3).Row '根据第A列提取最大行数
    Co = [XFD1].End(1).Column '根据第1行提取最大列数
    Dim i As Integer, sht As Worksheet
        NullName = "【空数据】"
    m = InputBox("按第几列拆分？" & Chr(10) & Chr(10) & "列序数范围：1 至 " & Co & "", "请选择", 1)
    '退出机制
    If Not IsNumeric(m) Then
        MsgBox "你输入的不是数字！"
        Exit Sub
    ElseIf m * 1 > Co Then
        MsgBox "超出了数据的列数！"
        Exit Sub
    End If
     If Sheets.Count > 1 Then '发现其他分表
        mdel = InputBox("发现其他分表，是否删除其他分表？" & Chr(10) & Chr(10) & "删除：1  " & Chr(10) & "保留分表：0 【默认】", "请选择", 0)
        If IsNumeric(mdel) Then
            If mdel > 0 Then
               Call 删除分表
            End If
        End If
     End If
   
    '创建新表
    For i = 2 To Ro
        k = 0
        tname = Sheets(1).Cells(i, m * 1)
        If Trim(tname) = "" Then
          tname = NullName
        End If
        For Each sht In Sheets