Excel工作表单元格单击选中事件，VBA动态数值排序

Excel工作表单元格单击选中事件，VBA动态数值排序（WX公众号：Excel潘谆白说VBA)

---

前言

面对每月的消费账单，面对月底待还的信用卡或花呗，面对不足三位数的余额，你是否怀疑过账单自己的消费。你是否因此开始记账，每个月记流水,想知道当月中消费金额哪项最多，哪项最少;
你是一名会计，只想用粗略的查看某个月、某个科目下或某个客户经济往来的的变化趋势;
你是一名行政人员，想了解一下每个月某个员工迟到、旷工、加班情况，或当月所有员工迟到、旷工、加班排序;
你是仓库保管人员，想查看某种类的货物当年进、出量排序……
不需要筛选、汇总、计算，只要点击所查单元格，VBA快速帮你排列顺序。

---

一、运行效果

Excel工作表单元格单击选中事件，VBA动态数值排序

二、代码

Private Sub Workbook_SheetSelectionChange(ByVal Sh As Object, ByVal Target As Range)Dim str As StringDim targetUsedRow As IntegerDim targetUsedCol As IntegerDim sumTarget As StringDim sumAll As IntegerDim arrA() As IntegerDim tmp1 As IntegerDim tmp2 As StringOn Error Resume NextActiveSheet.Range("A1:IV65536").Interior.ColorIndex = xlNonestr = ActiveSheet.Cells(Target.Row, Target.Column).ValueFor i = 1 To 65536         '计算行数If ActiveSheet.Cells(i, Target.Column)