【正文】 合并指定目錄中所有文件中相同格式工作表的數(shù)據(jù) 39。光標(biāo)移至A1。忘掉復(fù)制的內(nèi)容。取消單元格被全選狀態(tài)。 x).SelectSheets(1).SelectRange(A amp。 個(gè)表的內(nèi)容，請(qǐng)把其它表復(fù)制到新工作薄里再用此程序合并！Else:Rows(st amp。 CStr(st 1)).Select Sheets(1).Select Range(A1).Select y = st 1End IfFor i = 2 To Sheets(i).Select For v = 1 To 256 zd = Cells(65535, v).End(xlUp).Row If zd x Then x = zd End If Next vIf y + x st + 1 + sp 65536 ThenMsgBox 內(nèi)容太多，僅合并前 amp。, , , False If 0 Then , , , True End IfEnd Sub 231：在M和N列的14行以下選擇單元時(shí)顯示調(diào)用日歷控件（工作表代碼）Private Sub Calendar1_Click() With Calendar1 ActiveCell = .Value .Visible = False End WithEnd SubPrivate Sub Worksheet_SelectionChange(ByVal Target As Range) If = 13 And 3 Or = 14 And 3 Then If IsDate(Target) Then = Target Else End If = 20 = + = + Cells(, 1).Left Else = 0 End IfEnd Sub39。 i).Address, $, ), :, 到) On Error Resume Next With mySpk .Speak _, , , False For Each tRng In Range(A1:A amp。 Range(A1).ValueEnd Sub 220：延時(shí)15秒執(zhí)行重排窗口宏Sub 延時(shí)15秒重排窗口() Now + TimeValue(00:00:15), 重排窗口End Sub 221：撤消工作表保護(hù)并取消密碼Sub 撤消工作表保護(hù)并取消密碼() Password:=123456End Sub 222：重算指定表Sub 重算指定表()Worksheets(傳送參數(shù)).CalculateWorksheets(目錄).CalculateEnd Sub 223：將第5行移到窗口的最上面Worksheets(Sheet1).Activate = 5 224：對(duì)第一張工作表的指定區(qū)域進(jìn)行排序Sub 對(duì)第一張工作表的指定區(qū)域進(jìn)行排序() With Worksheets(1) .Range(a2:a100).Sort Key1:=.Range(a1) End WithEnd Sub 225：顯示指定工作表的打印預(yù)覽Sub 顯示指定工作表的打印預(yù)覽()Worksheets(Sheet1).PrintPreviewEnd Sub 226：用單元格A1的內(nèi)容作為文件名另存當(dāng)前工作簿Sub b() Range(A1) + .xlsEnd Sub 227：[禁用/啟用]保存和另存的代碼Sub 禁用保存()(File).Controls(4).Enabled = False(File).Controls(5).Enabled = FalseEnd SubSub 啟用保存()(File).Controls(4).Enabled = True(File).Controls(5).Enabled = TrueEnd Sub 228：在A和B列返回當(dāng)前選區(qū)的名稱和公式Sub 在A和B列返回當(dāng)前選區(qū)的名稱和公式()[a1].ListNamesEnd Sub 229：朗讀朗讀A列,按ESC鍵中止Sub 朗讀A列() Dim myStr$, iamp。要執(zhí)行的宏名稱End Sub 218：關(guān)閉文件時(shí)執(zhí)行指定宏(工作簿代碼)Private Sub Workbook_BeforeClose(Cancel As Boolean)重排窗口 39。 Range(A1:B10).Clear 39。 .CenterFooter = BBB 39。統(tǒng)計(jì)藍(lán)色,輸入：=COLOR(B2:B8,5) 209：返回非空單元數(shù)量Sub 返回非空單元數(shù)量() x = (Range(A1:Z65536)) MsgBox xEnd Sub 210：返回A列非空單元數(shù)量Sub 返回A列非空單元數(shù)量() y = (Columns(1)) MsgBox yEnd Sub 211：返回圓周率πSub Macro1() Range(A1) = ()End Sub 212：定義指定單元內(nèi)容為頁(yè)眉/頁(yè)腳Sub 定義指定單元內(nèi)容為頁(yè)眉/頁(yè)腳() BBB = Sheets(表1).Range(A2) With .CenterHeader = BBB 39。 ee End If Next Next = Right(, Len() 1) zxc = Split(, ,) For sd = 0 To UBound(zxc) 1 For wee = zxc(sd) + 1 To zxc(sd + 1) 1 Worksheets(數(shù)據(jù)庫(kù)).Cells(sdf + ier + 1, uu + 4) = Cells(wee, 1) uu = uu + 1 Next sdf = sdf + 1 uu = 0 Next For Each hhh In Worksheets(臨時(shí)).Range(A6:A6000).Hyperlinks Worksheets(數(shù)據(jù)庫(kù)).Cells(ier + 1, 2) = Worksheets(數(shù)據(jù)庫(kù)).Cells(ier + 1, 3) = Range(Worksheets(數(shù)據(jù)庫(kù)).Cells(ier + 1, 3), Worksheets(數(shù)據(jù)庫(kù)).Cells(ier + 1, 3)). Anchor:=Worksheets(數(shù)據(jù)庫(kù)).Cells(ier + 1, 3), Address:=Worksheets(數(shù)據(jù)庫(kù)).Cells(ier + 1, 3) ier = ier + 1 NextEnd Sub 201：返回A列最后一個(gè)非空單元行號(hào)Sub 返回A列最后非空單元行號(hào)() MsgBox (A65536).End(xlUp).RowEnd Sub 202：返回表中第一個(gè)非空單元地址(行搜索)Sub 返回表中第一個(gè)非空單元地址() MsgBox (*).AddressEnd Sub 203：返回表中各非空單元區(qū)域地址(行搜索)Sub 返回表中各非空單元區(qū)域地址() MsgBox (2).AddressEnd Sub 204：返回第一個(gè)數(shù)值行號(hào)Sub 返回第一個(gè)數(shù)值行號(hào)() MsgBox [b:b].SpecialCells(2, 1).RowEnd Sub 205：返回第1行最右邊非空單元的列號(hào)Sub 返回第1行最右邊非空單元的列號(hào)() X = [IV1].End(xlToLeft).Column MsgBox XEnd Sub 206：返回連續(xù)數(shù)值單元的數(shù)量Sub 返回連續(xù)數(shù)值單元的數(shù)量() MsgBox [b:b].SpecialCells(2, 1).End Sub 207：統(tǒng)計(jì)指定范圍和內(nèi)容的單元數(shù)量Sub 統(tǒng)計(jì)指定范圍和內(nèi)容的單元數(shù)量() x = (Range(A3:B100), 總計(jì)) Range(B1) = xEnd Sub 208：統(tǒng)計(jì)不同顏色的數(shù)字的和（自定義函數(shù)）Public Function COLOR(ByVal X As Range, Y)For Each I In X If = Y Then COLOR = COLOR + I End IfNext IEnd Function39。 [B65536].End(xlUp).Row) (). NextEnd Sub 199：分離臨時(shí)表A列數(shù)據(jù)的文本和超鏈接并整理到數(shù)據(jù)庫(kù)表Sub 分離A列中的超鏈接到指定表的B和C列() i = Worksheets(數(shù)據(jù)庫(kù)).Range(b60000).End(xlUp).Row For Each h In Worksheets(臨時(shí)).Hyperlinks Worksheets(數(shù)據(jù)庫(kù)).Cells(i + 1, 2) = Worksheets(數(shù)據(jù)庫(kù)).Cells(i + 1, 3) = Range(Worksheets(數(shù)據(jù)庫(kù)).Cells(i + 1, 3), Worksheets(數(shù)據(jù)庫(kù)).Cells(i + 1, 3)). Anchor:=Cells(i + 1, 3), Address:=Cells(i + 1, 3) i = i + 1 NextEnd Sub 200：分離臨時(shí)表A列數(shù)據(jù)的文本和超鏈接并會(huì)同其他數(shù)據(jù)整理到數(shù)據(jù)庫(kù)表Sub 分離A列數(shù)據(jù)的文本和超鏈接并會(huì)同其他數(shù)據(jù)整理到指定表() ier = Worksheets(數(shù)據(jù)庫(kù)).Range(b60000).End(xlUp).Row For ee = 5 To Range(a60000).End(xlUp).Row For Each hh In Worksheets(臨時(shí)).Hyperlinks If = Cells(ee, 1) And Cells(ee, 1) Then = amp。 K amp。 ).Address, ScreenTip:=點(diǎn)擊轉(zhuǎn)到: amp。 i) = i NextEnd Sub 195：反方向文本(自定義函數(shù))Function zhyz(zhyz1 As Range) zhyz = StrReverse(zhyz1)End Function 將代碼復(fù)制到模塊后單元公式：=zhyz(單元格) 196：指定選擇單元區(qū)域彈出消息Private Sub Worksheet_SelectionChange(ByVal Target As Range) If = $A$1:$C$3 Then MsgBox 你選擇對(duì)了 End IfEnd Sub 197：將B列數(shù)據(jù)添加超鏈接到K列Sub 將B列數(shù)據(jù)添加超鏈接到K列() For Each Rng In Range(B3:B amp。Columns(1).ClearContents 39。指定行高End Sub 191：填公式Sub 填公式() Range(C2:C12).Value = =SUM(A2:B2)End Sub 192：建立當(dāng)前工作表的副本為001表Sub 建立當(dāng)前工作表的副本為001表() Before:=Sheets(1) = 001End Sub 193：在第一個(gè)表前插入多工作表Sub 在第一個(gè)表前插入多工作表() Sheets(1).Select For I = 1 To 50 = 新表 amp。指定行高End Sub 191：指定單元的行高和