excel - Excel VBA 式が空になるまでコピー

Question

Excel にエクスポートできるシステムからデータを取得しますが、書式設定は「画像のよう」であり、通常のスプレッドシート形式ではありません (つまり、ヘッダー、時間、およびデータの各セットの上部にある結合されたセル内の名前; を繰り返します)。ケースごとに) したがって、並べ替えと小計は不可能です。もちろん、すべてテキストです。

すべてのマージを解除し、空白の列 (C) を挿入しました。列 B の一部のセルにはアクティビティ時間 (つまり、「Act: 00:15」) があり、他のセルには見出しが繰り返されています。

この式を C 列「=mid(B#,7,5)」に配置して時間値を「整理」する必要がありますが、B 列に「Act:」という単語が表示される場合に限ります。列 C (レポートごとに長さが異なります) の下の数式をコピーまたは繰り返し、各ケースの小計と総計を計算します。

Do 
    Cells.Find(What:="act:", After:=ActiveCell, LookIn:=xlFormulas, _
            LookAt :=xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext, _
            MatchCase:= False, SearchFormat:=False).Activate 

    ActiveCell.Offset(0, 1).Activate 
    ActiveCell.FormulaR1C1 = "=MID(act,7,5)" 
    ActiveCell.Offset(1, -1).Activate 
Loop While ActiveCell = "Email me"