后裔统计问题分享与解答（递归函数），大家有更好的办法吗？

cnmlgb9998

今铭昔 发表于 2024-7-18 20:10

这不是我的代码。谢谢！

ynzsvt

cnmlgb9998 发表于 2024-7-18 20:53
我这代码里，哪有递归？？？？ 你指出来，OK？？？？？？

用字典的没有递归，有递归的是1楼下载的文件里的代码。

简小白

cnmlgb9998 发表于 2024-7-18 19:06
不过，四年没碰VBA 了，基本语句，我都忘光了。

贴上我的原生代码。残念。。。。。。

大佬，赞一个

ynzsvt

递归是个好办法

chxw68

练练递归，感觉不是太精炼。

micch

1. Sub Main()
   
2.     ar = Sheet1.Range("A1:c73").Value
   
3.     Dim d As New Dictionary
   
4.     For i = 2 To UBound(ar)      
   
5.         If Not d.Exists(ar(i, 1)) Then _
   
6.         Set d(ar(i, 1)) = New Dictionary
   
7.         d(ar(i, 1)).Add ar(i, 2) & "" & ar(i, 3), 0
   
8.     Next
   
9.     Sheet1.Range("f2:g11").Value = 0
   
10.     br = Sheet1.Range("E2:g11").Value
    
11.     For i = 1 To UBound(br)
    
12.         DFS d, br(i, 1), br(i, 2), "儿子"
    
13.         DFS d, br(i, 1), br(i, 3), "女儿"
    
14.     Next
    
15.     Sheet1.Range("E2:g11").Value = br
    
16. End Sub
    
17. Function DFS(d0, x0, n0, s0)
    
18.     If d0.Exists(x0) Then
    
19.     For Each x In d0(x0).Keys
    
20.         If InStr(x, s0) Then n0 = n0 + 1
    
21.         DFS d0, Mid(x, 3), n0, s0
    
22.     Next
    
23.     End If
    
24. End Function

复制代码

micch

简小白

micch 发表于 2024-7-19 12:09

太牛了居然可以借助函数来解决

micch

新函数很强大，新函数也能递归，不过我对递归不熟悉，所以不知道递归怎么写，只能直接枚举强算

简小白

micch 发表于 2024-7-19 12:09

借助AI解释一下函数