EXCEL中删除重复数据行宏.docVIP

一、按ALT+F11 打开VB编辑器 二、双击左边靠上的【工程资源管理器】中的【MS Excel 对象】中的ThisWorkbook，在右边的代码窗口贴入下面的代码Sub 删除重复数据() 删除col列的重复数据 本例是删除标题为sheet1的EXCEL表中A列（从A2单元格开始）的重复数据 Application.ScreenUpdating = False 可根据实际情况修改下面三行的结尾值 Dim sheetsCaption As String: sheetsCaption = Sheet1 Dim Col As String: Col = A Dim StartRow As Integer: StartRow = 2 以下不需要修改 Dim EndRow As Integer: EndRow = Sheets(sheetsCaption).Range(Col 65536).End(xlUp).Row Dim Count_1 As Integer: Count_1 = 0 Dim count_2 As Integer: count_2 = 0 Dim i As Integer: i = StartRow With Sheets(sheetsCaption) Do Count_1 = Count_1 + 1 For j = StartRow To i - 1 If .Range(Col i) = .Range(Col j) Then Count_1 = Count_1 - 1 .Range(Col i).EntireRow.Delete EndRow = Sheets(sheetsCaption).Range(Col 65536).End(xlUp).Row i = i - 1 count_2 = count_2 + 1 Exit For End If Next i = i + 1 Loop While i EndRow + 1 End With MsgBox 共有 Count_1 条不重复的数据 MsgBox 删除 count_2 条重复的数据 Application.ScreenUpdating = True End Sub 三、回到EXCEL表，运行菜单 【工具】－【宏】－【宏】，选择 删除重复数据 这条宏，然后按执行。统计出不重复的行数即个数=SUM(1/COUNTIF(数据,数据))数组公式Shift+Enter 财务工作总结ppt [财务工作总结ppt]一、合理安排收支预算，严格预算管理 单位预算是学校完成各项工作任务，实现事业计划的重要前提，因此认真做好我校的收支预算责任重大，财务工作总结ppt。为了搞好这项工作，根据学校上年度的实际情况，拟定的预算方案，特别是支出方案多次向学校领导汇报，进行了反复修改，本着;以收定支，量入为出;，使预算更加切合实际。充分发挥在财务管理中的积极作用，较圆满地完成预算编制任务。在实际执行过程中，严格按照预算执行，每月未编制好计划用款报表，充分体现了资金的使用效益，确保学校各项工作的顺利完成。 二、认真做好收费、结算工作 收费是学校最为繁琐，也是政策最强的一项工作，为了做好这项工作，我们及早做好申报审批工作，做到收费的依据，严格执行收费标准。及时出具票据，期未做好结算工作，做到多退少不补，同时做好代收费;报告书;的上报。 三、认真做好决算工作 年终决算也是一项较为复杂繁重的工作任务，主要进行结旧建新，编制决算报表，决算报表是反映学校一年度的财务收支情况，是指导学校预算执行工作的重要资料，也是编制下年度收支计划的基础，所以除了认真细致地做好年终决算外，同时针对所编制的报表进行对比性分析，通过分析，总结经验，揭示存在的问题，为学校领导决策提供依据。 四、努力学习，提高财会人员的自身素质。 财务人员能积极参加镇组织的业务培训，不断的提高财会知识和政策水平，同时积极参加学校的一切政治学习，认真作好学习笔记，认真贯彻执行《合计法》，使学校的财会工作能按照国家的政策、法规进行，保证支出的真实性，合法性。 五、努力完成学校的后勤工作 后勤工作将直接影响到学校的一切工作，搞好食堂更为重要，为此总在放学前拟定好下学期的伙食收费报表报局计划财务科，严格执行计划财务科核定的标准收龋本着服务于学生目的，规范伙食成本，控制伙食利润，按规定时间上报食堂报表。 【扩展阅读篇】 工作总结格式一般分为：标题、主送机关、正文、署名四部分。 (1)标题。一般是根据工作总结的中心内容、目的要求、总结方向来定。同一事物因工作总结的方向;;侧重点不同其标题也就不同。工作总结标题有单标题，也有双标题。字迹要醒目。单标题就是只