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

　　前段时间做数据分析的时候，遇到很多报表文件需要处理，在此期间学习了很多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/ ，谢谢合作。