查找单元格中最小或最大的数据，并标记数字或填充单元格

zhongyongyue

查找单元格中最小或最大的数据，并标记数字或填充单元格

爱疯

2.rar (7.71 KB, 下载次数: 7)

2016-3-30 16:28 上传

点击文件名下载附件

sry660

1. Sub 最小值标注()
   
2.     Dim jmax%, imax%, i%, x#, j%
   
3.     [a1].CurrentRegion.Interior.ColorIndex = 0
   
4.     imax = Cells(Rows.Count, 1).End(3).Row
   
5.     jmax = Cells(1, Columns.Count).End(2).Column
   
6.     Application.ScreenUpdating = False
   
7.     For i = 1 To imax
   
8.         x = Application.Min(Range(Cells(i, 1), Cells(i, jmax)))
   
9.         For j = 1 To jmax
   
10.             If Cells(i, j) = x Then Cells(i, j).Interior.ColorIndex = 6
    
11.         Next
    
12.     Next
    
13.     Application.ScreenUpdating = True
    
14. End Sub
    
15. Sub 取消标注()
    
16.     [a1].CurrentRegion.Interior.ColorIndex = 0
    
17. End Sub

复制代码