以下文字资料是由(历史认知网 www.lishirenzhi.com)小编为大家搜集整理后发布的内容,让我们赶快一起来看一下吧!
摘要:加之后,相应的F列就不写入求和公式啊?如果是这样的要求,只有通过宏代码来实现了.Subcleara()Dimii=1DoWhileCells(i,1)""IfLeft="
加之后,相应的 F列就不写入求和公式啊?如果是这样的要求,只有通过宏代码来实现了. Sub cleara() Dim i i = 1 Do While Cells(i, 1) <> "" If Left(Cells(i, 1), 1) = "<" Then Cells(i, 6) = "=sum(b" & i & ":e" & i & ")" Else Cells(i, 6) = "=sum(a" & i & ":e" & i & ")" End If i = i + 1 Loop End Sub
特别申明:本文内容来源网络,版权归原作者所有,如有侵权请立即与我们联系(devmax@126.com),我们将及时处理。