清零零公式和非公式单元格

Question

我有两个vba代码，我想合并为单个进程。请需要某人帮忙。

第一代码：

Sub DelAllZeros() 

    Application.Calculation = xlCalculationManual 

    Dim ws As Worksheet 
    For Each ws In Worksheets 
     On Error Resume Next 

     Set frange = ws.Cells.SpecialCells(xlCellTypeFormulas) 
     On Error GoTo 0 
     If Not frange Is Nothing Then 
      For Each c In frange 
       If c.Value = 0 Then 
        c.Formula = ClearContents 
       End If 
      Next c 
     End If 
     Set frange = Nothing 
    Next ws 

End Sub 

第二代码：

Sub DelAllZeros1() 

Dim ws As Worksheet 

    For Each ws In Worksheets 
     On Error Resume Next 
     ws.Select 
     Cells.Replace What:="0", Replacement:="", LookAt:=xlWhole, SearchOrder _ 
        :=xlByRows, MatchCase:=False, SearchFormat:=False, ReplaceFormat:=False 
    Next ws 

End Sub 

第一代码将从式细胞和秒代码清除 “0” 将清除非公式的单元格。

Answer 1

尝试下面的代码（代码注释里面修改）

Option Explicit 

Sub DelAllZerosCombined() 

    Application.Calculation = xlCalculationManual 

    Dim ws As Worksheet, c As Range, Rng As Range 

    For Each ws In Worksheets 
     ' set range to occupied range in worksheet (save time in loop) 
     Set Rng = ws.Range("A1:" & ws.Cells.SpecialCells(xlCellTypeLastCell).Address) 

     If Not Rng Is Nothing Then 
      For Each c In Rng 
       If c.Value = 0 Then 
        ' unmerge "merged" cells 
        If c.MergeCells Then c.UnMerge 

        c.ClearContents 
       End If 
      Next c 
     End If 
     Set Rng = Nothing 

    Next ws 
    ' resume setting 
    Application.Calculation = xlCalculationAutomatic 

End Sub 

Answer 2

试试这个代码。这将在不改变格式的情况下从工作表中的使用范围中清除0。

更新时间：

Dim ws As Worksheet 
For Each ws In ActiveWorkbook.Worksheets 
    ws.Cells.Replace what:=0, Replacement:="", _ 
    LookAt:=xlPart, SearchOrder:=xlByRows, MatchCase:=False, _ 
    SearchFormat:=False, ReplaceFormat:=False 
Next ws 

Answer 3

使用的文件>选项>高级设置，取消选中 “显示零...” 设置。此设置在每片的基础上，所以，至自动执行它的整个工作簿，把这个代码到的ThisWorkbook模块

Private Sub Workbook_SheetActivate(ByVal Sh As Object) 
    ActiveWindow.DisplayZeros = False 
End Sub 

现在零将不会在任何片显示。