[已解决]菜鸟求助-如何把符合条件的所有单元格内容填入到指定单元格

luluzr

问题描述：
希望把符合F列等于N列单元格的条件的G列填入到O列，例如2015年12月21日参与值班的人员有三人，希望把这三人“张三、李四、王五”，填入到O5单元格

最佳答案

月排行榜 / 总排行榜

gufengaoyue

2015-7-23 16:59

供参考
12345.rar (16.07 KB, 下载次数: 23)

2015-7-23 16:58 上传

点击文件名下载附件

跳转到最佳答案楼层

gufengaoyue

供参考
12345.rar (16.07 KB, 下载次数: 23)

2015-7-23 16:58 上传

点击文件名下载附件

gufengaoyue

用字典也行。 12345.rar (16.32 KB, 下载次数: 0)

2015-7-23 18:21 上传

点击文件名下载附件

1. Sub 合并2()
   
2. Dim arr, brr, Dic
   
3. Set Dic = CreateObject("scripting.dictionary")
   
4. arr = Range([o5], Cells(Rows.Count, "n").End(3))
   
5. brr = Range([f5], Cells(Rows.Count, "g").End(3))
   
6. For b = 1 To UBound(brr)
   
7.     Dic(brr(b, 1)) = Dic(brr(b, 1)) & brr(b, 2) & "、"
   
8. Next
   
9. For a = 1 To UBound(arr)
   
10.     arr(a, 2) = Dic(arr(a, 1))
    
11.     If arr(a, 2) <> "" Then arr(a, 2) = Left(arr(a, 2), Len(arr(a, 2)) - 1)
    
12. Next
    
13. Range([o5], Cells(Rows.Count, "n").End(3)) = arr
    
14. MsgBox "做完收工!", vbInformation
    
15. End Sub

复制代码