【转】VB脚本的代码小知识汇总

'**********功能实现Excel中有多少sheet总数**********
Sub summary()
    '定义变量
    Dim count    '统计Excel中Sheet总数变量
   
    For Each sh In ThisWorkbook.Worksheets
            count = count + 1
    Next sh
    MsgBox count   
End Sub

'**********功能实现Excel中有所有Sheet页中位于单元格1行1列的数值**********
Sub summary()
    '定义变量
    Dim cell As String              '输出的单元格数值变量
    Dim Row As Integer              '定义行变量
    Row = 1   
    For Each sh In ThisWorkbook.Worksheets       '当前Excel脚本中默认的方法和对象。
            cell = sh.Cells(Row, 1).Value
            MsgBox cell
    Next sh          
End Sub

'**********功能实现Excel中有对应Sheet1页的处理**********
Sub summary()
    '定义变量
    Dim cell As String              '输出的单元格数值变量
    Dim Row As Integer              '定义行变量
    Row = 5                         '给初始行赋值
   
    While Sheet1.Cells(Row, 3) <> ""    '直接显示当前Excel也，就可以应用对应的名称，例如：Sheet1       
        MsgBox Cells(Row, 3)
        Row = Row + 1       
    Wend      
End Sub