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/ ，谢谢合作。

Excel宏录制、数据透视表、合并多个页签的相关教程结束。