求助，输出一行不同单元格的数量和内容

paysjksf

求助，输出一行不同单元格的数量和内容

如下所示

paysjksf

求助帅哥美女

nqwl

nqwl

=TEXTJOIN("、",TRUE,IF(C6:N6<>B6:M6,C6:N6&COUNTIF(C6:$N$6,C6)&"次",""))
三键结束

swl4561255

1. Sub test()
   
2. arr = Range("C5").CurrentRegion
   
3. Dim brr()
   
4. For i = 2 To 3
   
5. Set d = CreateObject("Scripting.Dictionary")
   
6.   For j = 1 To Range("C5").CurrentRegion.Columns.Count
   
7.      d(arr(i, j)) = d(arr(i, j)) + 1
   
8.   Next
   
9.   k = d.keys
   
10.   t = d.items
    
11.   m = d.Count - 1
    
12.   ReDim brr(0 To m)
    
13.   For n = 0 To m
    
14.     brr(n) = k(n) & t(n) & "次"
    
15.   Next
    
16.   Cells(4 + i, "Q") = Join(brr, "，")
    
17. Set d = Nothing
    
18. Next
    
19. End Sub

复制代码

paysjksf

swl4561255 发表于 2024-3-21 06:47

完美  感谢

paysjksf

nqwl 发表于 2024-3-21 00:10
=TEXTJOIN("、",TRUE,IF(C6:N6B6:M6,C6:N6&COUNTIF(C6:$N$6,C6)&"次",""))
三键结束

完美  感谢

boyuanoffice

1. =LET(x,UNIQUE(TOCOL(C6:N6)),TEXTJOIN("、",,x&COUNTIF(C6:N6,x)&"次"))

复制代码