根据汇总表D列的（班级）匹配到对应表名，并且根据第1行的抬头

sulli112

1、根据汇总表D列的（班级）匹配到对应表名，并且在找到的对应表里面，匹配到姓名一致那一栏2、将汇总表的数据按照各个表的抬头，将其复制到对应位置

3   .如果找表中找不到对应位置，就在对应表名里面最后一列

3190496160

你目前分表中不是已经有数据了吗？你分表原始的是什么样子

sulli112

3190496160 发表于 2020-5-14 15:27
你目前分表中不是已经有数据了吗？你分表原始的是什么样子

可是我汇总表有些数据还没有分配进去的，因为是后期缴费的，所以要将汇总表里面的补缴餐费，伙食费之类的要分配到对应班级对应姓名那一栏，
还有一些是新缴费的，也要将他分配到对应班级，前提示不覆盖之前的数据

3190496160

sulli112 发表于 2020-5-14 16:16
可是我汇总表有些数据还没有分配进去的，因为是后期缴费的，所以要将汇总表里面的补缴餐费，伙食费之类的 ...

总体是个数组+字典匹配的问题，如果是想你说的这样的话，就麻烦一些了，稍后看看吧

sulli112

我这个壳子是可以按序列拆分，但是再次拆分会覆盖前一次拆分的数据



Sub 根据列内容拆分数据表()


Dim sht As Worksheet
Dim k, i, j As Integer
Dim irow As Integer '这个说的是一共多少行
Dim l As Integer
Dim sht0 As Worksheet



Set sht0 = ActiveSheet
Range("a1", "a" & [a65536].End(xlUp).Row).SpecialCells(xlCellTypeBlanks).EntireRow.Delete '当第一行为空值时删除整行

l = InputBox("要按第几列拆分")


'删除无意义的表
Application.DisplayAlerts = False
If Sheets.Count > 1 Then
    For Each sht1 In Sheets
        If sht1.Name <> sht0.Name Then
            sht1.Delete
        End If
    Next
End If
Application.DisplayAlerts = True


irow = sht0.Range("a65536").End(xlUp).Row


'拆分表
For i = 2 To irow
    k = 0
    For Each sht In Sheets
        If sht.Name = sht0.Cells(i, l) Then
            k = 1
        End If
    Next
   
   
    If k = 0 Then
        Sheets.Add after:=Sheets(Sheets.Count)
        Sheets(Sheets.Count).Name = sht0.Cells(i, l)
    End If

Next
'拷贝数据

For j = 2 To Sheets.Count
    sht0.Range("a1:z" & irow).AutoFilter Field:=l, Criteria1:=Sheets(j).Name
    sht0.Range("a1:z" & irow).Copy Sheets(j).Range("a1")
Next

sht0.Range("a1:z" & irow).AutoFilter

sht0.Select

MsgBox "已处理完毕！"

End Sub

sulli112

3190496160 发表于 2020-5-14 16:19
总体是个数组+字典匹配的问题，如果是想你说的这样的话，就麻烦一些了，稍后看看吧

好的，谢谢

sulli112

顶顶

笨鸟飞不高

sulli112 发表于 2020-5-14 21:35
顶顶

比如 汇总表的张多学杂费1865，在分表中怎么处理?

sulli112

那用这份试试，可能我为了测试数据没有把学杂费去掉，一般不会出现重复缴费情况的，我下面这个附件做了修改，新增了一个没交学杂费的，请问要怎么将他复制到对应班级表名，并且新增一行，将这位新生的数据复制上去

sulli112

笨鸟飞不高 发表于 2020-5-14 22:49
比如 汇总表的张多学杂费1865，在分表中怎么处理?

那用这份试试，可能我为了测试数据没有把学杂费去掉，一般不会出现重复缴费情况的，我下面这个附件做了修改，新增了一个没交学杂费的，请问要怎么将他复制到对应班级表名，并且新增一行，将这位新生的数据复制上去