oobird

1. Sub yy()
   
2. Dim arr(1 To 6, 0), rng, i%, h%
   
3. rng = [c5:d12]
   
4. For i = 1 To UBound(rng)
   
5. h = Application.Match(Hour(rng(i, 1)), Array(0, 4, 8, 12, 16, 20))
   
6. If h > 0 Then
   
7. arr(h, 0) = arr(h, 0) + rng(i, 2)
   
8. End If
   
9. Next
   
10. [g5].Resize(6, 1) = arr
    
11. End Sub

½Æ»s¥N½X

oobird

Dim arr(1 To 11, 0), rng, i%, h%

rng = [c5:d12]

For i = 1 To UBound(rng)

h = Application.Match(Hour(rng(i, 1)), Array(0, 4, 8, 12, 16, 20))

If h > 0 Then

arr(h * 2 - 1, 0) = arr(h * 2 - 1, 0) + rng(i, 2)

End If

Next

[g5].Resize(11, 1) = arr