如何设计个函数,将D5:I5等于0的所对应D4:I4的数据合并到D10

xptool

如何设计个函数,将D5:I5等于0的所对应D4:I4的数据合并到D10

合并.zip (6.73 KB, 下载次数: 9)

2024-4-16 14:37 上传

点击文件名下载附件

swl4561255

1. Sub test()
   
2. arr = Range("D4:I5")
   
3. Set d = CreateObject("Scripting.Dictionary")
   
4. For i = 1 To UBound(arr, 2)
   
5.     If Not d.exists(arr(2, i)) Then
   
6.         d(arr(2, i)) = arr(1, i)
   
7.     Else
   
8.         d(arr(2, i)) = d(arr(2, i)) & " " & arr(1, i)
   
9.     End If
   
10. Next
    
11. k = d.keys
    
12. t = d.items
    
13. [D9].Resize(1, d.Count) = k
    
14. [D10].Resize(1, d.Count) = t
    
15. Set d = Nothing
    
16. End Sub

复制代码

cidanji

1. Function hebing(x, ra As Range, rb As Range)
   
2. Dim s$, i&, a, b
   
3. a = ra.Columns.Count
   
4. b = rb.Columns.Count
   
5. i = 1
   
6. While i <= a And i <= b
   
7.     If ra(i) = x Then s = s & " " & rb(i)
   
8.     i = i + 1
   
9. Wend
   
10. hebing = Mid(s, 2)
    
11. End Function

复制代码

xptool

  谢谢老师  能不能用自定义函数表示

yynrzwh

合并.zip (15.26 KB, 下载次数: 2)

2024-4-16 15:53 上传

点击文件名下载附件

huanghai22

不就是TEXTJOIN函数的事吗