需帮助，做个宏工具

18632123158

子网	网元	enb
3	70353	70353	对应184行数据	生成脚本
4	70354	70354	对应184行数据		我想做成只需要提供这三列数据，就可以把每个站点对应的映射表生成，每个站点都对应184行数据
5	70355	70355	对应184行数据
6	70356	70356	对应184行数据
7	70357	70357	对应184行数据
8	70358	70358	对应184行数据
9	70359	70359	对应184行数据
10	70360	70360	对应184行数据
11	70361	70361	对应184行数据
12	70362	70362	对应184行数据

  

gdfcx

1. Sub macro()
   
2.     Dim arr, brr(), i%, k%, j%
   
3.     arr = Sheet1.[a1].CurrentRegion
   
4.     ReDim brr(1 To UBound(arr) * 184, 1 To 21)
   
5.     For i = 2 To UBound(arr)
   
6.         For j = 0 To 183
   
7.             k = k + 1
   
8.             brr(k, 1) = "A"
   
9.             brr(k, 2) = "SubNetwork=" & arr(i, 1) & ",MEID=" & arr(i, 2) & ",ENBFunctionTDD=" & arr(i, 3) & ",SratgMapiIMEISVTDD=" & j
   
10.             brr(k, 3) = arr(i, 1)
    
11.             brr(k, 4) = arr(i, 2)
    
12.             brr(k, 5) = arr(i, 3)
    
13.             brr(k, 6) = j
    
14.             brr(k, 7) = "SratgMapiIMEISVTDD=" & j
    
15.             brr(k, 8) = "35714304"
    
16.             brr(k, 9) = 460
    
17.             brr(k, 10) = "00"
    
18.             brr(k, 11) = 0
    
19.             brr(k, 12) = 99
    
20.             brr(k, 13) = 0
    
21.             brr(k, 14) = 99
    
22.             brr(k, 15) = "SubNetwork=" & arr(i, 1) & ",MEID=" & arr(i, 2) & ",ENBFunctionTDD=" & arr(i, 3) & ",HoProfIMEISVTDD=0"
    
23.             brr(k, 16) = ""
    
24.             brr(k, 17) = ""
    
25.             brr(k, 18) = 0
    
26.             brr(k, 19) = 1
    
27.             brr(k, 20) = 0
    
28.             brr(k, 21) = 1
    
29.         Next j
    
30.     Next i
    
31.     Sheet2.Select
    
32.     Sheet2.UsedRange.Offset(2).ClearContents
    
33.     Sheet2.[a3].Resize(k, 21) = brr
    
34. End Sub
    

复制代码

gdfcx

存在两个问题：
1、类型分配码是个临时的，不知从哪里得到的；
2、IMEISV切换策略配置索引，引用的哪一列数据？