【正文】 65：刪除包含固定文本單元的行或列Sub 刪除包含固定文本單元的行或列() Do (what:=哈哈).Activate 39。刪除行39。 39。刪除列 Loop Until (what:=哈哈) Is NothingEnd Sub 72：在指定顏色區(qū)域選擇單元時添加/取消√（工作表代碼）Private Sub Worksheet_SelectionChange(ByVal Target As Range) Dim myrg As Range For Each myrg In Target If = 37 Then myrg = IIf(myrg √, √, ) NextEnd Sub 73：在指定區(qū)域選擇單元時添加/取消√（工作表代碼）Private Sub Worksheet_SelectionChange(ByVal Target As Range) Dim Rng As Range If = 15 Then If Not (Target, Range(D6:D20)) Is Nothing Then For Each Rng In Selection With Rng If .Value = Then .Value = √ Else .Value = End If End With Next End If End IfEnd Sub 74：雙擊指定單元，循環(huán)錄入文本（工作表代碼）Private Sub Worksheet_BeforeDoubleClick(ByVal T As Range, Cancel As Boolean)If $A$1 Then Exit SubCancel = TrueT = IIf(T = 好, 中, IIf(T = 中, 差, 好))End Sub 75：雙擊指定單元，循環(huán)錄入文本（工作表代碼）Dim nums As BytePrivate Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)If = $A$1 Thennums = nums Mod 3 + 1Target = Mid(上中下, nums, 1)(1, 0).SelectEnd IfEnd Sub 76：單元區(qū)域引用（工作表代碼）Private Sub Worksheet_Activate()(A1:B3).Value = (A1:B3).ValueEnd Sub 77：在指定區(qū)域選擇單元時數(shù)值加1（工作表代碼）Private Sub Worksheet_SelectionChange(ByVal Target As Range) If Not ([a1:e10], Target) Is Nothing Then Target = Val(Target) + 1 End IfEnd Sub 259個常用宏excelhome(3) 20090815 14:12:58 78：混合文本的編號Sub 混合文本的編號()Worksheets(1).Range(B2).Value = 北京 amp。 ((Mid(Worksheets(1).Range(B2), 3, 100)) + 1)End Sub 79：指定區(qū)域單元雙擊數(shù)據(jù)累加（工作表代碼）Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)If Not ([A1:Y100], Target) Is Nothing Thenoldvalue = Val()inputvalue = InputBox(請輸入數(shù)量,按ENTER鍵確認!, 數(shù)值累加器) = oldvalue + inputvalueEnd IfEnd Sub 80：選擇單元區(qū)域觸發(fā)事件（工作表代碼）Private Sub Worksheet_SelectionChange(ByVal Target As Range)If = $A$1:$B$2 Then MsgBox 你選擇了$A$1:$B$2單元End IfEnd Sub 81：當修改指定單元內(nèi)容時自動執(zhí)行宏（工作表代碼）Private Sub Worksheet_Change(ByVal Target As Range)If Not (Target, [B3:B4]) Is Nothing Then重排窗口End IfEnd Sub 82：被指定單元內(nèi)容限制執(zhí)行宏Sub 被指定單元限制執(zhí)行宏()If Range($A$1) = 關(guān)閉 Then Exit Sub窗口End Sub 83：雙擊單元隱藏該行（工作表代碼）Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)Rows().Hidden = TrueEnd Sub 84：高亮顯示行（工作表代碼）Private Sub Worksheet_SelectionChange(ByVal Target As Range) = 2Rows(1:2). = 40 39。保持1至2行的顏色推薦39,22,40,Rows(). = 35 39。高亮推薦顏色35,20,24,34,37,40,15End Sub 85：高亮顯示行和列（工作表代碼）Private Sub Worksheet_SelectionChange(ByVal Target As Range) = xlNoneRows(). = 34Columns(). = 34End Sub 86：為指定工作表設(shè)置滾動范圍（工作簿代碼）Private Sub Workbook_SheetSelectionChange(ByVal Sh As Object, ByVal Target As Range) = A1:M30End Sub 87：在指定單元記錄打印和預覽次數(shù)（工作簿代碼）Private Sub Workbook_BeforePrint(Cancel As Boolean)Range(A1) = 1 + Range(A1)End Sub 88：自動數(shù)字金額轉(zhuǎn)大寫（工作表代碼）Private Sub Worksheet_Change(ByVal M As Range)On Error Resume Nexty = Int(Round(100 * Abs(M)) / 100) j = Round(100 * Abs(M) + ) y * 100 f = (j / 10 Int(j / 10)) * 10 A = IIf(y 1, , (y, [DBNum2]) amp。 元) b = IIf(j , (Int(j / 10), [DBNum2]) amp。 角, IIf(y 1, , IIf(f 1, 零, ))) c = IIf(f 1, 整, (Round(f, 0), [DBNum2]) amp。 分) M = IIf(Abs(M) , , IIf(M 0, 負 amp。 A amp。 b amp。 c, A amp。 b amp。 c))End Sub 89：將所有工作表的A1單元作為單擊按鈕（工作簿代碼）Private Sub Workbook_SheetSelectionChange(ByVal Sh As Object, ByVal Target As Range)If = $A$1 Then Call 宏名End IfEnd Sub 90：鬧鐘——到指定時間執(zhí)行宏（工作簿代碼）Private Sub Workbook_Open() (11:45:00), 提示1 39。宏名字 (12:00:00), 提示2 39。宏名字End Sub 91：改變Excel界面標題的宏（工作簿代碼）Private Sub Workbook_Open() = 春節(jié)快樂End Sub 92：在指定工作表的指定單元返回光標當前多選區(qū)地址（工作簿代碼）Private Sub Workbook_SheetSelectionChange(ByVal Sh As Object, ByVal Target As Range)Worksheets(表2).Range(A1) = (0, 0)End Sub 93：B列錄入數(shù)據(jù)時在A列返回記錄時間（工作表代碼）Public Sub Worksheet_Change(ByVal Target As Range)If = 2 Then(, 1) = NowEnd IfEnd Sub 94：當指定區(qū)域修改時在其右側(cè)的2個單元返回當前日期和時間（工作表代碼）Public Sub Worksheet_Change(ByVal Target As Range)If Not (Target, [A1:A1000]) Is Nothing ThenIf = 1 Then(, 1) = Date(, 2) = TimeEnd IfEnd IfEnd SubPublic Sub Worksheet_Change(ByVal Target As Range)If Not (Target, [A1:A1000]) Is Nothing ThenIf = 1 Then(, 1) = Format(Now(), yyyymmdd)(, 2) = Format(Now(), h:mm:ss)End IfEnd IfEnd Sub 95：指定單元顯示光標位置內(nèi)容（工作表代碼）Private Sub Worksheet_SelectionChange(ByVal T As Range)Sheets(1).Range(A1) = SelectionEnd Sub 96：每編輯一個單元保存文件Private Sub Worksheet_Change(ByVal Target As Range)End Sub 97：指定允許編輯區(qū)域Sub 指定允許編輯區(qū)域() = B8:G15End Sub 98：解除允許編輯區(qū)域限制Sub 解除允許編輯區(qū)域限制() = End Sub 99：刪除指定行Sub 刪除指定行()Workbooks(臨時表).Sheets(表2).Range(5:5).DeleteEnd Sub 100：刪除A列為指定內(nèi)容的行Sub 刪除A列為指定內(nèi)容的行()Dim a, b As Integera = Sheet1.[a65536].End(xlUp).Row For b = a To 2 Step 1 If Cells(b, 1).Value = 刪除 Then Rows(b).Delete End If NextEnd Sub 101：刪除A列非數(shù)字單元行Sub 刪除A列非數(shù)字單元行()i = [a65536].End(xlUp).RowRange(A1:A amp。 i).SpecialCells(xlCellTypeConstants, 2).End Sub 102：有條件刪除當前行Sub 有條件刪除當前行()If [A1] = 2 Or [B1] = 刪除 Then Shift:=xlUpEnd IfEnd Sub 103：選擇下一行Sub 選擇下一行() (1, 0).Rows(1:1).End Sub 104：選擇第5行開始所有數(shù)據(jù)行Sub 選擇第5行開始所有數(shù)據(jù)行A() Dim i% i = (*, SearchOrder:=xlByRows, LookIn:=x