Application.ScreenUpdating = False
   .......
Application.ScreenUpdating = true    ' 冻结屏幕以加快程序运行
 
ActiveCell.CurrentRegion.Select                              '选择与活动单元格相连的区域

range("a2:a20").NumberFormatLocal = "00-00"                          '区域的格式化

ActiveSheet.Cells.SpecialCells(xlCellTypeLastCell).Row          '已用区域的最末行

ActiveSheet.Copy Before:=Sheets(1)                          '复制活动工作表到第一张工作表之前

range("a2:a20").FormulaHidden = True                           '工作表处于保护状态时隐藏部分单元格公式

 
FileDateTime("E:/My Documents/33.xls")
或
FileDateTime(thisworkbook.FullName)     '文件被创建或最后修改后的日期和时间

FileLen(thisworkbook.FullName) / 1024
或
FileLen("E:/My Documents/temp/33.xls") / 1024     '文件的长度(大小),单位是 KB
Application.AskToUpdateLinks = False                     '不询问是否更新链接,并自动更新链接
ActiveSheet.Hyperlinks.Delete                                   '删除活动工作表超链接
ActiveWorkbook.SaveLinkValues = False                        '不保存活动工作簿的外部链接值
ActiveSheet.PageSetup.CenterFooter = Range("k2").Value          '打印时设置自定义页脚
ActiveSheet.PageSetup.Orientation = xlLandscape                 '设置为横向打印
ActiveSheet.PageSetup.Orientation = xlPortrait                  '设置为纵向打印
Application.WindowState = xlMinimized    '最小化窗口
    Application.WindowState = xlNormal    '最大化窗口
Sub 删除工作表()
    Application.DisplayAlerts = False
    Sheet1.Delete
    Application.DisplayAlerts = True
End Sub
有删除就有添加
Sub 添加工作表()
    For i = 1 To 5
        Worksheets.Add.Name = i
    Next
End Sub
[A1:A20].AdvancedFilter xlFilterCopy, [B1], Unique:=True          '可去掉重复数据
[A2:C32].Replace What:="F", Replacement:="G"                     '指定范围内的查找与替换
Activesheet.AutoFilterMode = false                              '取消自动筛选
执行以下语句可有效缩小工作簿的大小，执行前请先看清每条语句的作用:

ActiveSheet.UsedRange.ClearComments             '清除活动工作表已使用范围所有批注
ActiveSheet.UsedRange.ClearFormats             '清除活动工作表已使用范围所有格式
ActiveSheet.UsedRange.Validation.Delete         '取消活动工作表已使用范围的数据有效性
ActiveSheet.Hyperlinks.Delete                   '删除活动工作表超链接
ActiveSheet.DrawingObjects.Delete               '删除活动工作表已使用范围的所有对象
ActiveSheet.UsedRange = ActiveSheet.UsedRange.Value      '取消活动工作表已使用范围的公式并保留值
还有：
Sub x()
   Dim myRange As String
   myRange = ActiveSheet.UsedRange.Address     '去除活动工作表无数据的行列
End Sub

ActiveWorkbook.FullName                          '当前窗口文件名与路径
Application.AltStartupPath= "E:/My/MyStart"      '替补启动目录路径
Application.AutoRecover.Path                     '返回/设置Excel存储"自动恢复"临时文件的完整路径
Application.DefaultFilePath                      '选项>常规中的默认工作目录
Application.Evaluate("=INFO(""directory"")")     '默认工作目录
Application.LibraryPath                          '返回库文件夹的路径
Application.NetworkTemplatesPath                 '返回保存模板的网络路径
Application.Path                                 '返回应用程序完整路径
Application.RecentFiles.Item(1).Path             '返回最近使用的某个文件路径,Item(1)=第一个文件
Application.StartupPath                          'Excel启动文件夹的路径
Application.TemplatesPath                        '返回模板所存储的本地路径
Application.UserLibraryPath                      '返回用户计算机上 COM 加载宏的安装路径
Debug.Print Application.PathSeparator            '路径分隔符 "/"
CurDir                                           '默认工作目录
Excel.Parent.DefaultFilePath                     '默认工作目录
ThisWorkbook.Path                                '返回当前工作薄的路径
dim mm(2,10)
Range("a1:b10")=mm              '可以将二维数组赋值给Range
Application.Dialogs(XLdialogsaveas).show     显示保存对话框
[SIZE=1]Sub x()
   Dim myRange As String
   myRange = ActiveSheet.UsedRange.Address     '去除活动工作表无数据的行列
End Sub
这相当于把新的已使用区域赋值给变量，效果等同于手工删除多余的列或行后立即保存;

来一个函数的
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
'右边单元格反向显示活动单元格文本
If ActiveCell.Column < 256 Then ActiveCell.Offset(0, 1) = StrReverse(ActiveCell)
End Sub

想不到UsedRange还可以这样用，又学到了！有了这个就可以轻松取得当前Sheet的最末行和最末列号了：
Sub test()
Dim myRange As String
myRange = ActiveSheet.UsedRange.Address
Debug.Print "LastRow=" & Cells.SpecialCells(xlCellTypeLastCell).Row
Debug.Print "LastColumn=" & Cells.SpecialCells(xlCellTypeLastCell).Column
myRange = ""
End Sub
跟一帖：如上下相邻单元格数据相同则删除一个
Sub Yjue()
   Dim myCell As Range, NCell As Range        '定义
   Set myCell = ActiveSheet.Range("b2")       '把对象ActiveSheet.Range("b2")赋给变量myCell
   Do While Not IsEmpty(myCell)               '条件为True时执行
      Set NCell = myCell.Offset(1, 0)         '把对象myCell的下一个单元格赋给变量NCell
      If NCell.Value = myCell.Value Then      '如上下相邻单元格数据相同,则望下执行
          myCell.Delete                       '删除myCell
      End If                                  '结束条件语句
      Set myCell = NCell                      '把变量NCell赋给变量myCell,等于在循环中把原myCell下移了一格
   Loop
End Sub