数组太多导致卡顿严重，希望VBA能解决

wofala00766

当前文件描述：

1、“总表”列出了所有设备，其他SHEET使用数组公式根据“总表”的I列（也就是“分类”列）进行分类，将对应设备在B~J列（除分类列（I列）外，除不除都行）的内容归类到其他“分类表”中
2、分类表里因为是数组，为避免公式太多，所以就每次都多处一行空行，避免漏掉设备。

求助目标：
1、希望可以有VBA的方法能解决如上问题
2、将来总表可能随时更新，分类表的对应内容需要随时更新，或者操作计算更新也可
3、将来要在分类表中填入厂家价格，并且可能需要随时更新（不用考虑价格与设备的对应问题，更新设备后可以手动操作，或者我用VLOOKUP链接到厂家发来的文件上）

4、在更新总表和分类表时，不能影响已经填入的厂家价格内容
5、分类表会根据设备特性继续细分，比如增加分类表，删除分类表等操作
6、分类表的名称一定会在“总表”里的I列（也就是“分类”列）上体现


补充内容 (2023-5-28 10:57):
问题已解决，感谢

鄂龙蒙

楼主是不是想以《总表》拆分成分类表？

鄂龙蒙

以《总表》为依据，动态拆分成分类表可否？

3190496160

Sub 拆分()
Application.ScreenUpdating = False
Dim ar As Variant
Dim i As Long, r As Long, rs As Long
Dim br()
Dim d As Object
Set d = CreateObject("scripting.dictionary")
Set dc = CreateObject("scripting.dictionary")
With Sheets("总表")
    r = .Cells(Rows.Count, 9).End(xlUp).Row
    ar = .Range("a1:j" & r)
End With
For Each sh In Sheets
    dc(sh.Name) = ""
Next sh
For i = 3 To UBound(ar)
    If Trim(ar(i, 9)) <> "" Then
        If Trim(ar(i, 9)) <> "小计" Then
            d(Trim(ar(i, 9))) = ""
        End If
    End If
Next i
For Each k In d.keys
    n = 0
    ReDim br(1 To UBound(ar), 1 To UBound(ar, 2))
    For i = 3 To UBound(ar)
        If Trim(ar(i, 9)) = k Then
            n = n + 1
            For j = 1 To UBound(ar, 2)
                br(n, j) = ar(i, j)
            Next j
        End If
    Next i
    If dc.exists(k) Then
        With Sheets(k)
            rs = .Cells(Rows.Count, 9).End(xlUp).Row
            If rs >= 3 Then .Range("a3:p" & rs) = Empty
            .[a3].Resize(n, UBound(br, 2)) = br
        End With
    Else
        Sheets("非标设备").Copy after:=Sheets(Sheets.Count)
        With ActiveSheet
            .Name = k
            rs = .Cells(Rows.Count, 9).End(xlUp).Row
            If rs >= 3 Then .Range("a3:p" & rs) = Empty
            .[a2] = "1)"
            .[c2] = k
            .[a3].Resize(n, UBound(br, 2)) = br
        End With
    End If
Next k
Application.ScreenUpdating = True
MsgBox "ok!"
End Sub

3190496160

分类表.rar (53.96 KB, 下载次数: 11)

2023-5-25 08:44 上传

点击文件名下载附件

wofala00766

3190496160 发表于 2023-5-25 08:44

首先感谢，目标的1、2、3、5、6可以实现了，而且一点都不卡顿，但目标4未实现，填写的厂家价格，在更新分类表时会全部清零，无法实时修改清单，好像是各个分类表的前两行没变，下面全变。有其他方法可以实现这个目标么，能不能只影响B~J列？

wofala00766

鄂龙蒙 发表于 2023-5-25 08:23
以《总表》为依据，动态拆分成分类表可否？

可以达到目标就好哦，可以试一下看看吗

3190496160