Excel宏編程可以快速完成批量表格操作：複製粘貼、數據過濾等，宏代碼基於VB語言實現，有基礎的編程經驗就能快速閱讀。下面是我的學習筆記。
1. Excel VBA編輯界面
（進入路徑： sheet名稱 --> 鼠標右鍵菜單 --> 查看代碼）
2. 輸入代碼方法：
在VBE編輯器的代碼模塊中輸入VBA代碼，通常有以下幾種方法：
■ 手工鍵盤輸入；
■ 使用宏錄製器，即選擇菜單“工具——宏——錄製新宏”命令，將所進行的操作自動錄製成宏代碼；
■ 複製/粘貼代碼，即將現有的代碼複製後，粘貼到相應的代碼模塊中；
■ 導入代碼模塊：文件-->導入文件 **不用的模塊可以：文件-->移出模塊
3. VB代碼閱讀掃盲
(1) 模塊聲明：
Sub sName() ... End Sub
Sub xxxxx()
XXXXXXXXX
End Sub
(2) 變量聲明：
Dim sPara As sType
Dim para1, para2, para3
Dim para4 As workbook, para5 As String
Dim G As Long
(3) 選擇結構：
With ... End With
If condition Then ... End If
# 舉個例子：遍歷每個Sheet把表粘貼成一個大表的語句，使用For Next With End With語句
With Workbooks(1).ActiveSheet
For G = 1 To Sheets.Count
Wb.Sheets(G).UsedRange.Copy .Cells(.Range("B65536").End(xlUp).Row + 1, 1)
Next
WbN = WbN & Chr(13) & Wb.Name
Wb.Close False
End With
(4) 循環結構
Do While condition ... Loop
For i = 0 to 100 ... Next
(5) 輸出Log：
MsgBox sString
案例解析：解析拷貝路徑下所有Excel到一個工作表下的示例：
************************************************************************************************************************************
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 #獲取當前BookName
Num = 0 #準備進入循環處理
Do While MyName <> "" #第一個循環體：遍歷所有文件 終止條件是 文件名爲空
If MyName <> AWbName Then #條件：文件名當前激活文件不同
Set Wb = Workbooks.Open(MyPath & "\" & MyName) # 設置工作表的名稱（當前Sheet Name）
Num = Num + 1 #計數用於輸出
With Workbooks(1).ActiveSheet
.Cells(.Range("B65536").End(xlUp).Row + 2, 1) = Left(MyName, Len(MyName) - 4)
#賦值語句：激活Sheet的A列最後一個單元格賦值爲MyName去掉‘.xls’的部分
#Left 截取字符串 去掉了'.xls'
#workbooks(n) 爲取工作簿 的寫法
#A65535(一個極大數)單元格向上，最後一個非空的單元格的行號
For G = 1 To Sheets.Count #嵌套循環體：遍歷文件的所有Sheets
Wb.Sheets(G).UsedRange.Copy .Cells(.Range("B65536").End(xlUp).Row + 1, 1)
#賦值所有內容到以結束內容空一行開始的表格中
Next #且套循環體結束
WbN = WbN & Chr(13) & Wb.Name # & 爲合併字符串的符號
Wb.Close False #對於文件操作結束，關閉Excel文件
End With #退出第二個判斷
End If #退出第一個判斷
MyName = Dir #怎麼拿到第二個bookName
Loop #循環體結束
Range("B1").Select #選中B1
Application.ScreenUpdating = True #允許Excel屏幕刷新
MsgBox "共合併了" & Num & "個工作薄下的全部工作表。如下：" & Chr(13) & WbN, vbInformation, "提示"
End Sub
************************************************************************************************************************************
常用模塊：
1. 把一個workBook的一塊表格拷貝到另一個WorkBook中的一般化方法：
上面的代碼中是一種簡單的實現：拷貝所有內容到空行區域
需要將拷貝的內容和粘貼的位置控制更加精準控制：
拷貝指定位置到指定位置：
Workbooks("工作簿1.xls").Sheet1.Range("A1:C50").Copy ThisWorkbook.Sheet2.Range("A1")
2. 找到粘貼位置：
b=sheet2.[BI].end(xlToLeft).row+1 獲取最後一次編輯的各自的列號！
.Range("B65536").End(xlUp).Row + 2 最後一次編輯的格子的行號
A1 直接編輯
.Cells(nRowNo, nColNo)
...
實戰案例分析：一個將多個相同格式表格合併生成橫表的例子：
Sub 合併當前目錄下所有工作簿的全部工作表()
Dim MyPath, MyName, AWbName
Dim Wb As Workbook, WbN As String
Dim G As Long
Dim Num As Long
Dim BOX As String
Dim HasTitil As Boolean
Dim LastRange As String
Dim CurRowNo As Long
Application.ScreenUpdating = False
MyPath = ActiveWorkbook.Path
MyName = Dir(MyPath & "\" & "*.xls")
AWbName = ActiveWorkbook.Name
Num = 0
HasTitil = False
With Workbooks(1).ActiveSheet
.Cells(1, 2) = "Cor.Name"
Do While MyName <> ""
If MyName <> AWbName Then
Set Wb = Workbooks.Open(MyPath & "\" & MyName)
Num = Num + 1
.Cells(1, Num + 2) = Left(MyName, Len(MyName) - 4)
If HasTitil <> True Then
Wb.Sheets(1).Range("A4:B43").Copy .Cells(2, 1)
Wb.Sheets(1).Range("E4:F43").Copy .Cells(.Range("A65536").End(xlUp).Row + 1, 1)
Wb.Sheets(2).Range("A5:B73").Copy .Cells(.Range("A65536").End(xlUp).Row + 1, 1)
Wb.Sheets(2).Range("E5:F73").Copy .Cells(.Range("A65536").End(xlUp).Row + 1, 1)
Wb.Sheets(3).Range("A4:B32").Copy .Cells(.Range("A65536").End(xlUp).Row + 1, 1)
Wb.Sheets(3).Range("E4:F32").Copy .Cells(.Range("A65536").End(xlUp).Row + 1, 1)
Wb.Sheets(4).Range("A5:B100").Copy .Cells(.Range("A65536").End(xlUp).Row + 1, 1)
HasTitil = True
End If
CurRowNo = 2
Wb.Sheets(1).Range("D4:D43").Copy .Cells(CurRowNo, Num + 2)
CurRowNo = CurRowNo + 40
Wb.Sheets(1).Range("H4:H43").Copy .Cells(CurRowNo, Num + 2)
CurRowNo = CurRowNo + 40
Wb.Sheets(2).Range("D5:D73").Copy .Cells(CurRowNo, Num + 2)
CurRowNo = CurRowNo + 69
Wb.Sheets(2).Range("H5:H73").Copy .Cells(CurRowNo, Num + 2)
CurRowNo = CurRowNo + 69
Wb.Sheets(3).Range("D4:D32").Copy .Cells(CurRowNo, Num + 2)
CurRowNo = CurRowNo + 29
Wb.Sheets(3).Range("H4:H32").Copy .Cells(CurRowNo, Num + 2)
CurRowNo = CurRowNo + 29
Wb.Sheets(4).Range("D5:D100").Copy .Cells(CurRowNo, Num + 2)
Wb.Close False
End If
MyName = Dir
Loop
End With
Range("B1").Select
Application.ScreenUpdating = True
End Sub