请求大师们写代码

小星光

请求大师们写接龙汇总表代码

布加甜

借个楼层,求大师帮忙写下代码,谢谢

liulang0808

可以使用字典+for循环来匹配，不过楼主表格内数据区域的规范性建议处理下，便于处理

3190496160

布加甜 发表于 2023-3-28 07:54
借个楼层,求大师帮忙写下代码,谢谢

我记得在前贴中就跟你说过，玩代码的不懂公式，玩公式的不懂代码，意思就是让你解释一下公式的意思，或者说，具体说明求和的条件，特别是哪个自定义行数的意思

3190496160

ub 汇总()
Application.ScreenUpdating = False
Dim ar As Variant, br As Variant
Dim i As Long, r As Long, rs As Long
Dim d As Object
Set d = CreateObject("scripting.dictionary")
With Sheets("合计")
    r = .Cells(Rows.Count, 1).End(xlUp).Row
    If r > 2 Then .Range("a3:aa" & r) = Empty: .Range("a3:aa" & r).Borders.LineStyle = 0
    ar = .Range("a1:aa10000")
    For j = 2 To UBound(ar, 2) Step 2
        If Trim(ar(1, j)) <> "" Then
            d(Trim(ar(1, j))) = j
        End If
    Next j
    k = 2
    For Each sh In Sheets
        If sh.Name <> "合计" Then
            rs = sh.Cells(Rows.Count, 8).End(xlUp).Row
            br = sh.Range("a3:h" & rs)
            lh = d(Trim(sh.Name))
            For i = 2 To UBound(br)
                If Trim(br(i, 8)) <> "" Then
                    t = d(Trim(br(i, 8)))
                    If t = "" Then
                        k = k + 1
                        d(Trim(br(i, 8))) = k
                        t = k
                        ar(k, 1) = br(i, 8)
                    End If
                    If lh <> "" Then
                        ar(t, lh) = ar(t, lh) + br(i, 2)
                        ar(t, lh + 1) = ar(t, lh + 1) + br(i, 3)
                        ar(t, 26) = ar(t, 26) + ar(t, lh)
                        ar(t, 27) = ar(t, 27) + ar(t, lh + 1)
                    End If
                End If
            Next i
        End If
    Next sh
    .[a1].Resize(k, UBound(ar, 2)) = ar
    .[a1].Resize(k, UBound(ar, 2)).Borders.LineStyle = 1
End With
Application.ScreenUpdating = True
MsgBox "ok!"
End Sub

3190496160

3190496160

接龙汇总表.rar (15.65 KB, 下载次数: 8)

2023-3-28 09:06 上传

点击文件名下载附件

布加甜

3190496160 发表于 2023-3-28 08:50
我记得在前贴中就跟你说过，玩代码的不懂公式，玩公式的不懂代码，意思就是让你解释一下公式的意思，或者 ...

不好意思,老师,现在已加说明了,能帮下忙吗

小星光

3190496160 发表于 2023-3-28 09:07

3190496160大师你好：你实在高手！

小星光

小星光 发表于 2023-3-28 09:13
3190496160大师你好：你实在高手！

3190496160大师你好：我刚发现合计数不对。