将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
