用函数排序的方法

《用函数排序的方法》由会员分享，可在线阅读，更多相关《用函数排序的方法（8页珍藏版）》请在金锄头文库上搜索。

1、用函数排序的方法用函数排序的方法 对统计监测对象进行数据排序，是统计分析进行类别分析的常用方法。EXCEL 具有强大的数据分析功能，仅排序一块就有工具排序、自动筛选和函数排序三种。笔者认为三种排序方法以函数排序最快捷、最准确，特予推荐，供大家参考。以 C 列 4-106 行为例，公式写法：=RANK(C4,$C$4:$C$106)函数意义：某数 C4 在区间$C$4:$C$106 所处的位置注意事项：1、在列自动填充时区间作绝对引用；2、在行自动填充时区间作相对引用。几个几个处处理理 Excel 实实用的用的 VBA 代代码码 最近，笔者参加了县考核办量化计分工作，由于我县采取的是差异化考核，

2、计算过程十分烦琐，有的一个指标要计算十几列数据，表格庞大，对指标得分过录汇总费时费工，容易出错。笔者试着编了几段 VBA 代码，比较实用，特记录下来供大家参考。1、保留“得分” 列数据的代码Sub Deletcolumns()Dim a As Long, b As Long, i As Longa = UsedRange.Columns.CountFor i = 1 To aIf Columns(i).Find(“得分“, LookAt:=xlPart) Is Nothing ThenColumns(i).Deletei = i - 1b = b + 1End IfIf i a - b The

3、n Exit ForNext i End Sub如果需要同时保留“实绩”列数据，则在 Then 前加上 and Columns(i).Find(“实绩“, LookAt:=xlPart) Is Nothing2、保留某行的代码Sub DeletRows()Dim a As Long, b As Long, i As Longa = UsedRange.Rows.CountFor i = 1 To aIfRows(i).Find(“某行名称“, LookAt:=xlPart) Is Nothing Then Rows(i).Deletei = i - 1b = b + 1 End IfIf i

4、a - b Then Exit For Next iEnd Sub如果想同时保留另一行，则在 Then 前面加 And Rows(i).Find(“另一行名称“, LookAt:=xlPart) Is Nothing 就行了。3、删除“得分”列的代码Sub Macro1()Dim rng As RangeDim what As Stringwhat = “得分“DoSet rng = ActiveSheet.Cells.Find(what)If rng Is Nothing ThenExit DoElserng.ActivateColumns(rng.Column).DeleteEnd IfL

5、oopEnd Sub4、删除“某镇”行的代码Sub Macro1()Dim rng As RangeDim what As Stringwhat = “某镇名称“DoSet rng = ActiveSheet.Cells.Find(what)If rng Is Nothing ThenExit DoElserng.Activaterows(rng.row).DeleteEnd IfLoopEnd Sub5、删除空列的代码Sub deleteemptycolumns()Dim rcol As Long, lcol As Long, r As Longrcol = ActiveSheet.Used

6、Range. columnlcol = rcol + ActiveSheet.UsedRange. columns.Count - 1For r = lcol To rcol Step -1If Application.WorksheetFunction.CountA(columns(r) = 0 Then columns(r).DeleteNext rEnd Sub6、删除空行的代码：Sub deleteemptyRows()Dim rcol As Long, lcol As Long, r As Longrcol = ActiveSheet.UsedRange. rowlcol = rco

7、l + ActiveSheet.UsedRange. rows.Count - 1For r = lcol To rcol Step -1If Application.WorksheetFunction.CountA(rows(r) = 0 Then rows(r).DeleteNext rEnd Sub用函数公式用函数公式计计算功效系数法考核得分的方法算功效系数法考核得分的方法又到了年末，各项考核即将开始。在各级量化考核中大量使用功效系数法计算得分，公式复杂，计算烦琐，容易出错。笔者列出一组可以自动填充的函数公式，供大家参考。计算公式：某项指标得分=（某县该指标当年实际值-该指标全市当年最小

8、数值的县市指标值）/（该指标全市当年最大数值的县市指标值-该指标全市当年最小数值的县市指标值）*40+60*该指标在相关考核类别中的权数/100以 BK 列 6-15 行、权数 2 为例，函数公式写法：=(BK6-MIN($BK$6:$BK$15)/(MAX($BK$6:$BK$15)-MIN($BK$6:$BK$15)*40+60)*2/100函数意义：MIN($BK$6:$BK$15)为区间最小值MAX($BK$6:$BK$15)为区间最大值注意事项：区间应采用 F4 绝对引用举 例:序号数值(BK 列)得分权数261239027100111.28114121.671129117181.7740210108411.4791111111291.5759612118921.8325313115621.7215614112601.6200115121471.91828