VBA创build一个matrix和双循环

我在一个文件夹中有很多Excel文件，并且每个文件夹都有（H：H），其中包含00:00到23:59之间的某个小时（在H或0000或2359等格式中出现）。 然后，在某个小时内，我们将相同工作表中的一定数量的操作（包含在列A中）关联起来，但时间不是“同质的”，例如，我们可以在工作表1上的H4上具有0012，在工作表上的H4上可以具有0014数字2，这意味着时间不是根据每张表分配相同的方式。

Sheet 1 Sheet 2 0010 ;0004 0017 ;0014 0018 ;0023 0025, ;0045 0025 ;0057 0031 0035 0055 

我正在尝试在另一张纸上创build一个VBAmatrix，这个matrix只能对一个时间段进行总和操作，我基本上希望从00:15到00:59，从01:00到01:59 …matrix与列A中存在的操作次数对应于我的文件夹的每个Excel表格的一段时间（小时）的操作次数。

我试图做的matrix将有以下forms：

  0000-0059 (H1) 0100-0159 (H2) 0200-0259 (H3) 0300-0359 (H4)...... 2300:2359(H24) 1 2 3 4 . . till, "number of files in my folder" 

我有这样的想法，但我意识到问题不是那么简单…

 Sub Dailytraffic() Application.ScreenUpdating = False Dim wB As Workbook Dim SumResult As Double Dim H1, H2, H3, H4, H5, H6, H7, H8, H9, H10, H11, H12, H13, H14, H15, H16, H17, H18, H19, H20, H21, H22, H23, H24 As Double Dim OutPutRange As Range Set FileSystemObj = CreateObject("Scripting.FileSystemObject") Set FolderObj = FileSystemObj.GetFolder("C:\...\") Set OutPutRange = Workbooks("Libro1").Sheets("Hoja1").Range("D4") Set H1RAN = Workbooks("Libro1").Sheets("Hoja1").Range("B1") Set H2RAN = Workbooks("Libro1").Sheets("Hoja1").Range("C1") Set H3RAN = Workbooks("Libro1").Sheets("Hoja1").Range("D1") . . . Set H24RAN = Workbooks("Libro1").Sheets("Hoja1").Range("AA1") Set wB = Workbooks.Open(fileobj.Path) For Each fileobj In FolderObj.Files Dim i As Long For i = 1 To 300 If (0 <= Left(wB.Sheets("Schedule Daily Bank Structure R").Cells(8, 4 + i).Value, 2) < 1) Then H1 = WorksheetFunction.Sum(wB.Sheets("Schedule Daily Bank Structure R").Cells(1, i)) H1RAN.Value = H1 Set H1RAN = H1RAN.Offset(1, 0) For j = 1 To 300 If (1 <= Left(wB.Sheets("Schedule Daily Bank Structure R").Cells(8, 4 + j).Value, 2) < 2) Then H2 = WorksheetFunction.Sum(wB.Sheets("Schedule Daily Bank Structure R").Cells(1, i)) H2RAN.Value = H2 Set H2RAN = H2RAN.Offset(1, 0) End If Next i Next j wB.Save wB.Close Next fileobj End Sub 

我的想法是重复24-2次，但似乎并不奏效。 我有麻烦混合pipe理每个不同时期总结的循环和通过不同的文件的循环…我被阻止在这里。