新人请教，通过表头文本，寻找单元格内容

sccxfy

询问大神，每行数据最多有第一到第五（B-F） 五种辅助核算（1-5个都可能）。
这五种核算一共有H1-R1 这么11个分项
如何把B-F的数据 分配到H-R里面

sccxfy

第一至第五号辅助核算的顺序不固定，可能第一列 是 ABCDE
第二列就变成 DEAGH
第三列就是 GHCEG
我能用一个笨方法
=IF(COUNTIF(B2:F2,"*客商辅助*"),"有","")
但是不知道如何取数据源的值 ，只会判断有没有

鄂龙蒙

1. Sub 执行程序()
   
2.     Dim d, ar, i, j, x, k
   
3.     Set d = CreateObject("Scripting.Dictionary")
   
4.     [H2:R10000] = Empty
   
5.     ar = Sheet2.UsedRange
   
6.     For j = 8 To 17
   
7.         d(ar(1, j)) = ""
   
8.     Next
   
9.     k = d.keys
   
10.     For i = 2 To UBound(ar)
    
11.         For j = 2 To 6
    
12.             For x = 0 To d.Count - 1
    
13.                 If InStr(ar(i, j), k(x)) Then Cells(i, x + 8) = Split(ar(i, j), "：")(1)
    
14.             Next
    
15.         Next
    
16.     Next
    
17.    Set d = Nothing
    
18. End Sub

复制代码