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"

Excel VBA复制公式直到空

0 个答案: