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