用函数排序的方法用函数排序方法的方法.doc

用函数排序的方法 对统计监测对象进行数据排序，是统计分析进行类别分析的常用方法。EXCEL具有强大的数据分析功能，仅排序一块就有工具排序、自动筛选和函数排序三种。笔者认为三种排序方法以函数排序最快捷、最准确，特予推荐，供大家参考。 以C列4-106行为例，公式写法： =RANK(C4,$C$4:$C$106) 函数意义：某数C4在区间$C$4:$C$106所处的位置 注意事项：1、在列自动填充时区间作绝对引用； 2、在行自动填充时区间作相对引用。 几个处理Excel实用的VBA代码 最近，笔者参加了县考核办量化计分工作，由于我县采取的是差异化考核，计算过程十分烦琐，有的一个指标要计算十几列数据，表格庞大，对指标得分过录汇总费时费工，容易出错。笔者试着编了几段VBA代码，比较实用，特记录下来供大家参考。 1、保留“得分” 列数据的代码 Sub Deletcolumns() Dim a As Long, b As Long, i As Long a = UsedRange.Columns.Count For i = 1 To a If Columns(i).Find(得分, LookAt:=xlPart) Is Nothing Then Columns(i).Delete i = i - 1 b = b + 1 End If If i a - b Then Exit For Next i End Sub 如果需要同时保留“实绩”列数据，则在Then前加上and Columns(i).Find(实绩, LookAt:=xlPart) Is Nothing 2、保留某行的代码 Sub DeletRows() Dim a As Long, b As Long, i As Long a = UsedRange.Rows.Count For i = 1 To a IfRows(i).Find(某行名称, LookAt:=xlPart) Is Nothing Then Rows(i).Delete i = i - 1 b = b + 1 End If If i a - b Then Exit For Next i End Sub 如果想同时保留另一行，则在Then前面加And Rows(i).Find(另一行名称, LookAt:=xlPart) Is Nothing 就行了。 3、删除“得分”列的代码 Sub Macro1() Dim rng As Range Dim what As String what = 得分 Do Set rng = ActiveSheet.Cells.Find(what) If rng Is Nothing Then Exit Do Else rng.Activate Columns(rng.Column).Delete End If Loop End Sub 4、删除“某镇”行的代码 Sub Macro1() Dim rng As Range Dim what As String what = 某镇名称 Do Set rng = ActiveSheet.Cells.Find(what) If rng Is Nothing Then Exit Do Else rng.Activate rows(rng.row).Delete End If Loop End Sub 5、删除空列的代码 Sub deleteemptycolumns() Dim rcol As Long, lcol As Long, r As Long rcol = ActiveSheet.UsedRange. column lcol = rcol + ActiveSheet.UsedRange. columns.Count - 1 For r = lcol To rcol Step -1 If Application.WorksheetFunction.CountA(columns(r)) = 0 Then columns(r).Delete Next r End Sub 6、删除空行的代码： Sub del