如何批量删除Excel中的空单元格？
Excel中数据乱七八糟，有的单元格里没有数据，怎么把这些单元格批量删掉？
注意，是删掉空的单元格，不是单元格里数据里的空格。


首先，选中需要进行操作的所有单元格
然后按 “ Ctrl+G ” 组合键打开 “ 定位 ” 设置框。
点击 “ 定位条件 ” 按钮，打开 “ 定位条件 ” 设置框。
选择 “ 空值 ” ，确定。
这时你会发现表格中的空单元格都被选中了，点击右键，选择 “ 删除 ” 。
然后在弹出的 “ 删除 ” 对话框中选择删除方式。
如果你仅仅想删除所有的空单元格，请选择上面的 “ 右侧单元格左移 ” 或 “ 下方单元格上移 ” ；
如果你想删除所有的空行，则选择 “ 整行 ” 。点击确定，则表格中所有的空单元格或空行就被删除了。

作用：遍历"配置清单表"文件夹下的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 "操作完成"

          
我们在对Excel表格进行操作的时候，经常发现有超级链接。但如果因为某种原因不想保留超级链接，就需要手动进行删除。如果要是只删除一个超级链接非常简单，将鼠标放到超级链接上，然后按鼠标右键，选择“取消超链接”即可。
　　但这种方法不能批量删除Excel文档中的超级链接，如果想将文档中的所有超级链接都删除，该如何处理？这里教给大家一个小窍门，可以快速批量删除Excel中的超级链接。

    首先在Excel表格中全选，然后点击工具栏上的“插入超链接”按钮，在弹出的“插入超链接”对话框底部的“地址栏”中随便填写一个网址，点击“确定”按钮保存。



    接下来再次点击“插入超链接”按钮，会看到多出一个“删除链接”按钮，这样就能够批量删除Excel表格中的超级链接。是不是很简单？其实这个技巧的原理很简单，全选表格，给所有单元格附加同一个超链接，然后一块删除这个链接。

 
				
转载于:https://blog.51cto.com/5468839/932972

对于微软word与Excel这两款办公软件产品来说，可以说是我们日常工作生活中必不可少的两款办公软件。在此前的文章中，软件直销网小编，已经为大家介绍过如何批量删除word文档超级链接的技巧（详见：如何快速批量删除Word文档中超级链接的几个技巧

）。而在今天的办公软件使用技巧文章中，小编将会为大家介绍一下，如何批量删除Excel文档超级链接的方法。



    
经常使用Excel办公软件的朋友都知道，当我们在Excel单元格中，如果我们输入的内容包括网址或者是电子邮箱地址时，eExcel程序会自动将其变
成超级链接。而如果我们采取手动删除的方式的话，一旦超级链接过多，那么我们删除起来十分麻烦。事实上，我们无    
全可以利用宏命令，来达到批量删除Excel文档中的超链接的效果。具体操作方法如下：


　　1：首先，我们需要在Excel文档中，按下“Alt+F8”打开宏窗口； 


    2：然后，我们在“宏名”处，输入一个名称，然后单击“创建”； 


    3：随后，我们便在Sub与End Sub之间，输入：“Cells.Hyperlinks.Delete”； 


    4：最后，我们保存上述所创建的宏后，返回Excel。 



    
这时，我们想要批量删除Excel文档中的超链接时，我们只需要打开“工具”菜单下的“宏”子菜单中的“宏”，然后，在打开的窗口中选中刚刚创建的宏，并
且单击“执行”。这样，稍候片刻，我们便能够将当前Excel文档表格中所有超级链接全部删除掉。怎么样，是不是比手动删除的方式来得更加简单、方便呢？
大家不妨进行一试。