将excel数据放入二维数组

最新推荐文章于 2022-10-22 11:17:14 发布

小码哥学习中

最新推荐文章于 2022-10-22 11:17:14 发布

阅读量2.9k

点赞数 1

分类专栏： VB/VBA 文章标签： vba

本文链接：https://blog.csdn.net/boveysmith/article/details/71122613

版权

VB/VBA 专栏收录该内容

16 篇文章 5 订阅

订阅专栏

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