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 = 2ElseIf j <> 2 And arr(i, j) <> "" And arr(i, j - 1) = "" Thenkey1 = jEnd IfIf j = UBound(arr, 2) And arr(i, j) <> "" Then '结束时间判断key2 = jElseIf j = UBound(arr, 2) And arr(i, j) = "" ThenExit ForElseIf arr(i, j + 1) = "" And arr(i, j) <> "" Thenkey2 = jEnd IfIf key1 <> 0 And key2 <> 0 Then '结果输出If brr(i - 1) = "" Then- 1) = Split(arr(1, key1), "-")(0) & "-" & Split(arr(1, key2), "-")(1)Else- 1) = brr(i - 1) & "," & Split(arr(1, key1), "-")(0) & "-" & Split(arr(1, key2), "-")(1)End Ifkey1 = 0: key2 = 0End IfNext jNext i1) = Application.Transpose(brr)End Sub
好了，本期教程就到这里啦，走过路过的点个关注分享一下吧，谢谢啦
