练习-求设备开启连续时间段

Sub test()Dim arr, brrarr = Range("A1").CurrentRegion.ValueReDim brr(1 To 9)For i = 2 To UBound(arr)    For j = 2 To UBound(arr, 2)            If j = 2 And arr(i, j) <> "" Then           '开始时间判断                key1 = 2            ElseIf j <> 2 And arr(i, j) <> "" And arr(i, j - 1) = "" Then                key1 = j            End If                        If j = UBound(arr, 2) And arr(i, j) <> "" Then '结束时间判断                key2 = j            ElseIf j = UBound(arr, 2) And arr(i, j) = "" Then                Exit For            ElseIf arr(i, j + 1) = "" And arr(i, j) <> "" Then                key2 = j            End If                        If key1 <> 0 And key2 <> 0 Then    '结果输出                If brr(i - 1) = "" Then                    brr(i - 1) = Split(arr(1, key1), "-")(0) & "-" & Split(arr(1, key2), "-")(1)                Else                    brr(i - 1) = brr(i - 1) & "," & Split(arr(1, key1), "-")(0) & "-" & Split(arr(1, key2), "-")(1)                End If                key1 = 0: key2 = 0            End If    Next jNext iRange("H15").Resize(UBound(brr), 1) = Application.Transpose(brr)End Sub