excel - Excel VBA复制公式直到为空

Question

我从可以导出到 Excel 的系统中获取数据，但格式是“图片式”而不是普通电子表格形式（即：每组标题、时间和数据顶部的合并单元格中的名称；然后重复对于每个案例），所以排序和小计是不可能的。而且，当然，这一切都在文本中。

我取消合并并插入了一个空白列 (C)。B 列中的一些单元格有活动时间（即：“Act: 00:15”），其他单元格有重复的标题。

我需要将此公式放在 C 列“=mid(B#,7,5)”中以“整理”时间值，但前提是“Act：”一词出现在 B 列中。然后，我需要复制或重复 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"