Excel宏录制、数据透视表、合并多个页签

　　前段时间做数据分析的时候，遇到很多报表文件需要处理，在此期间学习了很多Excel操作，特此做笔记回顾。

Excel宏录制

• 打开开发者工具

　　　　打开Excel文件，选择”文件”--》“选项”--》“自定义功能区”--》勾选“开发者工具”

• 打开录制宏，操作完毕停止录制

数据透视表：打开Excel文件--》选择“插入”--》“数据透视图”
　　根据需要把列加入到筛选器、列、行、值选框中。

　　筛选器：按条件筛选过滤需要的数据

　　列：数据以列的方式展示

　　行：数据以行的方式展示

　　值：对值字段设置进行求和、计数、平均值、最大值、最小值、乘积等

Excel合并多个页签到一个页签：选择“开发工具”--》“Visual Basic”--》ThisWorkbook--》F5或者点击执行--》得到“汇总工作表”

Sub Comb()

Dim i%

On Error Resume Next

Sheets().Select

Worksheets.Add '新建一个工作表

Sheets().Name = "汇总工作表" '对新建工作表重命名

For i =  To Sheets.Count 'For循环，遍历所有工作表

Sheets(i).Activate '激活工作表

Range("a1").Select

Selection.CurrentRegion.Select '选择活动工作表数据区域

Selection.Copy Destination:=Sheets().Range("a65536").End(xlUp).Offset() '粘贴到汇总工作中

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 =
do while myname <> ""
if myname <> awbname then
set wb = workbooks.open(mypath & "\" & myname)
num = num +
with workbooks().activesheet
.cells(.range("a65536").end(xlup).row + , ) = left(myname, len(myname) - )
for g =  to sheets.count
wb.sheets(g).usedrange.copy .cells(.range("a65536").end(xlup).row + , )
next
wbn = wbn & chr() & wb.name
wb.close false
end with
end if
myname = dir
loop
range("a1").select
application.screenupdating = true
msgbox "共合并了" & num & "个工作薄下的全部工作表。如下：" & chr() & 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/ ，谢谢合作。