大神求指教！怎样把B列相同值对应的A列值合并到C列，如下

HGY121

libo5563

偷懒不写公式行吗？  如果非要将数据放在一个单元格了，就搜一下，power query 分组 合并

moonlit123

11.rar (122.41 KB, 下载次数: 28)

2019-10-22 14:25 上传

点击文件名下载附件

...直接用vba搞了。

HGY121

libo5563 发表于 2019-10-22 14:00
偷懒不写公式行吗？  如果非要将数据放在一个单元格了，就搜一下，power query 分组 合并

是要放在一行里面，不是数据透视。。。

HGY121

moonlit123 发表于 2019-10-22 14:26
...直接用vba搞了。

怎么弄的，请教一下

moonlit123

HGY121 发表于 2019-10-22 14:50
怎么弄的，请教一下

vba
你可以alt +F11 打开vba调试窗口看代码。

varytina

感觉我这个也不是很符合要求呀
用Power Query

hcm19522

圈選全部-->游標放公式上-->CTRL+ENTER

tiamozy125

你这都完成了啊，公式填完就OK了

WatchChen

moonlit123 发表于 2019-10-22 15:10
vba
你可以alt +F11 打开vba调试窗口看代码。

下面可以用IIF简化一下去除“/”

基于你的算法自己用正序写了一个

1. Option Explicit
   
2. Sub 按钮1_Click()
   
3. Dim i%, j%, n%, x%, c%, arr()
   
4. Application.ScreenUpdating = False
   
5. With Sheet1
   
6.     j = .[a65536].End(xlUp).Row: x = 1 ': n = 1
   
7.     Range("C2:C" & j).ClearContents
   
8.     arr = .Range("A1").CurrentRegion
   
9.     For i = 2 To UBound(arr)
   
10.         'If arr(i, 2) = arr(i + 1, 2) Then
    
11.             'n = n + 1
    
12.         'Else
    
13.             'c = i - n + 1
    
14.             'For x = (i - n + 1) To i
    
15.               'arr(c, 3) = IIf(arr(c, 3) <> "", arr(c, 3) & "／" & arr(x, 1), arr(x, 1))
    
16.             'Next: n = 1
    
17.         'End If
    
18. 
    
19.             If arr(i, 2) <> arr(i - 1, 2) Then
    
20.               For n = x To i - 1
    
21.                 arr(x, 3) = IIf(arr(x, 3) <> "", arr(x, 3) & "／" & arr(n, 1), arr(n, 1))
    
22.               Next: x = i
    
23.             End If
    
24.         Next
    
25.         Range("C2:C" & [a65536].End(xlUp).Row).Value = Application.Index(arr, , 3)
    
26.     End With
    
27. Application.ScreenUpdating = True
    
28. End Sub

复制代码