如何将同时满足两个合并单元格条件对应的多行合并为一行？

cz_zzf

刚刚有E友说我对合并单元格不离不弃，我说为了项目的完美，不得不为之在各位大神的帮助下，等我完成了，就把所有用到的汇总出来，分享，以便共同研究学习！现不得不再来一个，请老师帮助~

cz_zzf

这个帖子没有人看，好奇怪~在线跪求老师帮助！

cz_zzf

cz_zzf 发表于 2019-10-2 20:19
这个帖子没有人看，好奇怪~在线跪求老师帮助！

各位大神老师，这个问题不会很难吧？好像没有回复~
虔诚的等待中...

cz_zzf

求各位大神、老师帮帮忙啊~

hcm19522

菜库!K3:K21 (輔助)=LOOKUP("嫻",B$3:B3)&LOOKUP("嫻",C$3:C3)


B2右拉 下拉 (B列是結果) {=IFERROR(IF(COLUMN(A1)=1,"","/")&INDEX(菜库!$F:$F,SMALL(IF(菜库!$K$3:$K$21=$A2&"单人份",ROW($3:$21)),COLUMN(A1)))&C2,"")

astupig

1. ''仅供参考.
   
2. Sub Test()
   
3.    
   
4.     Dim arr, i, m, t, res
   
5.     With Sheets("菜库")
   
6.         arr = .[a1].CurrentRegion
   
7.         For t = 2 To 3
   
8.             res = ""
   
9.             For i = 3 To UBound(arr)
   
10.                 If arr(i, 2) = Sheets("Sheet1").Range("A" & t) Then
    
11.                     For m = i To i + 100
    
12.                         If arr(m, 3) = "单人份" Or arr(m, 3) = "" Then
    
13.                             res = res & "|" & arr(m, 6)
    
14.                         Else
    
15.                             Exit For
    
16.                         End If
    
17.                         
    
18.                     Next m
    
19.                 End If
    
20.             Next i
    
21.             
    
22.             Sheets("Sheet1").Range("B" & t) = Right(res, Len(res) - 1)
    
23.             
    
24.         Next t
    
25.     End With
    
26. 
    
27. End Sub
    

复制代码

libo5563

pq 两个条件分组，然后筛选一下

cz_zzf

hcm19522 发表于 2019-10-3 14:59
菜库!K3:K21 (輔助)=LOOKUP("嫻",B$3:B3)&LOOKUP("嫻",C$3:C3)

"嫻"跟“座”是一样的意思吧？
另外，我可能表达有误差，表格里写的“结果样式”，对B列想要得到的结果说明，就是B列单元格内显示的是“结果样式：”后的内容，感觉这个方法应该是对的，还请老师再帮忙看看，不甚感激！

cz_zzf

libo5563 发表于 2019-10-3 16:06
pq 两个条件分组，然后筛选一下

老师，这个对我这个初学者，有点复杂，看不懂，还要继续学习！

cz_zzf

astupig 发表于 2019-10-3 15:00

谢谢老师，可惜VBA我更加没有基础和经验了，最好还是公式搞定，加辅助列倒也没关系，还是感激你！