这数据能搞VBA代码吗？或有其他方法吗

alxlow

图片的红框是已知数据，蓝框是需要补的数据。需要A列相同地址的为基础，将B列的号码转移到E列的相同地址第一行，并在D列计数出多少个房号（房号就是已点火数），然后在F列计算出未点火数量。

数据有1万多个，部分地址没有房号的不需要统计





附件Excel文件有原始数据，和需要达到的数据示范


求大神支招，感谢万分


补充内容 (2024-2-1 16:35):
数据有变化重新补上，，麻烦大神帮忙一下，在10楼

补充内容 (2024-2-1 16:51):
我已用2楼的方法和数据透视整理了新的数据表。

请问大神，有什么方法可以将表1和表2合并，以地址值匹配合并，匹配的地址数据整合在一行，也要显示不能匹配的数据。
楼栋户数是4793，已点火数是13957
附件在14楼

补充内容 (2024-2-1 17:01):
更正一下，楼栋户数是18061

jiayiqiang

VBA我学艺不精啊，觉得可能会卡死，用公式试试看，已点火户数房间号：=TEXTJOIN(",",TRUE,IF(($B$2:$B$12139<>"")*($A$2:$A$12139=A2),$B$2:$B$12139,""))

alxlow

jiayiqiang 发表于 2024-1-26 16:58
VBA我学艺不精啊，觉得可能会卡死，用公式试试看，已点火户数房间号：=TEXTJOIN(",",TRUE,IF(($B$2:$B$1213 ...

VBA，我问gpt多次，都不行，后面还卡死，觉得应该是术语问得不够好。

demonimissyou

看了你的数据，你的数据都不是规范数据，vba也只能处理规范数据

alxlow

jiayiqiang 发表于 2024-1-26 16:58
VBA我学艺不精啊，觉得可能会卡死，用公式试试看，已点火户数房间号：=TEXTJOIN(",",TRUE,IF(($B$2:$B$1213 ...

你可以的啊，感谢！   出来的数据再透视就行了

shiruiqiang

shiruiqiang

====练手，好评送花====

ykcbf1100

参与一下。。。

1. Sub ykcbf()   '//2024.1.26
   
2.     Dim arr, brr, d
   
3.     Set d = CreateObject("Scripting.Dictionary")
   
4.     r = Me.Cells(Rows.Count, 1).End(3).Row
   
5.     arr = Me.Range("a1:g" & r)
   
6.     For i = 2 To UBound(arr)
   
7.         s = arr(i, 1)
   
8.         If arr(i, 2) <> Empty Then
   
9.             If Not d.exists(s) Then
   
10.                 d(s) = Array(1, arr(i, 2))
    
11.             Else
    
12.                 t = d(s)
    
13.                 t(0) = t(0) + 1
    
14.                 t(1) = t(1) & "," & arr(i, 2)
    
15.                 d(s) = t
    
16.             End If
    
17.         End If
    
18.     Next
    
19.     Me.[d2:f10000] = ""
    
20.     For i = 2 To UBound(arr)
    
21.         s = arr(i, 1)
    
22.         If d.exists(s) Then
    
23.             If Val(arr(i, 3)) Then
    
24.                 arr(i, 4) = d(s)(0)
    
25.                 arr(i, 5) = d(s)(1)
    
26.                 arr(i, 6) = Val(arr(i, 3)) - arr(i, 4)
    
27.             Else
    
28.                 arr(i, 4) = ""
    
29.                 arr(i, 5) = ""
    
30.                 arr(i, 6) = ""
    
31.             End If
    
32.         End If
    
33.     Next
    
34.     Me.Range("a1:g" & r) = arr
    
35.     Set d = Nothing
    
36.     MsgBox "OK！"
    
37. End Sub
    

复制代码

ykcbf1100

附件供参考。。。

alxlow

数据有变，麻烦大神再帮忙一下   @ykcbf1100    @shiruiqiang
表一和表二，匹配地址合并数据，算出已点火数，房间号就是已点火数。如表三的示例