sheets("sheet3").[k5] = "=SUM(E5:J5)" 'dsmch所写 精 英 excel
sheets("sheet3").[k5].AutoFill sheets("sheet3").[k5:k53]
With sheets("sheet3").[k5:k53]
.Value = .Value
.Replace 0, "", lookat:=xlWhole '把0替换为空格,单元格匹配
.SpecialCells(xlCellTypeBlanks).EntireRow.Hidden = True '定位空值,空值所在的行隐藏
End With
End Sub