将excel数据放入二维数组

利用for循环将excel内的数据一条一条放入二维数组中

       For dataRow = 3 To 1000  '设置行的范围

           For dataColumn = 1 To 9   '设置列的范围

                arr(dataRow, dataColumn) = Cells(dataRow, dataColumn) '将sheet中数据存放于二维数组中

             Next dataColumn

        Next dataRow

        Sheets("Sheet1").Activate

        dRealRow = 0

        flg = 1

        For dataRow = 3 To 999

            For dataColumn = 1 To 9 '实际的列数

                tTemp = Left(arr(dataRow, 2), InStr(arr(dataRow, 2), " ") - 1) '取值第一个时间内的日期

                tTemp1 = Left(arr(dataRow + 1, 2), InStr(arr(dataRow + 1, 2), " ") - 1) '取值第二个时间内的日期

                 If flg = 1 Then

                 End If

                 If flg <= 9 Then  '第一条数据无条件打印出

                  Cells(2, dataColumn) = arr(3, dataColumn)

                  flg = flg + 1

                 End If

                 If tTemp <> tTemp1 Then

                  Cells(dataRow - dRealRow - 1, 10) = arr(dataRow, 2)

                  Cells(dataRow - dRealRow - 1, 11) = arr(dataRow, 5)

                  Cells(dataRow - dRealRow + 1 + 7, dataColumn) = arr(dataRow + 1, dataColumn)

                 Else

                  dRealRow = dRealRow + 1

                 End If

             Next dataColumn

             dRealRow = dRealRow - 8

        Next dataRow