Excel 总表自动分类添加到分表，总表数据仍然保留。~~坐等大神解答~~~~万分感谢~~~~

Question

要求：按渠道号分类，分别添加到各个相应渠道号表格。如：总表里新增渠道二信息，那么此行会自动添加到下面渠道二的表格里，总表里面的信息任然保留。总共有八个渠道excel小白，坐等大神帮忙，万分感谢！

Answer 1

1、制作了一张神仙和妖怪们PK的报表，十二张月份表和总表的表结构是完全一样的。

2、采用RANDBETWEEN函数随机生成介于600到1000之间的整数。

3、鼠标定位到总表单元格，框选所有的数据单元格，输入SUM求和。

4、鼠标定位到1月工作表按住shitf键选中十二月工作表，这样就选中了所有的月份工作表。

5、鼠标单击1月工作表中第一个数据单元格【B4】，补齐SUM函数的右括号，同时按下ctrl+回车键，总表数据填充完成。

Answer 2

总表

渠道一

G1=REPLACE(CELL("filename",A1),1,FIND("]",CELL("filename",A1)),"")&T(NOW())

这个公式是提取工作表名称的，只有工作簿保存后才能生效，如果不用这个公式，每个分表手动输入也可以。

A2=INDEX(总表!A:A,SMALL(IF(总表!$A$1:$A$3000=$G$1,ROW($A$1:$A$3000),4^8),ROW(A1)))&""

数组公式向下向右复制【数组公式，公式输完后，光标放在公式编辑栏同时按下CTRL+SHIFT+回车键，使数组公式生效】

至此分表渠道一已经做好，总表输入了数据，公式自动添加到分表中。

在工作簿中复制七个渠道一分别修改为 渠道一、 渠道二、 渠道三 、 渠道四 、 渠道五、 渠道六、 渠道七 、 渠道八 。

至此八个分表全部做好，总表输入了数据，公式自动添加到各个分表中。

本回答被提问者和网友采纳

Answer 3

Private Sub Workbook_SheetChange(ByVal Sh As Object, ByVal Target As Range)
            Dim i, k As Integer
            Dim rng As Range
                Set rng = Sheets(1).UsedRange.Find(Target)
                    If rng Is Nothing Then Exit Sub'判断填写的单元格是不是为第一个工作表
                i = Target.Row
                k = Target.Column
                For j = 1 To ActiveWorkbook.Sheets.Count
                If Sheets(j).Name = Sheets(1).Range("a" & i) Then'寻找相对应的表格
                   Sheets(j).Cells(i, k) = Target'不知道你那分表的格式 你看着改
                    
                End If
                Next
                Sheets(j).Select
                 Range("B2:B30").Select''对工作表以时间排序  （主要排除空格）
    With ActiveSheet.Sort
        With .SortFields
            .Clear
            .Add Key:=Range("B2"), Order:=xlAscending
        End With
        .Header = xlGuess
        .MatchCase = False
        .SortMethod = xlPinYin
        .Orientation = xlSortColumns
        .SetRange rng:=Selection
        .Apply
    End With
    set rng = nothing
End Sub

Answer 4

点击第一个分表名称,按住Shift键在点击最后一个分表名称,也就是全选八个分表,此时除【总表】外的分表会成为一个【工作组】，每个分表均处于选中状态。在A2单元格输入下面公式:
=INDEX(总表!A:A,SMALL(IF(总表!$A$2:$A$53=MID(CELL("filename",A1),FIND("]",CELL("filename",A1))+1,99),ROW($2:$53),4^8),ROW(A1)))&""
再按组合键<Ctrl+Shift+Enter>，向下向右复制填充到A2:F50区域。填充完成后，单击不属于成组工作表的【总表】标签，Excel会自动取消组合工作表状态。至此根据工作表名称批量拆分总表数据的操作也算是完成了；当总表的数据发生改变时，分表的数据也会随之改变。

Answer 5

这样的操作不是三言两语能讲清楚的，把表格发过来吧。