查找第一和最后非空单元格并求值

zhusong1998

求助：
从对应的区域里，查找第一个和最后一个非空单元格，根据这一单元格求出对应的最大值和最小值。
求助.rar (89.72 KB, 下载次数: 4)

2018-8-8 14:27 上传

点击文件名下载附件

zhusong1998

还是自己编个代码，漏一手
也是学习中自己思考编写的第一个代码
虽然很不像大茄的手笔，但自己用起来还是很上手的，比自己手工输入快了不知道多少个数量级

很开心，很开心

1. <p>Sub 提取各学校各专业的最低分和最高分()
   
2. '******************************************************************************************************************
   
3. '首先把表格的所有行计算出来，同时补充表头的“录取分数段最高”和“录取分数段最低分”
   
4.     Columns("C:D").Select
   
5.     Selection.ClearContents
   
6. For t = 1 To Range("A65536").End(xlUp).Row '总行号
   
7. If Cells(t, 1) = "编号" Then
   
8.             Cells(t, 3) = "录取分数段最高分"
   
9.             Cells(t, 4) = "录取分数段最低分"
   
10.             ttt = Cells(t, 1).End(xlDown).Row '计算从编号行到空行的行号
    
11. '******************************************************************************************************************
    
12. '再次把需要查询分数的区域规定下来，就是K-W列除去编号行及空行
    
13.             
    
14. For tt = t + 1 To ttt '分数填充行
    
15.      If Cells(tt, 1) <> "" Then '如果需要填充行的第一个单元格不为空
    
16.          firstc = Cells(tt, 10).End(xlToRight).Column '计算第一个非空单元格的列号
    
17.          lastc = Cells(tt, 24).End(xlToLeft).Column '计算最后一个非空单元格的列号
    
18.                                 
    
19.             If firstc > 23 Then
    
20.                 Cells(tt, 3) = "当年没有录取人数"
    
21.                            
    
22.             ElseIf firstc = 11 Then
    
23.                 Cells(tt, 3) = Cells(t, firstc)
    
24.                 Cells(tt, 4) = Right(Cells(t, lastc), 3) '最低分是右侧三个数字
    
25.             ElseIf lastc = 23 Then
    
26.                                                                         
    
27.                  Cells(tt, 3) = Left(Cells(t, firstc), 3)
    
28.                  Cells(tt, 4) = Cells(t, lastc)
    
29.             Else
    
30.                  Cells(tt, 3) = Left(Cells(t, firstc), 3) '最高分是左侧三个数字
    
31.                  Cells(tt, 4) = Right(Cells(t, lastc), 3) '最低分是右侧三个数字
    
32.             End If
    
33.                                                         
    
34.        End If
    
35.                         
    
36.     Next
    
37.             
    
38. End If
    
39.   
    
40. Next</p><p>End Sub
    
41. </p>

复制代码

校对分数段.rar (48.27 KB, 下载次数: 4)

2018-8-13 14:18 上传

点击文件名下载附件

zhusong1998

看来白欢喜了，连个鼓励都木有

jiminyanyan

zhusong1998 发表于 2018-8-13 16:57
看来白欢喜了，连个鼓励都木有

你要啥鼓励，给你个美元吗？嘿嘿