[已解决]求助用VBA实现条件判断

明日之星

求助用VBA实现条件判断.rar (6.91 KB, 下载次数: 20)

2016-8-20 22:55 上传

点击文件名下载附件

最佳答案

月排行榜 / 总排行榜

望帝春心

2016-8-20 23:44

1. Sub test()
   
2. Dim arr, brr()
   
3. arr = Range(Cells(2, 2), Cells(2, 2).End(4))
   
4. ReDim brr(1 To UBound(arr))
   
5.     For i = 1 To UBound(arr)
   
6.         Select Case arr(i, 1)
   
7.             Case Is < 50
   
8.             brr(i) = "D"
   
9.             Case Is < 100
   
10.             brr(i) = "C"
    
11.             Case Is < 500
    
12.             brr(i) = "B"
    
13.             Case Is < 1000
    
14.             brr(i) = "H"
    
15.             Case Else
    
16.             brr(i) = "TH"
    
17.         End Select
    
18.     Next
    
19. [C2].Resize(UBound(arr), 1) = Application.Transpose(brr)
    
20. End Sub

复制代码

跳转到最佳答案楼层

望帝春心

1. Sub test()
   
2. Dim arr, brr()
   
3. arr = Range(Cells(2, 2), Cells(2, 2).End(4))
   
4. ReDim brr(1 To UBound(arr))
   
5.     For i = 1 To UBound(arr)
   
6.         Select Case arr(i, 1)
   
7.             Case Is < 50
   
8.             brr(i) = "D"
   
9.             Case Is < 100
   
10.             brr(i) = "C"
    
11.             Case Is < 500
    
12.             brr(i) = "B"
    
13.             Case Is < 1000
    
14.             brr(i) = "H"
    
15.             Case Else
    
16.             brr(i) = "TH"
    
17.         End Select
    
18.     Next
    
19. [C2].Resize(UBound(arr), 1) = Application.Transpose(brr)
    
20. End Sub

复制代码

su45

评个最佳哟！