用函数排序的方法用函数排序方法的方法.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
显示全部