[已解决]数据填符号？

afad12

根据E列包含的数据对应的位置填上符号，附件有效果？
附件： 附件.rar (2.82 KB, 下载次数: 11)

2015-1-22 21:36 上传

点击文件名下载附件

最佳答案

月排行榜 / 总排行榜

grf1973

2015-1-23 10:33

请看附件。

跳转到最佳答案楼层

grf1973

1. Sub tt()
   
2.     [c3:m15].Clear
   
3.     [d20:h29].Copy [d3]
   
4.     arr = [c3:m12]
   
5.     For i = 1 To 10
   
6.         arr(i, 1) = i
   
7.         arr(i, 7) = "-": arr(i, 8) = "-"
   
8.         x = arr(i, 3)
   
9.         If InStr(x, "3F") Or InStr(x, "4F") Or InStr(x, "5F") Then arr(i, 9) = "-": arr(i, 10) = "-"
   
10.         If InStr(x, "7G") Or InStr(x, "8G") Then arr(i, 11) = "-": [K15] = "E"
    
11.         If InStr(x, "1X") Then [C15] = "A"
    
12.         If InStr(x, "2X") Then [E15] = "B"
    
13.         If InStr(x, "3X") Then [G15] = "C"
    
14.         If InStr(x, "4X") Then [I15] = "D"
    
15.     Next
    
16.     [c3:m12] = arr
    
17. End Sub
    

复制代码

grf1973

请看附件。

afad12

grf1973 发表于 2015-1-23 10:33
请看附件。

谢谢！！