vba小程序

Private Sub bt_start_Click()

For j = 2 To 99 '寻找每天
   For i = 1 To 38  '寻找每个sheet里面的数据
       If i = 1 Then
          Sheet1.Cells(j + 3, 1).Value = Sheets(j).Name ' "110318"
       End If
       If i <> 1 Then
          Sheet1.Cells(j + 3, i) = Application.VLookup(Sheet1.Cells(1, 3), Sheets(j).Range(Sheets(j).Cells(2, 1), Sheets(j).Cells(91, 39)), i, 0)
       End If
    Next
Next
End Sub

这里面有vba调用excel的系统方法，以及怎么数组调用sheet