数据拆分

kongzh

退休申报要求每个人一个文件，明年退休人数多，一个数据表按姓名拆分成每人一个文件三个表，特来求助大神帮助。谢谢。



谢谢大家的帮助。
1、因刚接手此项工作，开始考虑不周，个人工作经历不只1段，最多的工作经历有有5段。现对数据进行了重新整理，数据库中固定5个工作简历相关字段，部分字段重新命名并调换了位置。
2、如果数据表中标题位置不固定，怎么处理？重新上传了附件，请大神再帮我看看。谢谢。

cjc209

非常简单                  

liulang0808

Sub test()
    brr = Array("工作简历", "离退休信息", "参保信息")
    arr = Sheets("数据").[a1].CurrentRegion
    Application.ScreenUpdating = False
    For j = 2 To UBound(arr)
        If Len(arr(j, 1)) > 0 Then
            Sheets("数据").Cells(j, 1).Resize(1, 7).Copy Sheets(brr(0)).[a2]
            Sheets("数据").Cells(j, 8).Resize(1, 21).Copy Sheets(brr(1)).[a2]
            Sheets("数据").Cells(j, "ab").Resize(1, 4).Copy Sheets(brr(2)).[a2]
            Sheets(brr).Copy
            ActiveWorkbook.SaveAs ThisWorkbook.Path & "\" & arr(j, 3) & arr(j, 10) & ".xlsx"
            ActiveWorkbook.Close False
        End If
    Next j
    Application.ScreenUpdating = True
End Sub

liulang0808

附件内容供参考。。。。。
具体列未对应

cjc209

liulang0808 发表于 2023-3-10 08:03
Sub test()
    brr = Array("工作简历", "离退休信息", "参保信息")
    arr = Sheets("数据").[a1].Cur ...

在arr=的前面还应该加上Sheets("数据").Columns("A:A").Copy
    Sheets("数据").Columns("l:l").Insert Shift:=xlShiftToRight
结尾时候再删除插入的列才能对齐要求

liulang0808

4楼是针对表格数据中的标题位置固定并且是对应的

如果数据表中标题位置不固定，可以考虑使用字典进行匹配，但是前提是重复标题部分怎么处理？

mmwwdd

liulang0808 发表于 2023-3-10 10:07
4楼是针对表格数据中的标题位置固定并且是对应的

如果数据表中标题位置不固定，可以考虑使用字典进行匹 ...

合并单元格真是烦人,

cjc209

liulang0808 发表于 2023-3-10 10:07
4楼是针对表格数据中的标题位置固定并且是对应的

如果数据表中标题位置不固定，可以考虑使用字典进行匹 ...

那就分段字典匹配了

kongzh

谢谢大家的帮助。
因刚接手此项工作，开始考虑不周，还有一个问题是工作经历最多的有5段，数据库中会固定5个工作简历相关字段，部分字段重新命名并调换了位置。重新上传了附件，请大神再帮我看看。

熊文来

cjc209 发表于 2023-3-10 09:06
在arr=的前面还应该加上Sheets("数据").Columns("A:A").Copy
    Sheets("数据").Columns("l:l").Insert ...

能发个附件上来吗？谢谢！