求助，着急

彬彬312 · 发表于 2024-10-30 15:16

如何把B列同一个人在对应Al列在信息汇总在一起！

cnmlgb9998 · 发表于 2024-10-30 15:31

这样？？？？？？？？？？？？？？？？？？？？

Qs18 · 发表于 2024-10-30 15:41

Sub qs()
Dim arr, i, dic
Set dic = CreateObject("scripting.dictionary")
arr = Sheet1.[a1].CurrentRegion.Value
For i = 2 To UBound(arr)
s = arr(i, 2)
a = Split(arr(i, 1), "楼")
s2 = a(0) & "楼"
If Not dic.exists(s) Then
dic(s) = s2
Else
b = Split(dic(s), "/")
m = 0
For Each b2 In b
If b2 = s2 Then m = m + 1
Next
If m = 0 Then
dic(s) = dic(s) & "/" & s2
End If
End If
Next
k = dic.keys
ii = dic.items
[d3].Resize(dic.Count, 2) = Application.WorksheetFunction.Transpose(Array(dic.keys, dic.items))
Set dic = Nothing
End Sub

复制代码

Qs18 · 发表于 2024-10-30 15:42

试试..........

小凡、、、 · 发表于 2024-10-30 15:43

Qs18 · 发表于 2024-10-30 15:43

试试.........

清风竹- · 发表于 2024-10-30 15:46

请测试。。

kyxfyzg · 发表于 2024-10-30 16:14

参与一下。。。。。

wanghui834 · 发表于 2024-10-30 16:54

直接用表格函数可以完成，没必要用vba

wanghui834 · 发表于 2024-10-30 17:04

直接利用表格公式做的，请楼主查收

		自动登录	找回密码
密码			免费注册

[求助] 求助，着急