103¡¢Ñ¡ÔñÏÂÒ»ÐÐ

Sub Ñ¡ÔñÏÂÒ»ÐÐ()

ActiveCell.Offset(1, 0).Rows(\End Sub

104¡¢Ñ¡ÔñµÚ5ÐпªÊ¼ËùÓÐÊý¾ÝÐÐ

Sub Ñ¡ÔñµÚ5ÐпªÊ¼ËùÓÐÊý¾ÝÐÐA() Dim i% i = Cells.Find(\SearchOrder:=xlByRows, SearchDirection:=xlPrevious).EntireRow.Row Rows(\End Sub

Sub Ñ¡ÔñµÚ5ÐпªÊ¼ËùÓÐÊý¾ÝÐÐB()

Rows(\End Sub

105¡¢Ñ¡Ôñ¹â±ê»òÑ¡ÇøËùÔÚÐÐ

Sub Ñ¡Ôñ¹â±ê»òÑ¡ÇøËùÔÚÐÐ() Selection.EntireRow.Select End Sub

106¡¢Ñ¡Ôñ¹â±ê»òÑ¡ÇøËùÔÚÁÐ

Sub Ñ¡Ôñ¹â±ê»òÑ¡ÇøËùÔÚÁÐ() Selection.EntireColumn.Select End Sub

107¡¢¹â±ê¶¨Î»µ½Ãû³ÆÖ¸¶¨Î»ÖÃ

Sub ¶¨Î»()

Application.Goto Range(Evaluate(\Ãû³Æ\End Sub

108¡¢Ñ¡ÔñÃû³Æ¶¨ÒåµÄÊý¾ÝÇø

Sub Ñ¡ÔñÃû³Æ¶¨ÒåµÄÊý¾ÝÇø()

[Êý¾ÝÇø].Select '²åÈëÃû³ÆҪʹÓÃINDIRECTº¯Êý 'Range(\Êý¾ÝÇø\ »òÕß

LookIn:=xlValues,

'Sheet1.Range(\Êý¾ÝÇø\»òÕß End Sub

109¡¢Ñ¡Ôñµ½Ö¸¶¨ÁеÄ×îºóÐÐ

Sub Ñ¡Ôñµ½Ö¸¶¨ÁеÄ×îºóÐÐ()

Range(\End Sub

110¡¢½«Sheet1µÄAÁеķǿÕֵдµ½Sheet2µÄAÁÐ

Sub ½«Sheet1µÄAÁеķǿÕֵдµ½Sheet2µÄAÁÐ()

Sheet1.Columns(\End Sub

111¡¢½«Ãû³Æ1µÄÊý¾Ýдµ½Ãû³Æ2

Sub Macro2()

Range(\λÖÃ2\λÖÃ1\End Sub

112¡¢µ¥Ôª·´Ñ¡

Sub µ¥Ôª·´Ñ¡()

Application.DisplayAlerts = False Application.ScreenUpdating = False

Dim raddress As String, taddress As String raddress = Selection.Address

taddress = ActiveSheet.UsedRange.Address With Sheets.Add .Range(taddress) = 0 .Range(raddress) = \

raddress = .Range(taddress).SpecialCells(xlCellTypeConstants, 1).Address .Delete End With

ActiveSheet.Range(raddress).Select Application.ScreenUpdating = True End Sub

113¡¢µ÷ÕûÑ¡ÖжÔÏóÖеÄÎÄ×Ö

Sub µ÷ÕûÑ¡ÖжÔÏóÖеÄÎÄ×Ö()

'ÎÄ×Ö¾ÓÖС¢×Ô¶¯µ÷Õû´óС With Selection

.HorizontalAlignment = xlCenter .VerticalAlignment = xlCenter .ReadingOrder = xlContext .Orientation = xlHorizontal .AutoSize = True .AddIndent = False End With End Sub

114¡¢È¥³ýÖ¸¶¨·¶Î§ÄڵĶÔÏó

Sub È¥³ýÖ¸¶¨·¶Î§ÄڵĶÔÏó() Dim p As Shape

Set My = Worksheets(\¹¤×÷±íÃû\ For Each p In My.Shapes

If Not Application.Intersect(p.TopLeftCell, Range(\·¶Î§\ Next End Sub

115¡¢¸üÐÂ͸ÊÓ±íÊý¾ÝÏî

Sub DeleteMissingItems2002All()

'·ÀÖ¹Êý¾Ý͸ÊÓ±íÖÐÏÔʾÎÞÓõÄÊý¾ÝÏî 'ÔÚ Excel 2002 »ò¸ü¸ß°æ±¾ÖÐ 'Èç¹ûÎÞÓõÄÊý¾ÝÏîÒѾ­´æÔÚ, 'ÔËÐÐÕâ¸öºê¿ÉÒÔ¸üРDim pt As PivotTable Dim ws As Worksheet

For Each ws In ActiveWorkbook.Worksheets For Each pt In ws.PivotTables

pt.PivotCache.MissingItemsLimit = xlMissingItemsNone Next pt Next ws End Sub

116¡¢½«È«²¿¹¤×÷±íÃû³Æдµ½AÁÐ

Sub ½«È«²¿±íÃû³Æдµ½AÁÐ() k = 1

For Each Sht In Sheets

Cells(k + 1, 1) = Sht.Name 'Ö¸¶¨Ð´ÈëµÄÐкÍÁÐ

k = k + 1 Next End Sub

117¡¢Îªµ±Ç°Ñ¡¶¨µÄ¶àµ¥Ôª²åÈëÖ¸¶¨Ãû³Æ

Sub Ϊµ±Ç°Ñ¡¶¨µÄ¶àµ¥Ôª²åÈëÖ¸¶¨Ãû³Æ() Selection.Name = \ÁÙʱ\

ActiveWorkbook.Names.Add Name:=\ÁÙʱ\ '»òÕß»»ÓÃÕâÐдúÂëÒ²¿ÉÒÔ End Sub

118¡¢É¾³ýÈ«²¿Ãû³Æ

Sub ɾ³ýÈ«²¿Ãû³Æ() On Error Resume Next Dim l As Integer

l = ActiveWorkbook.Names.Count For i = l To 1 Step -1

ActiveWorkbook.Names(i).Delete Next End Sub

119¡¢ÒÔÖ¸¶¨ÇøÓòΪ±íĿ¼²¹³äбí

Sub ÒÔÖ¸¶¨ÇøÓòΪ±íĿ¼²¹³äбí() Dim dic As Object, sh As Worksheet Dim arr, item

arr = Range(\

Set dic = CreateObject(\ For Each sh In ThisWorkbook.Worksheets dic.Add sh.Name, \ Next

For Each item In arr

If item <> \ With ThisWorkbook.Worksheets.Add .Name = item End With End If Next

Set dic = Nothing End Sub