<请教高手！>将同时包含两个制定单元格字符的单元格分配到新的单元格

cuiyuanyuan1314

A列单元格由多个用分号分隔的字符串组成。
以第二行数据为例，如果A列中的单元格同时含有B2、C2单元格的字符，就将该单元格分配到I列同行单元格，并将多个分配结果用“/”分隔。

cuiyuanyuan1314

自己顶一下~~不要沉啊！

hopeson2010

1. Sub ek_sky()
   
2.    Dim arr As Variant
   
3.    Dim i As Integer, j As Integer
   
4.       arr = Range("A2:d" & Cells(Rows.Count, 2).End(xlUp).Row)
   
5.          For i = 1 To UBound(arr)
   
6.              For j = 1 To UBound(arr)
   
7.                 If ";" & arr(j, 1) & ";" Like "*;" & arr(i, 2) & ";*" And ";" & arr(j, 1) & ";" Like "*;" & arr(i, 3) & ";*" Then
   
8.                   arr(i, 4) = arr(i, 4) & "/" & arr(j, 1)
   
9.                 End If
   
10.             Next j
    
11.             arr(i, 4) = Mid(arr(i, 4), 2)
    
12.          Next i
    
13. Range("A2").Resize(UBound(arr), 4) = arr
    
14. End Sub
    

复制代码

cuiyuanyuan1314

hopeson2010 发表于 2018-6-8 20:26

非常感谢！~~O(∩_∩)O