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

AVEL

1. Sub k()
   
2.     Dim arr As Variant
   
3.     Dim i As Integer, k As Integer
   
4.     Dim jg(1 To 10000, 1 To 8)
   
5.     Dim d As Object
   
6.     Set d = CreateObject("scripting.dictionary")
   
7.     arr = Sheet2.[a1].CurrentRegion.Value
   
8.     For i = 2 To UBound(arr)
   
9.         If Not d.exists(arr(i, 1)) Then
   
10.             k = k + 1
    
11.             d(arr(i, 1)) = k
    
12.             jg(k, 2) = arr(i, 3)
    
13.             jg(k, 3) = arr(i, 1)
    
14.             jg(k, 4) = arr(i, 2)
    
15.             jg(k, 7) = jg(k, 4)
    
16.             jg(k, 5) = 0
    
17.         End If
    
18.     Next
    
19.     arr = Sheet4.[a1].CurrentRegion.Value
    
20.     For i = 2 To UBound(arr)
    
21.         If d.exists(arr(i, 2)) Then
    
22.             k = d(arr(i, 2))
    
23.             jg(k, 1) = arr(i, 1)
    
24.             jg(k, 5) = jg(k, 5) + 1
    
25.             jg(k, 6) = jg(k, 6) & arr(i, 3) & ","
    
26.             jg(k, 7) = jg(k, 4) - jg(k, 5)
    
27.         End If
    
28.     Next
    
29.     [a1].CurrentRegion.Offset(1).ClearContents
    
30.     [a2].Resize(k, 8).Value = jg
    
31. End Sub
    

复制代码

AVEL

新整理求助数据表.rar (266.84 KB, 下载次数: 7)

2024-2-1 16:01 上传

点击文件名下载附件

alxlow

AVEL 发表于 2024-2-1 16:01

数据不对呢，楼栋户数是18061，已点火数是13957

alxlow

我已用2楼的方法和数据透视整理了新的数据表。

请问大神，有什么方法可以将表1和表2合并，以地址值匹配合并，匹配的地址数据整合在一行，也要显示不能匹配的数据。

楼栋户数是18061，已点火数是13957

shiruiqiang

双字典解决一下

shiruiqiang

shiruiqiang

看到后面要求不一样了

alxlow

shiruiqiang 发表于 2024-2-1 17:52
看到后面要求不一样了

十分感谢！

我也尝试问了GPT写VBA代码，差楼栋户。可能还要反向问一下。

请问大神是怎么弄呢

AVEL

新整理求助数据表.rar (291.19 KB, 下载次数: 4)

2024-2-2 15:33 上传

点击文件名下载附件

yynrzwh

两表按地址合并所有数据.rar (122.34 KB, 下载次数: 2)

2024-2-2 17:16 上传

点击文件名下载附件