1.选项设置实现0不显示
2.设置单元格格式
3.公式法
  
有时候我们经常需要设置excel数值为0不显示。具体的excel数值为0不显示的设置有下面3种解决方法，一起来学习。
  
Excel数值为0不显示方法一 选项法：
  
如下图所示，我们想要将excel单元格里面的0不显示出来，如右图所示。
  

  
笔者使用的是office 2010版本，单击“OFFICE按钮－EXCEL选项－高级－此工作表的显示选项—不勾选“在具有零值的单元格中显示零”。如下所示：
  

  
如果您使用的excel版本是2003版本，单击“工具-选项-视图-窗口选项-去掉零值前的勾”
  

   
说明：这样设置后，当前活动工作表中所有的数字0都会显示为空白，显然有时候我们只需要局部局域不显示，那请看下面方法
  
  
Excel数值为0不显示方法二 自定义格式：
  
第一步：选定数值为0的单元格
  
1、选择需要将0不显示的单元格区域
  
2、ctrl+f查找
  
查找0，在“选项”中勾选“单元格匹配，在“查找范围”中选择“值”，点击查找全部，然后再按ctrl+a(即全选已找到的单元格)，关闭查找窗口。
  

  
第二步：设置单元格格式
  
点击格式/单元格/数字/自定义，输入自定义格式内容为[=0]""，单击确定即可。
  

  

   
说明：此方法比较灵活，适用于只改变部分单元格操作，其余的单元格不受影响，没有选中的单元格的0值正常显示。也可以直接选中整个数值区设置数字格式为[=0]"";G/通用格式
  
  
Excel数值为0不显示方法三 公式法：
  
此方法为公式法，强制将0显示为文本空值。公式为：=if(公式=0,"",公式)，举例如下：
  
比如，我们需要将B列业绩提成为0的不显示，可以尝试在C2单元格输入公式：=IF(B2=0,"",B2)，然后下拉复制公式即可。
  

  

   
说明：上面2种方法的显示都是视觉效果,内部数据依然还是0,这种方法是真正的单元格的值变成了空白字符串,可以在后续其他函数判断的时候直接判定空值
  
  
系统学习可点左下角 ↓【】鸣谢：看到就是缘分，请各位看官多多点赞、评论和分享哦！定制表格可加微信EXCEL880A，更多实例请到Excel880网站搜索,
  

 
 

问题：在 Excel 2010 中，引导公式中引用了无值的空单元格，但是会在单元格中显示数字0，怎么能不显示这个数字 0 呢？
 

 
 
解决办法：
 
Excel 2010
 
依次单击左上角的“开始”——“选项”，弹出“Excel 选项”；在出现的“Excel 选项”窗口的左侧单击“高级”，在右侧找到“此工作表的显示选项”，选择不显示数字 0 的工作表（例如：Sheet 1），然后把下面“在具有零值的单元格中显示零(Z)”前面的对号 √ 去掉，确定，就OK了。
 
 

 
 
Excel 2007
 单击左上角的“Office 按钮”，选择“Excel 选项”，然后单击左侧“高级”类别，然后在右侧找到“此工作表的显示选项”，然后在“选择工作表”的后边有个选择：是选择当前sheet还是整个这个表格，选择好后，取消“在具有零值的单元格中显示零”复选框那个对号，确定就OK了。
 
 
 
 Excel 2003
 依次单击菜单栏“工具”——“选项”——“视图”选项卡，最下面有个“零值”，去掉前面的对号，确定就OK了。
 
 
 
 （完）

excel的vlookup如果是空白就显示0的问题
 
 
 
解决方法：
 
借鉴一下以下格式即可，把VLOOKUP替换成你的，加&""就是解决0的问题：http://yayihouse.com/yayishuwu/chapter/2602

作用：遍历"配置清单表"文件夹下的xls文件，批量删除excel中数量为0或空的单元格。
 
 
test = createobject("Scripting.FileSystemObject").GetFile(Wscript.ScriptFullName).ParentFolder.Path
 FileName=test + "\" + "设备报价表.xls"

 

 Num = 8   'H列

 var_test="value: "

 aJiKuang_1=4

 aBanka_1=0

 aMokuai_1=0

 aQiTa_1=0

 aJiKuang_2=0

 aBanka_2=0

 aMokuai_2=0

 aQiTa_2=0

 

    '函数1，打开后关闭xls文件，以更新

    Function openSave_xls(FileName)    

     'On Error Resume Next '如果后面的程序出现"运行时错误"时，会继续运行，不中断。

     

     set oExcel = CreateObject( "Excel.Application" )

     '不显示提示信息,这样保存的时候就不会提示是否要覆盖原文件 

     oExcel.DisplayAlerts= false 

     oExcel.Visible = false

     '1) 打开已存在的工作簿：

     oExcel.WorkBooks.Open( FileName )

     '2) 设置第2个工作表为活动工作表

     oExcel.WorkSheets(4).Activate

     '3) 关闭工作簿：

     oExcel.ActiveWorkBook.Save

     oExcel.WorkBooks.Close

     oExcel.Quit

     set oExcel = nothing

    End Function 

    

          '函数2，删除空白行，“小计“统计方式

    Function Delete_xls(FileName)        

     'On Error Resume Next '如果后面的程序出现"运行时错误"时，会继续运行，不中断。

         

    set oExcel = CreateObject( "Excel.Application" )    

    '不显示提示信息,这样保存的时候就不会提示是否要覆盖原文件 

     oExcel.DisplayAlerts=FALSE 

     '调用EXCEL文件的时候不显示 

     oExcel.Visible = False

     

     '1) 打开已存在的工作簿：    

     oExcel.WorkBooks.Open( FileName )    

     '2) 设置第3个工作表为活动工作表    

     oExcel.WorkSheets(4).Activate    

         

     '3) 机框，统计需处理多少行    , 从第5行开始

     i = aJiKuang_1 +1      

     '查找A列中所有的单元格

     doContinue=1

     Do while doContinue = 1

             MyPos = Instr(CStr(oExcel.Cells(i,1).Value), "计")   ' 默认情况下，进行的是二进制比较（省略了最后的参数）。存在则返回大于0。

             '  WScript.Echo "1.1 : " & CStr(oExcel.Cells(i,1).Value)& ", " & MyPos

             

             If MyPos > "0" Then 

               doContinue = 0

             End if

      i = i+1    

     loop

        aJiKuang_1=4

        aJiKuang_2=i-1

        aBanka_1=i

        aMokuai_1=0 

        aQiTa_1=0

        aBanka_2=0

        aMokuai_2=0

        aQiTa_2=0

     

        '3) 板卡，统计需处理多少行    , 从第5行开始

     i = aBanka_1 +1      

     '查找C列中所有的单元格

      doContinue=1

     Do while doContinue = 1

             MyPos = Instr(CStr(oExcel.Cells(i,1).Value), "计")   ' 默认情况下，进行的是二进制比较（省略了最后的参数）。存在则返回大于0。

             '  WScript.Echo "1.1 : " & CStr(oExcel.Cells(i,1).Value)& ", " & MyPos

             

             If MyPos > "0" Then 

               doContinue = 0

             End if

      i = i+1    

     loop

     

        aBanka_2=i-1

        aMokuai_1=i    

     

         '3) 模块，统计需处理多少行    , 从第5行开始

     i = aMokuai_1 +1      

     '查找C列中所有的单元格

     doContinue=1

     Do while doContinue = 1

             MyPos = Instr(CStr(oExcel.Cells(i,1).Value), "计")   ' 默认情况下，进行的是二进制比较（省略了最后的参数）。存在则返回大于0。

             '  WScript.Echo "1.1 : " & CStr(oExcel.Cells(i,1).Value)& ", " & MyPos

             

             If MyPos > "0" Then 

               doContinue = 0

             End if

      i = i+1    

     loop

     

        aMokuai_2=i -1

        aQiTa_1=i

     

         '3) 统计需处理多少行    , 从第5行开始

     i = aQiTa_1 +1      

     '查找C列中所有的单元格

     doContinue=1

     Do while doContinue = 1

             MyPos = Instr(CStr(oExcel.Cells(i,1).Value), "计")   ' 默认情况下，进行的是二进制比较（省略了最后的参数）。存在则返回大于0。

             '  WScript.Echo "1.1 : " & CStr(oExcel.Cells(i,1).Value)& ", " & MyPos

             

             If MyPos > "0" Then 

               doContinue = 0

             End if

      i = i+1    

     loop

     

        aQiTa_2=i-1

       

     'MsgBox "i-final：" & ", " & aJiKuang_1& ", " & aJiKuang_2 & ", " &aBanka_1 & ", " &aBanka_2& ", " & aMokuai_1& ", " & aMokuai_2  & ", " & aQiTa_1 & ", " &aQiTa_2

     

      '4) 其他“数量”为空的行    

     i = aQiTa_2 -1    

     Do while i < aQiTa_2 And i > aQiTa_1'查找“数量”列中为空单元格,    

          

        if oExcel.Cells(i,1).Value <> "……" And ( oExcel.Cells(i,Num).Value = "" Or oExcel.Cells(i,Num).Value = "0" ) Then 'i是行，Num是列"    

         'var_test=var_test & i & "th- " & CStr(oExcel.Cells(i,Num).Value)+ ", "     

         oExcel.ActiveSheet.Rows(i).Delete      

      End if    

          

      i = i-1    

     loop    

     

      '4) 模块“数量”为空的行    

     i = aMokuai_2 -1    

     Do while i < aMokuai_2 And i > aMokuai_1'查找“数量”列中为空单元格,    

          

        if oExcel.Cells(i,1).Value <> "……" And ( oExcel.Cells(i,Num).Value = "" Or oExcel.Cells(i,Num).Value = "0" ) Then 'i是行，1是列"    

         'var_test=var_test & i & "th- " & CStr(oExcel.Cells(i,Num).Value)+ ", "     

         oExcel.ActiveSheet.Rows(i).Delete      

      End if    

          

      i = i-1    

     loop    

     

     '4) 板卡“数量”为空的行    

     i = aBanka_2 -1    

     Do while i < aBanka_2 And i > aBanka_1'查找“数量”列中为空单元格,    

          

        if oExcel.Cells(i,1).Value <> "……" And ( oExcel.Cells(i,Num).Value = "" Or oExcel.Cells(i,Num).Value = "0" ) Then 'i是行，1是列"    

         'var_test=var_test & i & "th- " & CStr(oExcel.Cells(i,Num).Value)+ ", "     

         oExcel.ActiveSheet.Rows(i).Delete      

      End if    

          

      i = i-1    

     loop    

 

     '4) 机框“数量”为空的行    

         i = aJiKuang_2 -1    

       Do while i < aJiKuang_2 And i > aJiKuang_1'查找“数量”列中为空单元格,    

        if oExcel.Cells(i,1).Value <> "……" And ( oExcel.Cells(i,Num).Value = "" Or oExcel.Cells(i,Num).Value = "0" ) Then 'i是行，1是列"    

             oExcel.ActiveSheet.Rows(i).Delete      

        End if    

        i = i-1    

       loop    

       

     oExcel.ActiveWorkBook.Save    

     oExcel.WorkBooks.Close    

     oExcel.Quit    

     set oExcel = nothing    

    End Function     

     

 
   '函数3，关闭打开的micrsoft excel 或wps excel，避免xls文件被占用带来的读写冲突。
 
 
   Function KillExcelProcess()
     on error resume Next

     'kill所有的macrosoft excel进程

     CreateObject("WScript.Shell").Run "taskkill /f /im EXCEL.EXE "

     'kill所有的wps excel进程

     CreateObject("WScript.Shell").Run "taskkill /f /im et.exe "

     WScript.Sleep 500

 

     'CreateObject("WScript.Shell").Run "taskkill /f /im Wscript.exe"

 End Function   

 

    '函数4，遍历文件及子文件夹

    Function FilesTree(sPath, fileNamePart)    

     '遍历一个文件夹下的所有文件夹文件夹    

         Set oFso = CreateObject("Scripting.FileSystemObject")    

         Set oFolder = oFso.GetFolder(sPath)    

         Set oSubFolders = oFolder.SubFolders    

             

         Set oFiles = oFolder.Files    

         For Each oFile In oFiles    

            

             MyPos = Instr(oFile.Name, fileNamePart)   ' 默认情况下，进行的是二进制比较（省略了最后的参数）。存在则返回大于0。

             

             If MyPos > "0" Then 

               Delete_xls oFile.Path  '删除数量为空的行。oFile.Path带路径，oFile.Name只有文件名    

             End if

         Next

             

         For Each oSubFolder In oSubFolders    

             FilesTree oSubFolder.Path, fileNamePart '递归    

         Next    

             

         Set oFolder = Nothing    

         Set oSubFolders = Nothing    

         Set oFso = Nothing    

     End Function    

 

 'on error resume Next

  'do sth

  MsgBox "开始操作，结束时提示操作完成！"

  '关闭所有excel进程

  KillExcelProcess

 

  FilesTree "./", "配置清单表"  '遍历   

  MsgBox "操作完成"