VBA求助

ap100

附件中数据表格是从网页中导出的，AT列的字母代表不同的颜色B表示黑、 C表示蓝、 G表示绿、 R表示红、 Y表示黄，每次导出的数据都不同（意思是这次导出的AT2单元格也许是R，下次导出时也许就是Y了），并且条数也不同（有时几百条有时一两千条），每次要逐个把字母改成对应的颜色文字，求助大师写个VBA，将字母改成对应的颜色文字

servern123

标题没有把问题大概描述清楚的问题希望版主直接删除

╭幸福的べ猪╯

不一定要VBA啊，弄个对照表，然后用Vlookup就行了

ap100

╭幸福的べ猪╯ 发表于 2018-8-31 21:51
不一定要VBA啊，弄个对照表，然后用Vlookup就行了

用VBA快捷滴吧

lsc900707

1. Sub gj23w98()
   
2.     r = Cells(Rows.Count, 46).End(3).Row
   
3.     arr = Range("at2:at" & r)
   
4.     For i = 1 To UBound(arr)
   
5.         Select Case arr(i, 1)
   
6.             Case "B"
   
7.                 arr(i, 1) = "黑色"
   
8.             Case "C"
   
9.                 arr(i, 1) = "蓝色"
   
10.             Case "G"
    
11.                 arr(i, 1) = "绿色"
    
12.             Case "R"
    
13.                 arr(i, 1) = "红色"
    
14.             Case "Y"
    
15.                 arr(i, 1) = "黄色"
    
16.             Case Else
    
17.                 arr(i, 1) = ""
    
18.         End Select
    
19.     Next
    
20.     Range("at2:at" & r) = arr
    
21. End Sub
    

复制代码

lsc900707

请测试附件：

ap100

lsc900707 发表于 2018-8-31 22:55
请测试附件：

非常非常非常感谢！