折算分比如卷面分96到100，折算成20；卷面分91到95，折算成19，以此类推！谢谢！

希望123456

折算分代码如何写？比如卷面分96到100，折算成20；卷面分91到95，折算成19，以此类推！谢谢！

卷面分	折算分
96-100	20
91-95	19
86-90	18
81-85	17
76-80	16
71-75	15
66-70	14
61-65	13
56-60	12
51-55	11
46-50	10
41-45	9
36-40	8
31-35	7
26-30	6
21-25	5
16-20	4
11-15	3
6-10	2

z865593849

usedrange

。。。。。。。。。。。。。。。。

chxw68

1. Sub test()
   
2.     Dim r%, i%
   
3.     Dim arr, brr
   
4.     With Worksheets("初中二年级地理成绩单")
   
5.         r = .Cells(.Rows.Count, 1).End(xlUp).Row
   
6.         arr = .Range("a2:b" & r)
   
7.         For i = 1 To UBound(arr)
   
8.             arr(i, 2) = Int((arr(i, 1) - 1) / 5) + 1
   
9.         Next
   
10.         .Range("a2:b" & r) = arr
    
11.     End With
    
12. End Sub
    

复制代码

chxw68

这数据转换太有规律了，取个巧。

ykcbf1100

参与一下。。。

ykcbf1100

参与一下。。。

1. Sub ykcbf()   '//2024.12.18
   
2.     Application.ScreenUpdating = False
   
3.     With ActiveSheet
   
4.         r = .Cells(Rows.Count, 1).End(3).Row
   
5.         arr = .[a1].Resize(r, 2)
   
6.         For i = 2 To UBound(arr)
   
7.             m = arr(i, 1) \ 5
   
8.             arr(i, 2) = IIf(m = 0, 0, m + 1)
   
9.         Next
   
10.         .[a1].Resize(r, 2) = arr
    
11.     End With
    
12.     Application.ScreenUpdating = True
    
13.     MsgBox "OK！"
    
14. End Sub
    
15. 
    

复制代码

一招秒杀

z865593849 发表于 2024-12-18 14:31

人家这孩子1个多么简单的函数就解决了，你们咋都不看呢，非要写那么多VBA代码，感觉没有这孩子聪明。