利用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