Excel辦公用宏大全

1、代代碼碼目目錄錄鏈鏈接接打開全部隱藏工作表點擊循循環(huán)環(huán)宏宏點擊錄錄制制宏宏時時調(diào)調(diào)用用“停停止止錄錄制制”工工具具欄欄點擊高高級級篩篩選選5 5列列不不重重復(fù)復(fù)數(shù)數(shù)據(jù)據(jù)至至指指定定表表點擊雙雙擊擊單單元元執(zhí)執(zhí)行行宏宏( (工工作作表表代代碼碼) )點擊雙雙擊擊指指定定區(qū)區(qū)域域單單元元執(zhí)執(zhí)行行宏宏( (工工作作表表代代碼碼) )點擊進(jìn)進(jìn)入入單單元元執(zhí)執(zhí)行行宏宏( (工工作作表表代代碼碼) )點擊進(jìn)進(jìn)入入指指定定區(qū)區(qū)域域單單元元執(zhí)執(zhí)行行宏宏( (工工作作表表代代碼碼) )點擊在在多多個個宏宏中中依依次次循循環(huán)環(huán)執(zhí)執(zhí)行行一一個個（控控件件按按鈕鈕代代碼碼）點擊在在兩兩個個宏宏中中依依次次循循環(huán)環(huán)執(zhí)執(zhí)

2、行行一一個個并并相相應(yīng)應(yīng)修修改改按按鈕鈕名名稱稱（控控件件按按鈕鈕代代碼碼）點擊在在三三個個宏宏中中依依次次循循環(huán)環(huán)執(zhí)執(zhí)行行一一個個并并相相應(yīng)應(yīng)修修改改按按鈕鈕名名稱稱（控控件件按按鈕鈕代代碼碼）點擊根根據(jù)據(jù)A1A1單單元元文文本本隱隱藏藏/ /顯顯示示按按鈕鈕（控控件件按按鈕鈕代代碼碼）點擊當(dāng)當(dāng)前前單單元元返返回回按按鈕鈕名名稱稱（控控件件按按鈕鈕代代碼碼）點擊當(dāng)當(dāng)前前單單元元內(nèi)內(nèi)容容返返回回到到按按鈕鈕名名稱稱（控控件件按按鈕鈕代代碼碼）點擊奇奇偶偶頁頁分分別別打打印印點擊自自動動打打印印多多工工作作表表第第一一頁頁點擊查查找找A A列列文文本本循循環(huán)環(huán)插插入入分分頁頁符符點擊將將A A列

3、列最最后后數(shù)數(shù)據(jù)據(jù)行行以以上上的的所所有有B B列列圖圖片片大大小小調(diào)調(diào)整整為為所所在在單單元元大大小小點擊返返回回光光標(biāo)標(biāo)所所在在行行數(shù)數(shù)點擊在在A1A1返返回回當(dāng)當(dāng)前前選選中中單單元元格格數(shù)數(shù)量量點擊返返回回當(dāng)當(dāng)前前工工作作簿簿中中工工作作表表數(shù)數(shù)量量點擊返返回回光光標(biāo)標(biāo)選選擇擇區(qū)區(qū)域域的的行行數(shù)數(shù)和和列列數(shù)數(shù)點擊工工作作表表中中包包含含數(shù)數(shù)據(jù)據(jù)的的最最大大行行數(shù)數(shù)點擊返返回回A A列列數(shù)數(shù)據(jù)據(jù)的的最最大大行行數(shù)數(shù)點擊將所選區(qū)域文本插入新建文本框點擊批量插入地址批注點擊批量插入統(tǒng)一批注點擊以A1單元內(nèi)容批量插入批注點擊不連續(xù)區(qū)域插入當(dāng)前文件名和表名及地址點擊不連續(xù)區(qū)域錄入當(dāng)前單元地址點擊連

4、續(xù)區(qū)域錄入當(dāng)前單元地址點擊返回當(dāng)前單元地址點擊不連續(xù)區(qū)域錄入當(dāng)前日期點擊不連續(xù)區(qū)域錄入當(dāng)前數(shù)字日期點擊不連續(xù)區(qū)域錄入當(dāng)前日期和時間點擊不連續(xù)區(qū)域錄入對勾點擊不連續(xù)區(qū)域錄入當(dāng)前文件名點擊不連續(xù)區(qū)域添加文本點擊不連續(xù)區(qū)域插入文本點擊從指定位置向下同時錄入多單元指定內(nèi)容點擊按aa工作表A列的內(nèi)容排列工作表標(biāo)簽順序點擊以A1單元文本作表名插入工作表點擊刪除全部未選定工作表點擊工作表標(biāo)簽排序點擊定義指定工作表標(biāo)簽顏色點擊在目錄表建立本工作簿中各表鏈接目錄點擊建立工作表文本目錄點擊查另一文件的全部表名點擊當(dāng)前單元錄入計算機名點擊當(dāng)前單元錄入計算機用戶名點擊解除全部工作表保護(hù)點擊為指定工作表加指定密碼保護(hù)表

5、點擊在有密碼的工作表執(zhí)行代碼點擊執(zhí)行前需要驗證密碼的宏(控件按鈕代碼)點擊拷拷貝貝A1A1公公式式和和格格式式到到A2A2點擊復(fù)復(fù)制制單單元元數(shù)數(shù)值值點擊插入數(shù)值條件格式點擊插入透明批注點擊添加文本點擊光光標(biāo)標(biāo)定定位位到到指指定定工工作作表表A A列列最最后后數(shù)數(shù)據(jù)據(jù)行行下下一一單單元元點擊定定位位選選定定單單元元格格式式相相同同的的全全部部單單元元格格點擊按按當(dāng)當(dāng)前前單單元元文文本本定定位位點擊按按固固定定文文本本定定位位點擊刪刪除除包包含含固固定定文文本本單單元元的的行行或或列列點擊定定位位數(shù)數(shù)據(jù)據(jù)及及區(qū)區(qū)域域以以上上的的空空值值點擊右右側(cè)側(cè)單單元元自自動動加加5(5(工工作作表表代代碼碼

6、) )點擊當(dāng)當(dāng)前前單單元元加加2 2點擊A A列列等等于于A A列列減減B B列列點擊用用于于光光標(biāo)標(biāo)選選定定多多區(qū)區(qū)域域跳跳轉(zhuǎn)轉(zhuǎn)指指定定單單元元( (工工作作表表代代碼碼) )點擊將A1單元錄入的數(shù)據(jù)累加到B1單元（工作表代碼）點擊在指定顏色區(qū)域選擇單元時添加/取消（工作表代碼）點擊在指定區(qū)域選擇單元時添加/取消（工作表代碼）點擊雙擊指定單元，循環(huán)錄入文本（工作表代碼）點擊單元區(qū)域引用（工作表代碼）點擊在指定區(qū)域選擇單元時數(shù)值加1（工作表代碼）點擊混合文本的編號點擊指定區(qū)域單元雙擊數(shù)據(jù)累加（工作表代碼）點擊選擇單元區(qū)域觸發(fā)事件（工作表代碼）點擊當(dāng)修改指定單元內(nèi)容時自動執(zhí)行宏（工作表代碼）點擊

7、被指定單元內(nèi)容限制執(zhí)行宏點擊雙擊單元隱藏該行（工作表代碼）點擊高亮顯示行（工作表代碼）點擊高亮顯示行和列（工作表代碼）點擊為指定工作表設(shè)置滾動范圍（工作簿代碼）點擊在指定單元記錄打印和預(yù)覽次數(shù)（工作簿代碼）點擊自動數(shù)字金額轉(zhuǎn)大寫（工作表代碼）點擊將全部工作表的A1單元作為單擊按鈕（工作簿代碼）點擊鬧鬧鐘鐘到指定時間執(zhí)行宏（工作簿代碼）點擊改變Excel界面標(biāo)題的宏（工作簿代碼）點擊在在指指定定工工作作表表的的指指定定單單元元返返回回光光標(biāo)標(biāo)當(dāng)當(dāng)前前多多選選區(qū)區(qū)地地址址（工工作作簿簿代代碼碼）點擊B B列列錄錄入入數(shù)數(shù)據(jù)據(jù)時時在在A A列列返返回回記記錄錄時時間間（工工作作表表代代碼碼）點擊當(dāng)當(dāng)

8、指指定定區(qū)區(qū)域域修修改改時時在在其其右右側(cè)側(cè)的的2 2個個單單元元返返回回當(dāng)當(dāng)前前日日期期和和時時間間（工工作作表表代代碼碼）點擊指指定定單單元元顯顯示示光光標(biāo)標(biāo)位位置置內(nèi)內(nèi)容容（工工作作表表代代碼碼）點擊每編輯一個單元保存文件點擊指定允許編輯區(qū)域點擊解除允許編輯區(qū)域限制點擊刪除指定行點擊刪除A列為指定內(nèi)容的行點擊刪除A列非數(shù)字單元行點擊有條件刪除當(dāng)前行點擊選選擇擇下下一一行行點擊選選擇擇第第5 5行行開開始始所所有有數(shù)數(shù)據(jù)據(jù)行行點擊選選擇擇光光標(biāo)標(biāo)或或選選區(qū)區(qū)所所在在行行點擊選選擇擇光光標(biāo)標(biāo)或或選選區(qū)區(qū)所所在在列列點擊光光標(biāo)標(biāo)定定位位到到名名稱稱指指定定位位置置點擊選選擇擇名名稱稱定定義義的

9、的數(shù)數(shù)據(jù)據(jù)區(qū)區(qū)點擊選選擇擇到到指指定定列列的的最最后后行行點擊將Sheet1的A列的非空值寫到Sheet2的A列點擊將名稱1的數(shù)據(jù)寫到名稱2點擊單元反選點擊調(diào)調(diào)整整選選中中對對象象中中的的文文字字點擊去去除除指指定定范范圍圍內(nèi)內(nèi)的的對對象象點擊更更新新透透視視表表數(shù)數(shù)據(jù)據(jù)項項點擊將將全全部部工工作作表表名名稱稱寫寫到到A A列列點擊為為當(dāng)當(dāng)前前選選定定的的多多單單元元插插入入指指定定名名稱稱點擊刪刪除除全全部部名名稱稱點擊以以指指定定區(qū)區(qū)域域為為表表目目錄錄補補充充新新表表點擊按按A A列列數(shù)數(shù)據(jù)據(jù)批批量量修修改改表表名名稱稱點擊按按A A列列數(shù)數(shù)據(jù)據(jù)批批量量創(chuàng)創(chuàng)建建新新表表( (控控件件按按

10、鈕鈕代代碼碼) )點擊清除剪貼板點擊批量清除軟回車點擊判斷指定文件是否已經(jīng)打開點擊當(dāng)前文件另存到指定目錄點擊另存指定文件名點擊以本工作表名稱另存文件到當(dāng)前目錄點擊將本工作表單獨另存文件到Excel當(dāng)前默認(rèn)目錄點擊以活動工作表名稱另存文件到Excel當(dāng)前默認(rèn)目錄點擊另存所有工作表為工作簿點擊以指定單元內(nèi)容為新文件名另存文件點擊以當(dāng)前日期為新文件名另存文件點擊以當(dāng)前日期和時間為新文件名另存文件點擊另另存存本本表表為為TXTTXT文文件件點擊引用指定位置單元內(nèi)容為部分文件名另存文件點擊將A列數(shù)據(jù)排序到D列點擊將將指指定定范范圍圍的的數(shù)數(shù)據(jù)據(jù)排排列列到到D D列列點擊光標(biāo)移動點擊光標(biāo)所在行上移一行點擊

11、加數(shù)據(jù)有效限制點擊取消數(shù)據(jù)有效限制點擊重排窗口點擊按當(dāng)前單元文本選擇打開指定文件單元點擊回車光標(biāo)向右點擊回車光標(biāo)向下點擊保護(hù)工作表時取消選定鎖定單元點擊保存并退出Excel點擊隱藏/顯示指定列空值行點擊深度隱藏指定工作表點擊隱藏指定工作表點擊隱藏當(dāng)前工作表點擊返回當(dāng)前工作表名稱點擊獲取上一次所進(jìn)入工作簿的工作表名稱點擊按光標(biāo)選定顏色隱藏本列其他顏色行點擊打開工作簿自動隱藏錄入表以外的其他表點擊除最左邊工作表外深度隱藏所有表點擊關(guān)閉文件時自動隱藏指定工作表(ThisWorkbook)點擊打開文件時提示指定工作表是保護(hù)狀態(tài)(ThisWorkbook)點擊插入10行點擊全選固定范圍內(nèi)小于0的單元點擊

12、全選選定范圍內(nèi)小于0的單元點擊固固定定區(qū)區(qū)域域單單元元分分類類變變色色點擊A列半角內(nèi)容變紅點擊單元格錄入數(shù)據(jù)時運行宏的代碼點擊焦點到A列時運行宏的代碼點擊根據(jù)B列最后數(shù)據(jù)快速合并A列單元格的控件代碼點擊在F1單元顯示光標(biāo)位置批注內(nèi)容的代碼點擊顯示光標(biāo)所在單元的批注的代碼點擊使使單單元元內(nèi)內(nèi)容容保保持持不不變變的的工工作作表表代代碼碼點擊有有條條件件執(zhí)執(zhí)行行宏宏點擊有有條條件件執(zhí)執(zhí)行行不不同同的的宏宏點擊提提示示確確定定或或取取消消執(zhí)執(zhí)行行宏宏點擊提提示示開開始始和和結(jié)結(jié)束束點擊拷貝指定表不相鄰多列數(shù)據(jù)到新位置點擊選擇2至4行點擊在當(dāng)前選區(qū)有條件替換數(shù)值為文本點擊自動篩選全部顯示指定列點擊自動篩

13、選第2列值為A的行點擊取消自動篩選()點擊全部顯示指定表的自動篩選點擊強行合并單元點擊設(shè)置單元區(qū)域格式點擊在所有工作表的A1單元返回順序號點擊根根據(jù)據(jù)A1A1單單元元內(nèi)內(nèi)容容返返回回C1C1數(shù)數(shù)值值點擊根根據(jù)據(jù)A1A1內(nèi)內(nèi)容容選選擇擇執(zhí)執(zhí)行行宏宏點擊刪除A列空行點擊在在A A列列產(chǎn)產(chǎn)生生不不重重復(fù)復(fù)隨隨機機數(shù)數(shù)點擊將將A A列列數(shù)數(shù)據(jù)據(jù)隨隨機機排排列列到到F F列列點擊取取消消選選定定區(qū)區(qū)域域的的公公式式只只保保留留值值( (假假空空轉(zhuǎn)轉(zhuǎn)真真空空) )點擊處理導(dǎo)入的顯示為科學(xué)計數(shù)法樣式的身份證號點擊返回指定單元的行高和列寬點擊指定行高和列寬點擊指定單元的行高和列寬與A1單元相同點擊填公式點擊建

14、立當(dāng)前工作表的副本為001表點擊在第一個表前插入多工作表點擊清除A列再插入序號點擊反方向文本(自定義函數(shù))點擊指定選擇單元區(qū)域彈出消息點擊將B列數(shù)據(jù)添加超鏈接到K列點擊刪除B列數(shù)據(jù)的超鏈接點擊分離臨時表A列數(shù)據(jù)的文本和超鏈接并整理到數(shù)據(jù)庫表點擊分離臨時表A列數(shù)據(jù)的文本和超鏈接并會同其他數(shù)據(jù)整理到數(shù)據(jù)庫表點擊返返回回A A列列最最后后一一個個非非空空單單元元行行號號點擊返回表中第一個非空單元地址(行搜索)點擊返回表中各非空單元區(qū)域地址(行搜索)點擊返回第一個數(shù)值行號點擊返返回回第第1 1行行最最右右邊邊非非空空單單元元的的列列號號點擊返返回回連連續(xù)續(xù)數(shù)數(shù)值值單單元元的的數(shù)數(shù)量量點擊統(tǒng)統(tǒng)計計指指定

15、定范范圍圍和和內(nèi)內(nèi)容容的的單單元元數(shù)數(shù)量量點擊統(tǒng)統(tǒng)計計不不同同顏顏色色的的數(shù)數(shù)字字的的和和（自自定定義義函函數(shù)數(shù)）點擊返回非空單元數(shù)量點擊返回A列非空單元數(shù)量點擊返回圓周率點擊定義指定單元內(nèi)容為頁眉/頁腳點擊提示并全部清除當(dāng)前選擇區(qū)域點擊全部清除當(dāng)前選擇區(qū)域點擊清除指定區(qū)域數(shù)值點擊對指定工作表執(zhí)行取消隱藏打印隱藏工作表點擊打開文件時執(zhí)行指定宏(工作簿代碼)點擊關(guān)閉文件時執(zhí)行指定宏(工作簿代碼)點擊彈出提示A1單元內(nèi)容點擊延延時時1515秒秒執(zhí)執(zhí)行行重重排排窗窗口口宏宏點擊撤消工作表保護(hù)并取消密碼點擊重算指定表點擊將第5行移到窗口的最上面點擊對第一張工作表的指定區(qū)域進(jìn)行排序點擊顯示指定工作表的打

16、印預(yù)覽點擊用單元格A1的內(nèi)容作為文件名另存當(dāng)前工作簿點擊禁用/啟用保存和另存的代碼點擊在A和B列返回當(dāng)前選區(qū)的名稱和公式點擊朗讀朗讀A列,按ESC鍵中止點擊朗讀固定語句，請按ESC鍵終止點擊在M和N列的14行以下選擇單元時顯示調(diào)用日歷控件（工作表代碼）點擊添加自定義序列點擊彈出打印對話框點擊返回總頁碼點擊合并各工作表內(nèi)容點擊合并指定目錄中所有文件中相同格式工作表的數(shù)據(jù)點擊隱藏指定工作表的指定列點擊把a列不重復(fù)值取到e列點擊當(dāng)前選區(qū)的行列數(shù)點擊單元格錄入1位字符就跳轉(zhuǎn)(工作表代碼)點擊當(dāng)指定日期（每月10日）打開文件執(zhí)行宏點擊提示并清空單元區(qū)域點擊返回光標(biāo)所在行號點擊VBA返回公式結(jié)果點擊按照當(dāng)

17、前行A列的圖片名稱插入圖片到H列點擊當(dāng)前行下插入1行點擊取消指定行或列的隱藏點擊復(fù)制單元格所在行點擊復(fù)制單元格所在列點擊新建一個工作表點擊新建一個工作簿點擊選擇多表為工作組點擊在當(dāng)前工作組各表中分別執(zhí)行指定宏點擊復(fù)制當(dāng)前工作簿的報表到臨時工作簿點擊刪除指定文件點擊合并A1至C1的內(nèi)容寫到D15單元的批注中點擊自動重算點擊手動重算點擊類類別別工作表宏管理其他篩選宏管理宏管理宏管理宏管理宏管理宏管理宏管理控件控件控件打印打印打印對象查找和引用查找和引用查找和引用查找和引用查找和引用查找和引用對象批注批注批注單元賦值單元賦值單元賦值單元賦值單元賦值單元賦值單元賦值單元賦值單元賦值單元賦值單元賦值單元

18、賦值工作表工作表工作表工作表工作表文件管理工作表工作表單元賦值單元賦值工作表密碼密碼密碼單元賦值單元賦值格式批注單元賦值定位定位定位定位定位定位單元賦值單元賦值單元賦值定位單元賦值單元賦值單元賦值單元賦值單元賦值單元賦值單元賦值單元賦值事件事件事件事件其他其他定位打印單元賦值對象事件其他信息事件單元賦值單元賦值事件編輯編輯行列操作行列操作行列操作行列操作定位定位定位定位名稱名稱定位單元賦值名稱定位格式對象數(shù)據(jù)單元賦值名稱名稱工作表工作表工作表其他其他事件文件管理文件管理文件管理文件管理文件管理文件管理文件管理文件管理文件管理文件管理文件管理單元賦值單元賦值定位行列操作數(shù)據(jù)數(shù)據(jù)窗口定位定位定位工

19、作表文件管理行列操作工作表工作表工作表工作表工作表格式工作表工作表工作表工作表行列操作定位定位格式格式事件事件數(shù)據(jù)其他其他單元賦值事件事件事件事件單元賦值定位事件篩選篩選篩選篩選格式格式單元賦值事件事件行列操作單元賦值單元賦值單元賦值其他信息格式格式單元賦值工作表工作表單元賦值自定義函數(shù)信息超鏈接超鏈接超鏈接超鏈接查找和引用查找和引用查找和引用查找和引用查找和引用查找和引用查找和引用查找和引用查找和引用查找和引用其他打印單元賦值單元賦值單元賦值打印事件事件信息事件工作表工作表窗口單元賦值打印文件管理文件管理單元賦值語音語音對象其他打印打印事件事件工作表查找和引用查找和引用工作表事件事件其他其他

20、圖片工作表工作表其他其他工作表工作簿工作表事件工作簿工作簿批注其他其他11/92宏宏文文件件集集 打打開開全全部部隱隱藏藏工工作作表表返回Sub 打開全部隱藏工作表()Dim i As IntegerFor i = 1 To Sheets.Count Sheets(i).Visible = TrueNext iEnd Sub 循循環(huán)環(huán)宏宏返回Sub 循環(huán)()AAA = Range(C2) Dim i As Long Dim times As Long times = AAA times代表循環(huán)次數(shù)，執(zhí)行前把times賦值即可(不可小于1，不可大于2147483647) For i = 1 To

21、 timesCall 過濾一行 If Range(完成標(biāo)志) = 完成 Then Exit For 如果名為完成標(biāo)志的命名單元的值等于完成,則退出循環(huán),如果一開始就等于完成,則只執(zhí)行一次循環(huán)就退出 If Sheets(傳送參數(shù)).Range(A & i).Text = 完成 Then Exit For 如果某列出現(xiàn)完成內(nèi)容則退出循環(huán) Next iEnd Sub 錄錄制制宏宏時時調(diào)調(diào)用用“停停止止錄錄制制”工工具具欄欄返回Sub 錄制宏時調(diào)用停止錄制工具欄()Application.CommandBars(Stop Recording).Visible = TrueEnd Sub 高高級級篩篩選

22、選5 5列列不不重重復(fù)復(fù)數(shù)數(shù)據(jù)據(jù)至至指指定定表表返回Sub 高級篩選5列不重復(fù)數(shù)據(jù)至Sheet2() Sheets(Sheet2).Range(A1:E65536) = 清除Sheet2的A:D列 Range(A1:E65536).AdvancedFilter Action:=xlFilterCopy, CopyToRange:=Sheet2.Range( _12/92 A1), Unique:=True Sheet2.Columns(A:E).Sort Key1:=Sheet2.Range(A2), Order1:=xlAscending, Header:=xlGuess, _ OrderC

23、ustom:=1, MatchCase:=False, Orientation:=xlTopToBottom, SortMethod _ :=xlPinYinEnd Sub 雙雙擊擊單單元元執(zhí)執(zhí)行行宏宏( (工工作作表表代代碼碼) )返回Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean) If Range($A$1) = 關(guān)閉 Then Exit Sub Select Case Target.Address Case $A$4 Call 宏1 Cancel = True Case $

24、B$4 Call 宏2 Cancel = True Case $C$4 Call 宏3 Cancel = True Case $E$4 Call 宏4 Cancel = True End SelectEnd Sub 雙雙擊擊指指定定區(qū)區(qū)域域單單元元執(zhí)執(zhí)行行宏宏( (工工作作表表代代碼碼) )返回Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean) IfIf Range($A$1)Range($A$1) = = 關(guān)關(guān)閉閉 ThenThen ExitExit SubSub If Not A

25、pplication.Intersect(Target, Range(A4:A9, C4:C9) Is Nothing Then Call 打打開開隱隱藏藏表表End Sub 進(jìn)進(jìn)入入單單元元執(zhí)執(zhí)行行宏宏( (工工作作表表代代碼碼) )返回Private Sub Worksheet_SelectionChange(ByVal Target As Range) 以單元格進(jìn)入代替按鈕對象調(diào)用宏13/92 If Range($A$1) = 關(guān)閉 Then Exit Sub Select Case Target.Address Case $A$5 單元地址(Target.Address),或命名單元名

26、字(Target.Name) Call 宏1 Case $B$5 Call 宏2 Case $C$5 Call 宏3 End SelectEnd Sub 進(jìn)進(jìn)入入指指定定區(qū)區(qū)域域單單元元執(zhí)執(zhí)行行宏宏( (工工作作表表代代碼碼) )返回Private Sub Worksheet_SelectionChange(ByVal Target As Range) IfIf Range($A$1)Range($A$1) = = 關(guān)關(guān)閉閉 ThenThen ExitExit SubSub If Not Application.Intersect(Target, Range(A4:A9,C4:C9) Is N

27、othing Then Call 打打開開隱隱藏藏表表End Sub 在在多多個個宏宏中中依依次次循循環(huán)環(huán)執(zhí)執(zhí)行行一一個個（控控件件按按鈕鈕代代碼碼）返回Private Sub CommandButton1 1_Click()Static RunMacro As IntegerSelect Case RunMacroCase 0 宏1 RunMacro = 1Case 1 宏2 RunMacro = 2Case 2 宏3 RunMacro = 0End SelectEnd Sub 在在兩兩個個宏宏中中依依次次循循環(huán)環(huán)執(zhí)執(zhí)行行一一個個并并相相應(yīng)應(yīng)修修改改按按鈕鈕名名稱稱（控控件件按按鈕鈕代代碼碼

28、）返回14/92Private Sub CommandButton1 1_Click()With CommandButton1 1 If .Caption = 保護(hù)工作表 Then Call 保護(hù)工作表 .Caption = 取消工作表保護(hù) Exit Sub End If If .Caption = 取消工作表保護(hù) Then Call 取消工作表保護(hù) .Caption = 保護(hù)工作表 Exit Sub End IfEnd WithEnd Sub 在在三三個個宏宏中中依依次次循循環(huán)環(huán)執(zhí)執(zhí)行行一一個個并并相相應(yīng)應(yīng)修修改改按按鈕鈕名名稱稱（控控件件按按鈕鈕代代碼碼）返回Option Explicit

29、Private Sub CommandButton1 1_Click()With CommandButton1 1 If .Caption = 宏1 Then Call 宏1 .Caption = 宏2 Exit Sub End If If .Caption = 宏2 Then Call 宏2 .Caption = 宏3 Exit Sub End If If .Caption = 宏3 Then Call 宏3 .Caption = 宏1 Exit Sub End If15/92End WithEnd Sub 根根據(jù)據(jù)A1A1單單元元文文本本隱隱藏藏/ /顯顯示示按按鈕鈕（控控件件按按鈕鈕代代

30、碼碼）返回Private Sub Worksheet_SelectionChange(ByVal Target As Range)If Range(A1) 2 ThenCommandButton1.Visible = 1ElseCommandButton1.Visible = 0End IfEnd SubPrivate Sub CommandButton1_Click()重排窗口End Sub 當(dāng)當(dāng)前前單單元元返返回回按按鈕鈕名名稱稱（控控件件按按鈕鈕代代碼碼）返回Private Sub CommandButton1_Click()ActiveCell = CommandButton1.Cap

31、tionEnd Sub 當(dāng)當(dāng)前前單單元元內(nèi)內(nèi)容容返返回回到到按按鈕鈕名名稱稱（控控件件按按鈕鈕代代碼碼）返回Private Sub CommandButton1_Click()CommandButton1.Caption = ActiveCellEnd Sub 奇奇偶偶頁頁分分別別打打印印返回Sub 奇偶頁分別打印() Dim i%, Ps% Ps = ExecuteExcel4Macro(GET.DOCUMENT(50) 總頁數(shù) MsgBox 現(xiàn)在打印奇數(shù)頁,按確定開始. For i = 1 To Ps Step 2 ActiveSheet.PrintOut from:=i, To:=i16

32、/92 Next i MsgBox 現(xiàn)在打印偶數(shù)頁,按確定開始. For i = 2 To Ps Step 2 ActiveSheet.PrintOut from:=i, To:=i Next iEnd Sub 自自動動打打印印多多工工作作表表第第一一頁頁返回Sub 自動打印多工作表第一頁()Dim sh As IntegerDim xDim yDim syDim syzx = InputBox(請輸入起始工作表名字:)sy = InputBox(請輸入結(jié)束工作表名字:)y = Sheets(x).Indexsyz = Sheets(sy).Index For sh = y To syz Sh

33、eets(sh).Select Sheets(sh).PrintOut from:=1, To:=1 Next shEnd Sub 查查找找A A列列文文本本循循環(huán)環(huán)插插入入分分頁頁符符返回SubSub 循循環(huán)環(huán)插插入入分分頁頁符符()() SelectionSelection = = Workbooks(Workbooks(臨臨時時表表).Sheets().Sheets(表表2).Range(A1)2).Range(A1) 調(diào)調(diào)用用指指定定地地址址內(nèi)內(nèi)容容 DimDim i i AsAs LongLong DimDim timestimes AsAs LongLong timestimes

34、= = Application.WorksheetFunction.CountIf(Sheet1.Range(a:a),Application.WorksheetFunction.CountIf(Sheet1.Range(a:a), 分分頁頁) timestimes代代表表循循環(huán)環(huán)次次數(shù)數(shù)，執(zhí)執(zhí)行行前前把把timestimes賦賦值值即即可可( (不不可可小小于于1 1，不不可可大大于于2147483647)2147483647) ForFor i i = = 1 1 ToTo timestimesCallCall 插插入入分分頁頁符符17/92 NextNext i iEndEnd SubS

35、ubSubSub 插插入入分分頁頁符符()() Cells.Find(What:=Cells.Find(What:=分分頁頁, After:=ActiveCell,After:=ActiveCell, LookIn:=xlValues,LookIn:=xlValues, LookAt:=LookAt:= _ _ xlPart,xlPart, SearchOrder:=xlByRows,SearchOrder:=xlByRows, SearchDirection:=xlNext,SearchDirection:=xlNext, MatchCase:=False)MatchCase:=False)

36、 _ _ .Activate.Activate ActiveWindow.SelectedSheets.HPageBreaks.AddActiveWindow.SelectedSheets.HPageBreaks.Add Before:=ActiveCellBefore:=ActiveCellEndEnd SubSubSub 取消原分頁() Cells.Select ActiveSheet.ResetAllPageBreaksEnd Sub 將將A A列列最最后后數(shù)數(shù)據(jù)據(jù)行行以以上上的的所所有有B B列列圖圖片片大大小小調(diào)調(diào)整整為為所所在在單單元元大大小小返回Sub 將A列最后數(shù)據(jù)行以上的所有

37、B列圖片大小調(diào)整為所在單元大小() Dim Pic As Picture, i& i = A65536.End(xlUp).Row For Each Pic In Sheet1.Pictures If Not Application.Intersect(Pic.TopLeftCell, Range(B1:B & i) Is Nothing Then Pic.Top = Pic.TopLeftCell.Top Pic.Left = Pic.TopLeftCell.Left Pic.Height = Pic.TopLeftCell.Height Pic.Width = Pic.TopLeftCel

38、l.Width End If NextEnd Sub 返返回回光光標(biāo)標(biāo)所所在在行行數(shù)數(shù)返回Sub 返回光標(biāo)所在行數(shù)()x = ActiveCell.Row Range(A1) = xEnd Sub18/92 在在A1A1返返回回當(dāng)當(dāng)前前選選中中單單元元格格數(shù)數(shù)量量返回Sub 在A1返回當(dāng)前選中單元格數(shù)量()A1 = Selection.CountEnd Sub 返返回回當(dāng)當(dāng)前前工工作作簿簿中中工工作作表表數(shù)數(shù)量量返回Sub 返回當(dāng)前工作簿中工作表數(shù)量()t = Application.Sheets.CountMsgBox tEnd Sub 返返回回光光標(biāo)標(biāo)選選擇擇區(qū)區(qū)域域的的行行數(shù)數(shù)和和列列數(shù)

39、數(shù)返回Sub 返回光標(biāo)選擇區(qū)域的行數(shù)和列數(shù)()x = Selection.Rows.County = Selection.Columns.CountRange(A1) = xRange(A2) = yEnd Sub 工工作作表表中中包包含含數(shù)數(shù)據(jù)據(jù)的的最最大大行行數(shù)數(shù)返回Sub 包含數(shù)據(jù)的最大行數(shù)()n = Cells.Find(*, , , , 1, 2).RowMsgBox nEnd Sub 返返回回A A列列數(shù)數(shù)據(jù)據(jù)的的最最大大行行數(shù)數(shù)返回Sub 返回A列數(shù)據(jù)的最大行數(shù)()n = Range(a65536).End(xlUp).RowRange(B1) = nEnd Sub 將將所所選選

40、區(qū)區(qū)域域文文本本插插入入新新建建文文本本框框返回Sub 將所選區(qū)域文本插入新建文本框()19/92For Each rag In Selectionn = n & rag.Value & Chr(10)Next ActiveSheet.Shapes.AddTextbox(msoTextOrientationHorizontal, ActiveCell.Left + ActiveCell.Width, ActiveCell.Top + ActiveCell.Height, 250#, 100).Select Selection.Characters.Text = 問題： & n With Sel

41、ection.Characters(Start:=1, Length:=3).Font .Name = 黑體 .FontStyle = 常規(guī) .Size = 12 End WithEnd Sub 批批量量插插入入地地址址批批注注返回Sub 批量插入地址批注()On Error Resume NextDim r As RangeIf Selection.Cells.Count 0 ThenFor Each r In Selectionr.Comment.Deleter.AddCommentr.Comment.Visible = Falser.Comment.Text Text:=本單元格： &

42、r.Address & of & Selection.AddressNextEnd IfEnd Sub 批批量量插插入入統(tǒng)統(tǒng)一一批批注注返回Sub 批量插入統(tǒng)一批注()Dim r As Range, msg As Stringmsg = InputBox(請輸入欲批量插入的批注, 提示, 隨便輸點什么吧)If Selection.Cells.Count 0 ThenFor Each r In Selectionr.AddCommentr.Comment.Visible = False20/92r.Comment.Text Text:=msgNextEnd IfEnd Sub 以以A1A1單單元

43、元內(nèi)內(nèi)容容批批量量插插入入批批注注返回Sub 以A1單元內(nèi)容批量插入批注()Dim r As RangeIf Selection.Cells.Count 0 ThenFor Each r In Selectionr.AddCommentr.Comment.Visible = Falser.Comment.Text Text:=a1.TextNextEnd IfEnd Sub 不不連連續(xù)續(xù)區(qū)區(qū)域域插插入入當(dāng)當(dāng)前前文文件件名名和和表表名名及及地地址址返回Sub 批量插入當(dāng)前文件名和表名及地址() For Each mycell In Selection mycell.FormulaR1C1 = +

44、 ActiveWorkbook.Name + + ActiveSheet.Name + ! + mycell.Address NextEnd Sub 不不連連續(xù)續(xù)區(qū)區(qū)域域錄錄入入當(dāng)當(dāng)前前單單元元地地址址返回Sub 區(qū)域錄入當(dāng)前單元地址() For Each mycell In Selection mycell.FormulaR1C1 = mycell.Address NextEnd Sub 連連續(xù)續(xù)區(qū)區(qū)域域錄錄入入當(dāng)當(dāng)前前單單元元地地址址返回Sub 連續(xù)區(qū)域錄入當(dāng)前單元地址() Selection = =ADDRESS(ROW(),COLUMN(),4,1)21/92 Selection.Co

45、py Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _ :=False, Transpose:=FalseEnd Sub 返返回回當(dāng)當(dāng)前前單單元元地地址址返回Sub 返回當(dāng)前單元地址()d = ActiveCell.AddressA1 = dEnd Sub 不不連連續(xù)續(xù)區(qū)區(qū)域域錄錄入入當(dāng)當(dāng)前前日日期期返回Sub 區(qū)域錄入當(dāng)前日期() Selection.FormulaR1C1 = Format(Now(), yyyy-m-d) End Sub 不不連連續(xù)續(xù)區(qū)區(qū)域域錄錄入入當(dāng)當(dāng)前前數(shù)數(shù)字字日日

46、期期返回Sub 區(qū)域錄入當(dāng)前數(shù)字日期() Selection.FormulaR1C1 = Format(Now(), yyyymmdd)End Sub 不不連連續(xù)續(xù)區(qū)區(qū)域域錄錄入入當(dāng)當(dāng)前前日日期期和和時時間間返回Sub 區(qū)域錄入當(dāng)前日期和時間() Selection.FormulaR1C1 = Format(Now(), yyyy-m-d h:mm:ss) End Sub 不不連連續(xù)續(xù)區(qū)區(qū)域域錄錄入入對對勾勾返回Sub 批量錄入對勾()Selection.FormulaR1C1 = End Sub 不不連連續(xù)續(xù)區(qū)區(qū)域域錄錄入入當(dāng)當(dāng)前前文文件件名名返回Sub 批量錄入當(dāng)前文件名()Selecti

47、on.FormulaR1C1 = ThisWorkbook.Name22/92End Sub 不不連連續(xù)續(xù)區(qū)區(qū)域域添添加加文文本本返回Sub 批量添加文本()Dim s As RangeFor Each s In Selections = s & 文本內(nèi)容NextEnd Sub 不不連連續(xù)續(xù)區(qū)區(qū)域域插插入入文文本本返回Sub 批量插入文本()Dim s As RangeFor Each s In Selections = 文本內(nèi)容 & sNextEnd Sub 從從指指定定位位置置向向下下同同時時錄錄入入多多單單元元指指定定內(nèi)內(nèi)容容返回Sub 從指定位置向下同時錄入多單元指定內(nèi)容()Dim a

48、rrarr = Array(1, 2, 13, 25, 46, 12, 0, 20)B2.Resize(8, 1) = Application.WorksheetFunction.Transpose(arr)End Sub 按按aaaa工工作作表表A A列列的的內(nèi)內(nèi)容容排排列列工工作作表表標(biāo)標(biāo)簽簽順順序序返回Sub 按aa工作表A列的內(nèi)容排列工作表標(biāo)簽順序() Dim I%, str1$ I = 1 Sheets(aa).Select Do While Cells(I, 1).Value str1 = Trim(Cells(I, 1).Value) Sheets(str1).Select23/

49、92 Sheets(str1).Move after:=Sheets(I) I = I + 1 Sheets(aa).Select LoopEnd Sub 以以A1A1單單元元文文本本作作表表名名插插入入工工作作表表返回Sub 以A1單元文本作表名插入工作表() Dim nm As String nm = a1 Sheets.Add ActiveSheet.Name = nmEnd Sub 刪刪除除全全部部未未選選定定工工作作表表返回Sub 刪除全部未選定工作表() Dim sht As Worksheet, n As Integer, iFlag As Boolean Dim ShtName

50、() As String n = ActiveWindow.SelectedSheets.Count ReDim ShtName(1 To n) n = 1 For Each sht In ActiveWindow.SelectedSheets ShtName(n) = sht.Name n = n + 1 Next Application.DisplayAlerts = False For Each sht In Sheets iFlag = False For i = 1 To n - 1 If ShtName(i) = sht.Name Then iFlag = True Exit Fo

51、r End If24/92 Next If Not iFlag Then sht.Delete Next Application.DisplayAlerts = TrueEnd Sub 工工作作表表標(biāo)標(biāo)簽簽排排序序返回Sub 工作表標(biāo)簽排序()Dim i As Long, j As Long, nums As Long, msg As Longmsg = MsgBox(工作表按升序排列請選 是Y. & vbCrLf & vbCrLf & 工作表按降序排列請選 否N, vbYesNoCancel, 工作表排序)If msg = vbCancel Then Exit Subnums = Sheet

52、s.Count If msg = vbYes Then Sort ascending For i = 1 To nums For j = i To nums If UCase(Sheets(j).Name) UCase(Sheets(i).Name) Then Sheets(j).Move Before:=Sheets(i) End If Next j Next i End IfEnd Sub25/92 定定義義指指定定工工作作表表標(biāo)標(biāo)簽簽顏顏色色返回Sub 定義指定工作表標(biāo)簽顏色()Sheets(Sheet1).Tab.ColorIndex = 46End Sub 在在目目錄錄表表建建立立本

53、本工工作作簿簿中中各各表表鏈鏈接接目目錄錄返回Sub 在目錄表建立本工作簿中各表鏈接目錄()Dim s%, Rng As Range On Error Resume Next Sheets(目錄).Activate If Err = 0 Then Sheets(目錄).UsedRange.Delete Else Sheets.Add ActiveSheet.Name = 目錄 End If For i = 1 To Sheets.Count If Sheets(i).Name 目錄 Then s = s + 1 Set Rng = Sheets(目錄).Cells(s - 1) Mod 20)

54、 + 1, (s - 1) 20 + 1 + 1) Rng = Format(s, 0) & . & Sheets(i).Name ActiveSheet.Hyperlinks.Add Rng, # & Sheets(i).Name & !A1, ScreenTip:=Sheets(i).Name End If Next Sheets(目錄).Range(b:iv).EntireColumn.ColumnWidth = 20End Sub 建建立立工工作作表表文文本本目目錄錄返回Sub 建立工作表文本目錄()Sheets.Add before:=Sheets(1)Sheets(1).Name

55、= 目錄26/92For i = 2 To Sheets.CountCells(i - 1, 1) = Sheets(i).NameSheets(1).Hyperlinks.Add Cells(i - 1, 1), # & Sheets(i).Name & !A1 添加超鏈接NextEnd Sub 查查另另一一文文件件的的全全部部表表名名返回Sub 查另一文件的全部表名()On Error Resume NextDim i%Dim sh As WorksheetApplication.ScreenUpdating = FalseWorkbooks.Open Filename:=ThisWork

56、book.Path & 2.xlsWindows(Windows(1.xls1.xls).Activate).Activate 當(dāng)前文件名稱Sheets(Sheets(Sheet1Sheet1).Select).Select 當(dāng)前表名稱i = 1 1 將表名稱返回到第1行For Each sh In Workbooks(2.xls).WorksheetsCells(i, 1 1) = sh.Name 將表名稱返回到第1列i = i + 1 1 返回每個表名稱向下移動1行Next shWindows(2.xls).CloseWindows(2.xls).Close 關(guān)閉對象文件Applicati

57、on.ScreenUpdatingApplication.ScreenUpdating = = TrueTrueEnd Sub 當(dāng)當(dāng)前前單單元元錄錄入入計計算算機機名名返回Sub 當(dāng)前單元錄入計算機名() Selection = Environ(COMPUTERNAME) Selection = Workbooks(臨時表).Sheets(表2).Range(A1) 調(diào)用指定地址內(nèi)容 End Sub 當(dāng)當(dāng)前前單單元元錄錄入入計計算算機機用用戶戶名名返回27/92 Sub 當(dāng)前單元錄入計算機用戶名() Selection = Environ(Username) Selection = Workb

58、ooks(臨時表).Sheets(表2).Range(A1) 調(diào)用指定地址內(nèi)容 End Sub 解解除除全全部部工工作作表表保保護(hù)護(hù)返回Sub 解除全部工作表保護(hù)()Dim n As Integer For n = 1 To Sheets.Count Sheets(n).Unprotect Next nEnd Sub 為為指指定定工工作作表表加加指指定定密密碼碼保保護(hù)護(hù)表表返回Sub 為指定工作表加指定密碼保護(hù)表()Sheet10.Protect Password:=123End Sub 在在有有密密碼碼的的工工作作表表執(zhí)執(zhí)行行代代碼碼返回Sub 在有密碼的工作表執(zhí)行代碼()Sheets(1)

59、.Unprotect Password:=123 假定表名為“1”，密碼為“123” 打開工作表Range(C:C).SpecialCells(xlCellTypeBlanks).EntireRow.Hidden = True 隱藏C列空值行Sheets(1).Protect Password:=123 重新用密碼保護(hù)工作表End Sub 執(zhí)執(zhí)行行前前需需要要驗驗證證密密碼碼的的宏宏( (控控件件按按鈕鈕代代碼碼) )返回PrivatePrivate SubSub CommandButton1_Click()CommandButton1_Click()IfIf InputBox(InputBo

60、x(請請輸輸入入密密碼碼：) 123123 ThenThen 密密碼碼是是123123MsgBoxMsgBox 密密碼碼錯錯誤誤, ,按按確確定定退退出出!,!, 64,64, 提提示示 ExitExit SubSubEndEnd IfIfCells(1,Cells(1, 1)1) = = 1010EndEnd SubSub28/92SubSub 執(zhí)執(zhí)行行前前需需要要驗驗證證密密碼碼的的宏宏()()IfIf InputBox(InputBox(請請輸輸入入您您的的使使用用權(quán)權(quán)限限:,:, 系系統(tǒng)統(tǒng)提提示示) = = 123123 ThenThen重重排排窗窗口口 要要執(zhí)執(zhí)行行的的宏宏代代碼碼或