Sub 数组填充单元格()
     Dim aaa(3, 3)
     Dim temp(0, 2)
      aaa(0, 0) = "姓名"
      aaa(0, 1) = "llll"
      aaa(0, 2) = "jjjj"
      aaa(1, 0) = "性别"
      aaa(1, 1) = "男"
      aaa(1, 2) = "女"
      aaa(2, 0) = "序号"
      aaa(2, 1) = "1"
      aaa(2, 2) = "2"
      Range("a1").Resize(1, UBound(aaa, 2)) = aaa(1)
 '    temp(0) = aaa(0)
 '    aaa(0) = aaa(1)
 '    aaa(1) = temp(0)
 End Sub

1.设置focus到第一个sheet的A1单元格。
 
Sub A1Select()
    Dim shcl          As Integer
    For shcl = Sheets.Count To 1 Step -1
        Worksheets(shcl).Activate
        Range("A1").Select
        ActiveWindow.SmallScroll up:=10485
        ActiveWindow.SmallScroll toleft:=100
    Next shcl
    Worksheets(1).Activate
    ActiveWorkbook.Save
End Sub
 
2.文档保存前执行代码，打印出 test，该段代码必须位于ThisWorkBook（sheet）里面。
 
Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As Boolean)
    MsgBox "test"
End Sub
 
3.文件打开时触发操作，打印出test。
 
Private Sub Workbook_Open()
Msg = "test"
MsgBox Msg, vbInformation
End Sub
 
 

不用多介绍…保存代码到VBA编辑器里, ALT+F8运行就好了…
 
Public Sub InitCells()
    
    Dim iSheet As Long
    
    For iSheet = Sheets.Count To 1 Step -1
    
        Sheets(iSheet).Activate
        'ActiveWindow.Zoom = 100
        ActiveWindow.ScrollRow = 1
        ActiveWindow.ScrollColumn = 1
        Sheets(iSheet).Range("A1").Activate
    
    Next iSheet

End Sub

定位单元格
 
一、使用Excel定位对话框
 
在Excel自带功能中，即带有根据特殊格式定位的功能：【开始】→【查找与选择】→【定位条件】。可以根据需要定位查找“标注”、“常量”、“公式”、“空值”、“可见单元格”等。
 
 
 
二、使用VBA的SpecialCells 方法
 
该函数和下面Excel面板功能相通：
 
其使用格式为：expression.SpecialCells(Type, Value)
 
expression 是必需的，返回一个有效的对象。
type也是必需的，在打出括号之后会有提示。
参数 Value 是可选的，如果 Type 参数为 xlCellTypeConstants 或 xlCellTypeFormulas，此参数可用于确定结果中应包含哪几类单元格。将某几个值相加可使此方法返回多种类型的单元格。如果省略将选定所有常量或公式。
 下表是type中可选的参数：
 
 
下表是value可选的参数：
 
 
Sub test()
    Sheet1.Range("a1:c3").SpecialCells(xlCellTypeFormulas).Select '选择有公式的单元格
    Sheet1.Range("a1:c3").SpecialCells(xlCellTypeFormulas, 1).Select '选择带有公式且为数字的单元格
    Sheet1.Range("a1:c3").SpecialCells(xlCellTypeFormulas, 5).Select '选择带有公式且为数字和逻辑值的单元格
End Sub