시간 값 간의 차이를 계산하기 위해 작성한 공식이 필터링된 값에만 적용되도록 하려면 어떻게 해야 합니까?

Question

두 개의 데이터 열이 있습니다.

Member   Time
A        09/24/2015 09:48:36
A        09/24/2015 09:47:40
A        09/24/2015 10:11:06
A        09/24/2015 10:08:47
B        09/24/2015 10:28:45
B        09/24/2015 10:29:49
B        09/24/2015 10:30:12
B        09/24/2015 10:30:46
A        09/24/2015 10:33:59
A        09/24/2015 10:31:27

이 데이터가 에서 시작한다고 가정해 보겠습니다 A1.B11

열 값이 오름차순으로 정렬된 후 연속된 시간 값을 빼는 수식이 있습니다.

=(TIMEVALUE(RIGHT(B2, 8))-TIMEVALUE(RIGHT(B1, 8)))*24*60*60

이 공식은 초 단위로 차이를 구하는 데 적합합니다. 그러나 멤버 A에 대해서만 차이를 얻기 위해 필터링하면 수식에서 숨겨진 행도 고려하므로 잘못된 출력이 제공됩니다.

이 수식을 보이는 행에만 적용하는 가장 좋은 방법은 무엇입니까?

다른 웹사이트에서 제공한 답변을 바탕으로 다음과 같이 함수를 작성해 보았습니다.

저는 VBA를 처음 접해서 코드를 작성할 수 없습니다.

Function MyDiff (MyRange As Range) As Integer

Dim c As Range
For Each c In MyRange
    If (c.Value = 1) And (c.EntireRow.Hidden = False) Then
        Worksheets("Sheet1").Range("B2").value - Range("B1").value, 
    End If
Next c

End Function

이것은 처음 두 셀의 차이를 계산하지만 전체 열에 대해서는 얻을 수 없습니다. 시연을 위해 셀을 B1그대로 사용했습니다 B2. 제가 제공한 예제 데이터의 경우 Timevalue원래 질문에 표시된 대로 두 값을 빼야 합니다 .