在Excel中删除空行和空列的方法有很多，下面的方法是用VBA代码来删除工作表指定区域中的空行和空列：
Option Explicit
 
Sub Delete_Empty_Rows()
   Dim rnArea As Range
   Dim lnLastRow As Long, i As Long, j As Long
 
   Application.ScreenUpdating = False
   lnLastRow = Selection.Rows.Count
   Set rnArea = Selection
 
   j = 0
 
   For i = lnLastRow To 1 Step -1
      If Application.CountA(rnArea.Rows(i)) = 0 Then
         rnArea.Rows(i).Delete
         j = j + 1
      End If
   Next i
 
   rnArea.Resize(lnLastRow - j).Select
 
   Application.ScreenUpdating = True
End Sub
 
Sub Delete_Empty_Columns()
   Dim lnLastColumn As Long, i As Long, j As Long
   Dim rnArea As Range
 
   Application.ScreenUpdating = False
   lnLastColumn = Selection.Columns.Count
   Set rnArea = Selection
 
   j = 0
 
   For i = lnLastColumn To 1 Step -1
      If Application.CountA(rnArea.Columns(i)) = 0 Then
         rnArea.Columns(i).Delete
         j = j + 1
      End If
   Next i
 
   rnArea.Resize(, lnLastColumn - j).Select
 
   Application.ScreenUpdating = False
End Sub
    在运行代码前，先选择需要删除空行和空列的区域。如果要删除空行，则运行Delete_Empty_Rows()，指定区域中的空行将被删除。注意所谓空行是在指定区域中的，如果在指定区域内是空行，而在指定区域外不是空行，那么这些空行还是将会被删除。删除空列则运行Delete_Empty_Columns()。

	

点上方关注我们，每天早上5分钟，让Excel多点轻松
大家好，我是星光，孔子曰一日不见如隔三秋兮——多无聊的人这是~今天和大家分享的VBA小代码是按指定条件批量删除工作簿。
如下图所示，文件夹下包含了多个Excel文件，需要按你的任意规则对其删除全部或一部分。

 1使用以下代码，将指定文件夹下文件名提取到当前工作表的A列。发
Sub GetFiles()    Dim strPath As String, strFileName As String, k As Long    With Application.FileDialog(msoFileDialogFolderPicker)        If .Show Then strPath = .SelectedItems(1) Else: Exit Sub        '获取用户选择的文件夹的路径，如果未选取，则退出程序    End With    If Right(strPath, 1) <> "\" Then strPath = strPath & "\"    Application.ScreenUpdating = False    Range("a:b").Clear: k = 1    '清除A:B列的所有    Cells(1, 1) = "旧文件名": Cells(1, 2) = "是否删除"    strFileName = Dir(strPath & "*.xls*")    Do While strFileName <> ""        k = k + 1        Cells(k, 1) = strPath & strFileName        strFileName = Dir    Loop    Application.DisplayAlerts = TrueEnd Sub
结果如下图所示。
 2，对需要删除的文件，使用函数等方法，在B列标记“删除”。
 3，复制运行以下代码，即可完成对A列标记“删除”的文件批量删除。
Sub DeleteFile()
    Dim r, i As Long
    r = Range("a1").CurrentRegion '数据装入数组
    For i = 2 To UBound(r)
    '标题行不要，从数组第二行开始遍历
        If r(i, 2) = "删除" Then Kill r(i, 1) 'Kill语句删除指定文件
    Next
    MsgBox "完成。"
End Sub
代码三五行，工作不用忙断肠，你也试一下吧~
如果你还不懂得如何运行VBA代码，可以参考：如何运行VBA代码？
依次点击菜单【进阶教程】→【VBA常用代码】可以获取更多实用VBA小代码。
小贴士：
本文第二段代码通过Kill语句从磁盘删除文件，它的语法是
Kill pathname

参数pathname是必须的，一个字符串表达式，用来指定要删除的文件名，可以包含目录或文件夹以及驱动器，可以使用通配符指定多个文件。比如，删除D:\看见星光下的所有包含“星光”的Excel工作簿，代码如下：
Kill "D:\看见星光\*星光*.xls*"

星号(*)是通配符，可以代替零到多个字符。本期示例文件下载：https://pan.baidu.com/s/1HK2htdV3gRWgtQS6HTE7Ww
提取码: mbuc 系统学习Excel，推荐加入我的Excel社群▼
更多教程&练习
教程1：零基础学Excel(一)什么是Excel？
教程2：零基础学SQL in Excel 25篇合集
作业集：学习不练习=没学习，答题开始！
©看见星光

  将多个相同字段类型的Excel文件，全部都放在一个文件夹。
  然后全部统一合并到一个指定的Excel里。
  {Power Query}
  不仅可以将文件夹下所有的文件统一合并，并把所有的工作簿内的不同Sheet一并合并。
   [关键知识点]：
   1. M函数，Excel.Workbook(Content,true)
   2. 判断文件内容是否与已有字段重复，如重复，则删除列
   操作步骤与演示视频：
https://www.zhihu.com/video/1155080674686877696

   {VBA}
   其中我们可以Do While 循环，或者For Each也行。
   用Dir函数，判断文件是否存在，以及相应的格式是否符合需求。
   我们可以新建一个Excel工作簿，命名为“合并”
Sub 操作指定文件里的所有文件()
Dim mypath as string 
mypath = "D:Desktop百度经验test" '工作簿所在文件夹路径
MyFile = Dir(mypath & "*.xlsx") '获取文件夹里面文件,如果你的excel 文件后缀名不是.xlsx就要修改此处
Do While MyFile <> ""
   Call OpenFile(MyFile)
   MyFile = Dir '找寻下一个文件
Loop
'循环修改工作簿内容
End Sub


Function OpenFile(fileName)
 
 Set currentWorkBook = Workbooks.Open(mypath & "" & fileName)
 Call 合并工作表(currentWorkBook.Worksheets(1), currentWorkBook.Name)
currentWorkBook.Close True '/false,这句是关闭文件，close有两个参数，true是关闭保存修改，false是关闭时不保存修改

End Function

Sub 合并工作表(zuWorkBook As Worksheet, sheetName As String)
 
 WorkBookName = "合并.xlsx" '将工作表合并到此工作簿
 sheetCount = Workbooks(WorkBookName).Sheets.Count
 zuWorkBook.Copy After:=Workbooks(WorkBookName).Sheets(sheetCount)
 Set mSheet = Workbooks(WorkBookName).Sheets(sheetCount + 1
 mSheet.Name = sheetName '命名合并过来的工作表名为原本工作簿名称
 
End Sub
 
方法二，利用Getopenfilename，打开文件路径，并选择所需要合并的工作簿进行合并。
但这里并没有检测每张表的标题字段是否都一致，只是纯粹地在最后一行里继续添加新的内容。
Option Explicit
Sub mergeonexls() '合并多工作簿中指定工作表
On Error Resume Next
Dim x As Variant, x1 As Variant, w As Workbook, wsh As Worksheet
Dim t As Workbook, ts As Worksheet, l As Integer, h As Long
Application.ScreenUpdating = False
Application.DisplayAlerts = False
x = Application.GetOpenFilename(FileFilter:="Excel文件 (*.xls; *.xlsx),*.xls; *.xlsx,所有文件(*.*),*.*", _
       Title:="Excel选择", MultiSelect:=True)
Set t = ThisWorkbook
Set ts = t.Sheets(1) '指定合并到的工作表，这里是第一张工作表
l = ts.UsedRange.SpecialCells(xlCellTypeLastCell).Column
For Each x1 In x
   If x1 <> False Then
     Set w = Workbooks.Open(x1)
     Set wsh = w.Sheets(1) '指定所需合并工作表，这里是第一张工作表
     h = ts.UsedRange.SpecialCells(xlCellTypeLastCell).Row
       If l = 1 And h = 1 And ts.Cells(1, 1) = "" Then
         wsh.UsedRange.Copy ts.Cells(1, 1)
       Else
         wsh.UsedRange.Copy ts.Cells(h + 1, 1)
       End If
     w.Close
   End If
Next
Application.ScreenUpdating = True
Application.DisplayAlerts = True
End Sub