Excel 连接时间的公式

Question

为给您带来的不便深表歉意，我们更新了输入和预期结果所需的屏幕截图。 谢谢！

Answer 1

这可能会帮助您：

VBA 方法：

Option Explicit

Sub TEST()

    Dim LastRowA As Long, LastRowD As Long, i As Long, j As Long
    Dim Name As String, StartingTime As String, EndingTime As String

    j = 0

    With ThisWorkbook.Worksheets("Sheet1")

        LastRowA = .Cells(.Rows.Count, "A").End(xlUp).Row

        For i = 1 To LastRowA

            If i >= j Then

                StartingTime = .Range("A" & i).Value
                Name = .Range("B" & i).Value

                For j = i + 1 To LastRowA + 1

                    If .Range("B" & j).Value <> Name Then

                        EndingTime = .Range("A" & j - 1).Value
                        LastRowD = .Cells(.Rows.Count, "D").End(xlUp).Row

                        .Range("D" & LastRowD + 1).Value = Name

                        If StartingTime = EndingTime Then
                            .Range("E" & LastRowD + 1).Value = StartingTime
                        Else
                            .Range("E" & LastRowD + 1).Value = StartingTime & "-" & EndingTime
                        End If

                        Exit For

                    End If

                Next j

            End If

        Next i

    End With

End Sub

结果：

Excel 方法：

导入并下拉以下公式

单元格 D2 中的公式： =LOOKUP(2,1/(COUNTIF($D$1:D1,$B$1:$B$8)=0),$B$1:$B$8)

单元格 E2 中的公式： =IF(INDEX($A$1:$A$8,MATCH(D2,$B$1:$B$8,0))= LOOKUP(2,1/($B$1:$B$8=D2),$A$1:$A$8),LOOKUP(2,1/($B$1:$B$8=D2),$A$1:$A$8),INDEX($A$1:$A$8,MATCH(D2,$B$1:$B$8,0)) & "-" & LOOKUP(2,1/($B$1:$B$8=D2),$A$1:$A$8))

结果：