宏筆記
1.僅保留所需表，刪除其余工作表
Sub 刪除工作表1()
Dim j
Excel.Application.DisplayAlerts = False
For Each j In Worksheets
If j.Name <> "匯總" Then
j.Delete
End If
Next
Excel.Application.DisplayAlerts = True
End Sub
Sub 刪除工作表2()
Dim i, w
Excel.Application.DisplayAlerts = False
For i = 1 To Worksheets.Count
If Sheets(i).Name <> "匯總" Then
Set w = Sheets(i)
w.Delete
End If
Next
Excel.Application.DisplayAlerts = True
End Sub
3.工作簿安吁，打開脚囊、寫入、保存
Sub a()
Excel.Application.DisplayAlerts = False
Workbooks.Open "\tsclient\home\Music\A.xlsx"
ActiveWorkbook.Sheets(1).Range("A1") = "0000"
ActiveWorkbook.Save
ActiveWorkbook.Close
Excel.Application.DisplayAlerts = True
End Sub
工作簿子寓，打開懊渡、寫入冠句、保存
Sub b()
Excel.Application.DisplayAlerts = False
Workbooks.Add
ActiveWorkbook.Sheets(1).Range("A1") = "BBB"
ActiveWorkbook.SaveAs Filename:="\tsclient\home\Music\B.xlsx"
ActiveWorkbook.Close
Excel.Application.DisplayAlerts = True
End Sub
工作簿，另存(待檢核 ??)
Sub c()
Excel.Application.ScreenUpdating = False
Dim s1
For Each s1 In Sheets
s1.Copy
ActiveWorkbook.SaveAs Filename:=" \tsclient\home\Music" & s1.Name & ".xlsx"
ActiveWorkbook.Close
Next
Excel.Application.ScreenUpdating = True
End Sub
SaveCopyAs
使用saveas方法將工作簿另存為新文件后，Excel將關(guān)閉原文件并自動打開另存為得到的新文件胀葱，
如果希望繼續(xù)保留原文件不打 開新文件漠秋，應(yīng)使用SaveCopyAs方法
基礎(chǔ)語句
1、
類型 名稱 字符代表 占用存儲空間(字節(jié)) 包含的數(shù)據(jù)及范圍
整數(shù)型 Integer % 2 -32768到32767的整數(shù)( 2^16)
長整數(shù)型 Long & 4 -2147483648到2147483647的整數(shù)( 2^32)
字節(jié)型 Byte 1 0到255的整數(shù)( 2^8)
日期型 Date 8 范圍:100年1月1日至9999年12月31日
字符型 string $
單精度 Single ! 4
雙精度 Double # 8
貨幣型 Currency @ 8
工作表 Worksheet 當(dāng)前工作簿所有工作表
單元格 Range 當(dāng)前工作表所有單元格
運算符 作用 計算規(guī)則
And 與 左右兩邊都為T時返回T抵屿，否則返回F
Or 或 左右兩邊其中一個為T就返回T庆锦，否則返回F
Not 非 取反
Xor 異域 左右兩邊值不相同返回T，否則返回F
Eqv 等價 左右兩邊值相同返回T轧葛，否則返回F
Imp 蘊含 等于同 Not 表達式1 Or 表達式2
= 等于
<> 不等于
< 小于
大于
<= 小于或等于
= 大于或等于
IS 比較兩個對象的引用變量
Like 比較兩個字符串是否匹配
函數(shù)
MsgBox y 彈出提示文本框
instr(從第幾個字符開始找搂抒，原字符串，子串)
x = "好好學(xué)習(xí)尿扯，天天向上"
y = InStr(x, "學(xué)習(xí)")
instrReV() 功能同上求晶，從右邊找
split(原字符串，分解成數(shù)組的符號)(數(shù)組編號)
trim()返回的新字符串去掉原字符兩邊空格
replace(原字符串衷笋，子串芳杏，替換成)
lcase() ucase() 字母大小寫轉(zhuǎn)換
left(字符串，取n個字符)
Mid(字符串辟宗，從第n開始取蚜锨，取m個字符)
2、選擇工作表
Worksheets(1).Select
Worksheets(1).Activate
Sheets("Sheet1").Select
Sheets("Sheet1").Activate
Worksheets只包含工作表慢蜓，Sheets不僅包含工作表亚再，還包含圖表、宏等晨抡；
Select代表選定對象（可多個）氛悬，Activate代表激活對象（僅一個）。
3耘柱、添加/刪除工作表
Sheets.Add
Sheets.Add before:=Sheets("sheet1") 在sheet1前面加1張工作表
Sheets.Add after:=Sheets("sheet1") 在sheet1后面加1張工作表
Sheets.Add before:=Sheets("sheet1"), Count:=3 在sheet1前面加3張工作表
Sheets.Add after:=Sheets(Sheets.count) 在最后一張工作表后面插入工作表如捅，先計算文件中有幾張工作表
Sheets("sheet1").Delete 刪除工作表
Excel.Application.ScreenUpdating = False 關(guān)閉屏幕更新
Excel.Application.ScreenUpdating = True 重新開啟屏幕更新
4、復(fù)制/移動工作表
Sheets("sheet1").Copy before:=Sheets(1)
Sheets("sheet1").Copy after:=Sheets(1)
Sheets("sheet1").copy after:=sheets(sheets.count)
Sheets("sheet1").Copy
無論工作表復(fù)制到哪里调煎，復(fù)制得到的工作表總會成為活動工作表镜遣，都可以使用Activesheet引用
sheets("sheet1").move before:=sheet(1)
sheets("sheet1").move after:=sheet(1)
sheets("sheet1").move
5、獲取工作簿屬性
Range("B2") = ThisWorkbook.Name 獲取工作簿名稱
Range("B3") = ThisWorkbook.Path 獲取工作簿路徑
Range("B4") = ThisWorkbook.FullName 獲取工作簿路徑+名稱
6士袄、添加工作簿
Workbooks.Add 添加工作簿
Workbooks.Add "\tsclient\home\Music\模版.xlsx" 添加工作簿并保存
workbooks("模版.xlsx ") 名稱引用工作簿
workbooks(3) 使用索引號引用工作簿
7悲关、打開/關(guān)閉工作簿
Workbooks.Open " \tsclient\home\Music\模版.xlsx" 打開工作簿
Workbooks("模版").Activate
雖然可以同時打開多個工作簿，但是只有一個活動工作簿娄柳。如果想讓不活動的工作簿變?yōu)榛顒庸ぷ鞑驹⑷瑁梢杂肳orkbooks對象的Activate方法激活。
workbooks.close關(guān)閉當(dāng)前打開的所有工作簿
workbooks("book1").close關(guān)閉指定工作簿
每次關(guān)閉時赤拒，如果修改了工作簿秫筏，系統(tǒng)會提示是否保存修改
workbooks("book1").close True '保存
workbooks("book1").close False '不保存
8诱鞠、Range屬性引用
Range("A1:A10") 引用單個固定的單元格區(qū)域
Range("A1:A10,A4:E6,C3:D9") Union(Range("A1:A10"), Range("C1:C10"))引用多個不連續(xù)的單元格區(qū)域
Range("B1:B10 A4:D6") 引用多個區(qū)域的公共區(qū)域(相交)
Range("B6:B10", "D2:D8") 引用兩個區(qū)域圍成的矩形區(qū)域
Range("a6").EntireRow.Select 選擇A6單元格所在的那一整行
Range("a6").EntireColumn.Select 選擇A6單元格所在的那一整列
9、Cells屬性引用
工作表對象.Cells(行这敬，列)
ActiveSheet.Cells(3,4) 引用工作表中指定行列交叉的單元格
引用單元格區(qū)域中某個單元格
Range("B3:F9").Cells(2,3)
將Cells屬性的返回結(jié)果設(shè)置為Range屬性的參數(shù)
Set r = Range(Cells(x, y) , Cells(i, j)) 等效于 range(Ai,Bj)
10航夺、直接引用單元格
[A1] A1單元格
[A1:D10] A1:D10單元格區(qū)域
[A1:A10,C1:C10,E1:D10] 三個單元格區(qū)域的并集
[B1:B10 A5:D5] 兩個單元格區(qū)域的公共部分
[n] 被定義為名稱n的單元格區(qū)域
這種引用適合引用一個固定的Range對象，但不能使用變量崔涂，缺少靈活性敷存。
11、引用整行/整列單元格
ActivSheet.Rows("3:3") / ActivSheet.Rows(3) 活動工作表第3行
ActivSheet.Rows("3:5") 活動工作表第3到5行
ActivSheet.Rows 活動工作所有行
Rows("3:10").Rows("1:1") 3到10行區(qū)域中的第1行
ActiveSheet.Colunms("F:G") 活動工作表F到G列
ActiveSheet.Colunms(6) 活動工作表中第6列
ActiveSheet.Colunms 活動工作表所有列
Colunms("B:G").Colunms("B:B") B:G列區(qū)域中的第2列 ??
12堪伍、清除
Set r = Range("A1:A10")
r.Clear 清除所有內(nèi)容(包括批注锚烦、內(nèi)容、格式帝雇、超鏈等)
r.ClearComments 清除批注
r.ClearContents 清除內(nèi)容
r.ClearFormats 清除格式
r.ClearHyperlinks 清除超鏈接
13涮俄、字體
r.Font.Clolr=RGB(255,0,0) 文字顏色
r.Font.Size =24 文字大小
r.Font.Italic = True 是否斜體
r.Font.Bold = True 是否粗體
14、顏色填充（內(nèi)部屬性）
Set r1 = Range("A1:B4,D2,F3:G6")
r1.Interior.Color = vbRed / r.Interior.Color=RGB(255,0,0)
15尸闸、合并單元格
r.Merge合并單元格
r.UnMerge 取消合并單元格
16彻亲、Range對象的Resize擴大縮小 ??
Range("B2").Resize(1, 3).Select
使用Resize屬性可以將指定的單元格區(qū)域擴大，得到一個新的單元格區(qū)域
Range("B2:E6").Resize(2, 1).Select
當(dāng)Resize屬性的參數(shù)小于其父對象包含的行列數(shù)吮廉，Resize屬性將返回一個較小單元格區(qū)域
17苞尝、Range對象的CurrentRegion連續(xù)區(qū)域
Range("E7").CurrentRegion.Select
Worksheet對象的UsedRange使用區(qū)域
ActiveSheet.UsedRange.Select
Usedrange屬性是工作表的屬性，是返回工作表中已經(jīng)使用了的單元格區(qū)域
18宦芦、Range對象的offset(下移行宙址，右移列)
Range. Offset(2,3) 向下移動2行，向右移動3列
19调卑、Range對象的End屬性
Range(“A10”).End(xlUP)
Range("a65536").End(xlUp).Select 選中A列最后一個被使用的單元格
Range("a65536").End(xlUp).Row Row是行號
可設(shè)置的參數(shù) 參數(shù)說明
xlToLeft End+左方向鍵
xlToRight End+右方向鍵
xlUp End+上方向鍵
xlDown End+下方向鍵
20抡砂、Count屬性，區(qū)域中包含單元格的個數(shù)
MsgBox Range("B4:F10").Count 指定區(qū)域中單元格的個數(shù)
ActiveSheet.UsedRange.Rows.Count 活動工作表中已使用區(qū)域的行數(shù)
ActiveSheet.UsedRange.Columns.Count 活動工作表中已使用區(qū)域的列數(shù)
21恬涧、Address屬性獲得單元格的地址
MsgBox "當(dāng)前單元格地址為:" & Selection.Address
22注益、用Activate與Select方法選中單元格
Sub a()
ActiveSheet.Range("A1:F5").Select
ActiveSheet.Range("B5").Select
End Sub
Sub b() ActiveSheet.Range("A1:F5").Select
ActiveSheet.Range("B5").Activate
End Sub
選中單元格區(qū)域后，再用Activate方法激活該區(qū)域里的一個單元格溯捆，該區(qū)域依然呈選中狀態(tài)丑搔。
如果使用Select方法，只有Select選中的那個單元格呈選中狀態(tài)提揍。
23啤月、用Copy方法復(fù)制、Cut方法剪切單元格區(qū)域
ange("A1").Copy Range("C1")
Range("A7").EntireRow.Copy Range("A23") 將A7那一整行拷貝到A23
Range("A7").EntireColumn.Copy Range("A23")
Range("A1").CurrentRegion.Copy Range("H1")
Range("F1:I10").Value = Range("A1:D10").Value 不要格式碳锈，只復(fù)制數(shù)值
Range("A1").Cut Range("C1")
Range("A1:D4").Cut Range("G1")
24顽冶、用Delete方法刪除指定單元格
Range("B3").Delete shift:=xlToLeft 刪除B3單元格，刪除后右側(cè)單元格左移
Range("B3").Delete shift:=xlUp 刪除B3單元格售碳，刪除后下方單元格上移 等于同 Range("B3").Delete
Range("B3").EntireRow.Delete 刪除B3單元格所在的行
Range("B3").EntireColumn.Delete 刪除B3單元格所在的列
25、DateDiff函數(shù) 計算兩個日期的時間差
格式：DateDiff（單位，起始時間贸人，截至?xí)r間）
單位：”yyyy” -年间景，“m”-月， “q”-季度艺智， “d”-日倘要， “h”-時，“n”-分鐘十拣，“s”-秒
“y”-當(dāng)年低幾日封拧，一般情況與”d”相同；
“w”-周夭问，按實際天數(shù)計算泽西，不足7天為0周；
“ww” –周缰趋，按跨越周日數(shù)計算捧杉，只要相隔一個周日即為一周；
DateDiff(“yyyy”,#8/3/1996#,#3/5/2003#)
26秘血、DateAdd函數(shù)（時間段）計算一個時間點加上指定時間段后的新時間
格式：DateAdd（單位味抖，時間長度，截至?xí)r間）
單位：同上
DateAdd(“d”,500,#3/5/2003#)
27灰粮、GoTo語句仔涩，程序跳轉(zhuǎn)執(zhí)行指定語句
Dim a, i
i= 1
x: a = a + i
i = i +1
If i <= 100 Then GoTo x
MsgBox "從1到100的累加和是:" & a End Sub
28、錯誤處理運行語句
a.錯誤提示
On Error GoTo a
Sheets("孫興華").Select
Exit Sub
a: MsgBox "沒有這張工作表!"
b. 忽略錯誤代碼的存在粘舟，接著執(zhí)行錯誤行之后的代碼
On Error Resume Next
Sheets("Sheet1").Select
Exit Sub
MsgBox "沒有這張工作表!"
無論工作簿中是否存在名稱為“Sheet1”的工作表红柱，這行代碼都不會得到執(zhí)行的機會
c. 關(guān)閉對程序中運行時錯誤的捕捉
On Error Resume Next
Sheets("孫興華").Select
On Error GoTo 0
Sheets("李小龍").Select
Exit Sub
a: MsgBox "沒有這張工作表"
使用 On Error GoTo 0 語句后，將關(guān)閉對程序中運行時錯誤的捕捉蓖乘。
如果程序在 On Error GoTo 0 語句后出現(xiàn)運行時錯誤锤悄，將不會再被捕捉。
判斷函數(shù)
IsDate 判斷是否為日期
IsNumeric判斷是否為數(shù)字
TypeName查看變量的數(shù)據(jù)類型
返回T/F
注意:Excel中的isnumber也是判斷是否為數(shù)字嘉抒，若遇到日期時零聚，也認為是數(shù)字；
但isnumeric遇到日期時就判斷不是數(shù)字些侍。數(shù)據(jù)類型轉(zhuǎn)換函數(shù)
函數(shù) 作用
Cbool(x) 轉(zhuǎn)換成邏輯類型的數(shù)據(jù)
Cdate(x) 轉(zhuǎn)換成日期類型的數(shù)據(jù)
CStr(x) 轉(zhuǎn)換成字符串類型的數(shù)據(jù)
Cint(x) 轉(zhuǎn)換成整型的數(shù)據(jù)隶症，“銀行家四舍五入”;
CInt(3.5)=4 int(4.5)=4 并不是遇到5以上就進位，而是將其舍入到最近的偶數(shù)岗宣。
Int(x) 轉(zhuǎn)換成整型的數(shù)據(jù)蚂会，直接取整。int(5.9)=5 int(5.3)=5
CLng(x) 轉(zhuǎn)換成長整型Long類型的數(shù)據(jù)
CDbl(x) 轉(zhuǎn)換成Double雙精度浮點型數(shù)據(jù)
CCur(x) 轉(zhuǎn)換成Currency貨幣型數(shù)據(jù)
CSng(x) 轉(zhuǎn)換成Single單精度浮點型數(shù)據(jù)
CByte(x) 轉(zhuǎn)換成Byte字節(jié)類型的數(shù)據(jù)
CDec(x) 轉(zhuǎn)換成Decimal小數(shù)型的數(shù)據(jù)
31耗式、數(shù)組
a. 起始和終止索引號定義數(shù)組的大小
Dim 數(shù)組名稱(a To b) As 數(shù)據(jù)類型
a和b是整數(shù)不能是變量胁住，a和b定義數(shù)組的起始和終止索引號
Dim arr(1 To 100) As Byte
定義一個字節(jié)型的數(shù)組趁猴，名稱為arr，可以存儲100個數(shù)據(jù)
可以通過不同的索引號來引用其中存儲的各數(shù)據(jù)彪见，例如:arr(3)數(shù)組中的第1個數(shù)據(jù)
b. Dim arr(99) As Byte 等同于 Dim arr(0 To 99) As Byte
c. 多維數(shù)組
Dim 數(shù)組名稱 (a To b) As 數(shù)據(jù)類型
Dim arr(1 To 3, 1 To 5) As Integer '定義了一個3行5列儡司，類型為Integer的二維數(shù)組
Dim arr(2,4) As Integer 等同于 Dim arr(0 To 1，0 To3) As Integer
Dim arr(2,2,4) As Integer 等同于 Dim arr(0 To 1余指，0 To 1捕犬，0 To 3) As Integer
d. 動態(tài)數(shù)組
Dim 數(shù)組名稱( ) AS 數(shù)據(jù)類型
如果預(yù)先不知道數(shù)組的大小（維數(shù)不確定或可存儲的數(shù)據(jù)個數(shù)不確定）酵镜，在定義數(shù)組時只寫空括號碉碉；
Sub a()
Dim a, i
a = Excel.Application.WorksheetFunction.CountA(Range("A:A")) Dim arr()
ReDim arr(1 To a)
For i = 1 To a
arr(i) = Range("A" & i)
Range("G" & i) = arr(i)
Next
End Sub
將數(shù)組定義為動態(tài)數(shù)組以后，可以用ReDim語句重新定義它的大小淮韭，ReDim就可以用變量定義了
e. 用Array函數(shù)創(chuàng)建數(shù)組
arr = Array(0, 1, 2, 3, 4, 5, 6, 7, 8, 9)
f．用Split函數(shù)創(chuàng)建數(shù)組
split(等待拆分的字符串垢粮，分隔符字符串) 將字符串按照指定分隔符拆分成多個子串
arr = Split("葉問,李小龍,孫興華", ",")
arr = Split(Range("A2"), "、")
i= 2
For Each a In arr
Range("C" & i) = a
i= i+ 1
Next
用For each遍歷數(shù)組的時候缸濒，數(shù)組必需是變體型
g. 單元格區(qū)域直接創(chuàng)建數(shù)組
arr = Range("A1:C3")
將數(shù)組中保存的數(shù)據(jù)寫入單元格區(qū)域時足丢，單元格區(qū)域的行列數(shù)必須與數(shù)組的維數(shù)相同。
f. 用Join函數(shù)將一維數(shù)組合并成字符串
Join(數(shù)組名稱庇配，連接符號)
arr = Array(0, 1, 2, 3, 4, 5, 6,)
a = Join(arr, "#")
j. 數(shù)組的最大和最小索引號
Sub a()
Dim arr(1 To 3, 1 To 5), a, b
a = UBound(arr, 1) '求一維數(shù)組最大索引
b = UBound(arr, 2) '求二維數(shù)組最大索引
MsgBox "第一維的最大索引號是:" & a & Chr(13) & _"第二維的最大索引號是:" & b
End Sub
h. 求數(shù)組包含的元素個數(shù)
一維數(shù)組（ 最大索引減最小索引加1)
Ubound(數(shù)組名稱)-Lbound(數(shù)組名稱)+1
二維數(shù)組(第一維的總個數(shù)乘以第二維的總個數(shù)) 二維數(shù)組可以看成是一個工作表斩跌，只要把“長”和“寬”求出來相乘即可。
arr = Range("A1:C3")
a = UBound(arr, 1)
b = LBound(arr, 1)
c = UBound(arr, 2)
d = LBound(arr, 2)
MsgBox "數(shù)組中包含的元素個數(shù)是:" & (a - b + 1) * (c - d + 1)
i. Transpose將數(shù)組中的數(shù)據(jù)寫入單元格區(qū)域
arr = Array(1, 2, 3, 4, 5, 6)
Range("A1:A6") = Excel.Application.WorksheetFunction.Transpose(arr)
