用代码实现拆分总表后，总表更新数据，分表不能自动更新

驭今

数据是总表，根据班级用代发拆分后，我再在数据表中，添加了数据（如图标黄色数据），然后无法自动更新，该怎么办？    网上说复制以下代码就能实现,也不知道是我哪里操作错误，总是不成功，请大神详细的写一下操作步骤。
     自动更新代码如下：
      Private Sub Worksheet_Change(ByVal Target As Range)
ActiveWorkbook.RefreshAll
End Sub


使用的拆分代码如下：

Sub 按列拆分()
Dim rng As Range, i As Integer, sht As Worksheet, sh As Worksheet
Application.ScreenUpdating = False
Application.DisplayAlerts = False
Rem 要根据哪一列进行拆分
Set sht = Worksheets("数据")
Set rng = Application.InputBox(prompt:="选择拆分列", Type:=8)
rng.EntireColumn.Copy sht.[h1]
sht.Range("H:H").RemoveDuplicates Columns:=1, Header:=xlYes
Rem 添加工作表,总表里筛选符合条件表格复制粘贴至目标表
For i = 2 To sht.[h65536].End(xlUp).Row
Worksheets.Add.Name = sht.Cells(i, "h").Value
sht.Select
[a1].CurrentRegion.Select
Selection.AutoFilter Field:=rng.Column, Criteria1:=sht.Cells(i, "h").Value
Selection.Copy Worksheets(sht.Cells(i, "h").Value).[a1]
Worksheets(sht.Cells(i, "h").Value).Select
Columns("A:E").Select
Selection.Columns.AutoFit
[a1].Select
Next
Rem 总表清除筛选，删除辅助的h列
sht.Select
Selection.AutoFilter
[h:h].Clear
[a1].Select
Application.ScreenUpdating = True
Application.DisplayAlerts = True
End Sub

梦幻的流星

工作簿11.zip (21.84 KB, 下载次数: 5)

2021-6-2 18:04 上传

点击文件名下载附件

3190496160

你的小轿车，你不踩油门，不打火 ，它能跑吗？？？

驭今

梦幻的流星 发表于 2021-6-2 18:04

能不能给下代码？或者是讲解一下怎么操作的？还想实现分表与总表是一样的列宽，高度等格式一致，这个能实现吗？

驭今

哪位大神能教教我呀

驭今

3190496160 发表于 2021-6-2 20:50
你的小轿车，你不踩油门，不打火 ，它能跑吗？？？

请较一下怎么打火，怎么加油

驭今

还想了解怎么合并成一个表格，哪位大神知道，请指教一下，我比小白还小白，望详细讲解下操作步骤

3190496160

驭今 发表于 2021-6-3 18:01
请较一下怎么打火，怎么加油

在总表中画一个按钮，指定宏，点击按钮拆分，如果总表数据有更新，再次点击按钮拆分不就行了吗

zfq2021

试试看,这个工作簿.建议经常要用的话,网上有好多类似插件可以实现你的要求,比如"方方格子",可以免费试用一个月.

zfq2021

驭今 发表于 2021-6-3 18:03
还想了解怎么合并成一个表格，哪位大神知道，请指教一下，我比小白还小白，望详细讲解下操作步骤

这是个免费的插件,也有你想要的功能.
易用宝下载地址：
http://yyb.excelhome.net/download/