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

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 

現在零將不會在任何片顯示。