[잡담] 베이직 간단하네

Private Sub Latency()

Dim rngUsed As Range, rngFind As Range, intRow As Integer
Set rngUsed = ActiveSheet.UsedRange
Set rngFind = rngUsed.Find(what:="Clock")
If rngFind Is Nothing Then
MsgBox "Log file error!"
Exit Sub
End If
intRow = rngFind.Row + 1
Do
Select Case Cells(intRow, rngFind.Column)
Case "Sensor1W"
Cells(intRow, rngFind.Column + 2) = Cells(intRow, rngFind.Column - 3) - Cells(intRow - 1, rngFind.Column - 3)
If Cells(intRow - 1, rngFind.Column) <> "" Then
Cells(intRow, rngFind.Column + 2) = ""
End If
Case Else
intRow = intRow + 1
End Select
intRow = intRow + 1
Loop While Trim(Cells(intRow, rngFind.Column - 3)) <> ""
End Sub


한시간 검색해보니까 되네