还是求助表格拆分

ykcbf1100

sunny_8848 发表于 2024-11-14 19:02
是我没说清楚，总表不保存就行了

加一句代码就行。

szqhb

ykcbf1100 发表于 2024-11-14 15:08
总表拆分

帮我看看注释对不对，麻烦对重点补充一下
Sub ykcbf()   '//2024.11.14
    Application.ScreenUpdating = False
    Application.DisplayAlerts = False
    Dim t: t = Timer
    Set sh = ThisWorkbook.Sheets("Sheet1")
    p = ThisWorkbook.Path & "\"
    arr = sh.UsedRange
    For i = 3 To UBound(arr) 'A，拆分取数的首行，与B同时修改
        If arr(i, 1) <> Empty Then
            sh.Copy
            Set wb = ActiveWorkbook
            With wb.Sheets(1)
                .AutoFilterMode = False
                .DrawingObjects.Delete
                .Rows("2:2").AutoFilter '要筛选的行？。要注意什么？
                .Cells(2, 2).AutoFilter Field:=1, Criteria1:="<>" & arr(i, 1) '按要求自动筛选？（1,1）里面的数字不改貌似没有影响。要注意什么？
                .Cells(3, 1).Resize(UBound(arr) - 1).EntireRow.Delete 'B，Cells(3, 1)，括号前的数字是拆分取数的起始行，与A同时修改。(arr) - 1)后面的1怎么理解
                .AutoFilterMode = False
            End With
            wb.SaveAs p & arr(i, 1) '给拆分的文件命名
            wb.Close '关闭
       rge" getSupertip="getSupertip" />
                </group>
                <group getVisible="get

sunny_8848

ykcbf1100 发表于 2024-11-15 08:34
加一句代码就行。

还是不行。您把背景颜色为绿色的单元格输入一个公式，等于第一行的数据试试

ykcbf1100

sunny_8848 发表于 2024-11-15 18:48
还是不行。您把背景颜色为绿色的单元格输入一个公式，等于第一行的数据试试

我上传的附件测试通过的。没有问题。
你用到别的地方，你要修改相应的参数。

sunny_8848

ykcbf1100 发表于 2024-11-15 19:25
我上传的附件测试通过的。没有问题。
你用到别的地方，你要修改相应的参数。

多谢您的帮忙。
将UsedRange.Offset(1).Value = UsedRange.Offset(1).Value改成下面的就行(加一个sh.)
sh.UsedRange.Offset(1).Value = sh.UsedRange.Offset(1).Value