Excel VBA复制公式直到空

我从一个可以导出到Excel的系统中获取数据，但是格式是“类似于图片的”，而不是以正常的电子表格forms（即：在每个标题头，时间和数据顶部的合并单元格中的名称;然后重复为每个案件），所以sorting和小计是不可能的。 而且，当然，全是文字。

我把所有的东西都拿出来，插入一个空白栏（C）。 B列中的某些单元格有活动时间（即：“行动：00：15”），其他人则有重复的标题。

我需要在C列“= mid（B＃，7,5）”中放置这个公式，以便“sorting”时间值，但只有在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"