新手求助，如何根据数据级位算出走行距离的间隔

xihu123

新手求助
1。怎么能够方便的将牵引制动级位转换为0=0 1-50=50  51-75=75 76-100=100
2.如何根据级位的间隔算出每一段级位的走行距离



谢谢各位大佬帮我，非常感谢

chxw68

1. Sub test()
   
2.   Dim r%, i%
   
3.   Dim arr, brr
   
4.   With Worksheets("sheet1")
   
5.     r = .Cells(.Rows.Count, 1).End(xlUp).Row
   
6.     arr = .Range("a2:c" & r)
   
7.     For i = 1 To UBound(arr)
   
8.       Select Case arr(i, 2)
   
9.         Case Is = 0
   
10.           arr(i, 3) = 0
    
11.         Case Is <= 50
    
12.           arr(i, 3) = 50
    
13.         Case Is <= 75
    
14.           arr(i, 3) = 75
    
15.         Case Is <= 100
    
16.           arr(i, 3) = 100
    
17.       End Select
    
18.     Next
    
19.     .Range("a2:c" & r) = arr
    
20.   End With
    
21. End Sub
    

复制代码

chxw68

详见附件。

xihu123

chxw68 发表于 2021-8-28 20:36
详见附件。

大佬，第二问可以帮我看看吗

chxw68

xihu123 发表于 2021-8-28 20:44
大佬，第二问可以帮我看看吗

没看明白。

xihu123

chxw68 发表于 2021-8-28 20:51
没看明白。

好嘞，非常谢谢大佬的解答

chxw68

修改好了。

xihu123

chxw68 发表于 2021-8-28 21:12
修改好了。

感谢大佬的解答