前段时间做数据分析的时候,遇到很多报表文件需要处理,在此期间学习了很多Excel操作,特此做笔记回顾。
Excel宏录制
- 打开开发者工具
打开Excel文件,选择”文件”--》“选项”--》“自定义功能区”--》勾选“开发者工具”
- 打开录制宏,操作完毕停止录制
数据透视表:打开Excel文件--》选择“插入”--》“数据透视图”
根据需要把列加入到筛选器、列、行、值选框中。
筛选器:按条件筛选过滤需要的数据
列:数据以列的方式展示
行:数据以行的方式展示
值:对值字段设置进行求和、计数、平均值、最大值、最小值、乘积等
Excel合并多个页签到一个页签:选择“开发工具”--》“Visual Basic”--》ThisWorkbook--》F5或者点击执行--》得到“汇总工作表”
Sub Comb() Dim i% On Error Resume Next Sheets(1).Select Worksheets.Add '新建一个工作表 Sheets(1).Name = "汇总工作表" '对新建工作表重命名 For i = 2 To Sheets.Count 'For循环,遍历所有工作表 Sheets(i).Activate '激活工作表 Range("a1").Select Selection.CurrentRegion.Select '选择活动工作表数据区域 Selection.Copy Destination:=Sheets(1).Range("a65536").End(xlUp).Offset(1) '粘贴到汇总工作中 Next MsgBox ("工作表已全部合并到指定工作表中!") '弹窗提示合并完成 End Sub
合并多个Excel文件到一个文件:在当前目录新建文件,文件类型必须一致,Visual Basic执行代码(文件后缀必须一致,暂且只支持集合第一个页签)
sub 合并当前目录下所有工作簿的全部工作表() dim mypath, myname, awbname dim wb as workbook, wbn as string dim g as long dim num as long dim box as string application.screenupdating = false mypath = activeworkbook.path myname = dir(mypath & "\" & "*.xls") awbname = activeworkbook.name num = 0 do while myname <> "" if myname <> awbname then set wb = workbooks.open(mypath & "\" & myname) num = num + 1 with workbooks(1).activesheet .cells(.range("a65536").end(xlup).row + 2, 1) = left(myname, len(myname) - 4) for g = 1 to sheets.count wb.sheets(g).usedrange.copy .cells(.range("a65536").end(xlup).row + 1, 1) next wbn = wbn & chr(13) & wb.name wb.close false end with end if myname = dir loop range("a1").select application.screenupdating = true msgbox "共合并了" & num & "个工作薄下的全部工作表。如下:" & chr(13) & wbn, vbinformation, "提示" end sub
Excel里面的宏功能非常强大,可编程操作,后面慢慢探究。
Excel统计列内元素是否重复
=IF(COUNTIF(B:B,B2)>1,"重复","")
备注:
作者:Shengming Zeng
博客:http://www.cnblogs.com/zengming/
严正声明:
1.由于本博客部分资源来自互联网,版权均归原作者所有。转载的目的是用于学术交流与讨论学习,将不对任何资源负法律责任。
2.若无意中侵犯到您的版权利益,请来信联系我,我会在收到信息后会尽快给予处理!
3.所有资源内容仅供学习交流之用,请勿用作商业用途,谢谢。
4.如有转发请注明出处,来源于http://www.cnblogs.com/zengming/ ,谢谢合作。