系统：Windows 7 
 软件：Excel 2010
 
 
 
这个系列集锦了一些常用功能
今天说说对多行多列的删除操作
重点强调如何表示多行或者多列
 
 
数据源形式 
 
 
Part 1：多行删除
 
通过Rows和Range两种方法都可以
多行使用行号数字来表示，注意需将行号放入双引号中""
 
Sub 多行删除()
    Set te = ThisWorkbook.Worksheets("示例")
    'te.Rows("3:5").Delete Shift:=xlUp
    te.Range("3:5").Delete Shift:=xlUp
End Sub
 
执行效果 
 
 
Part 2：多列删除
 
通过Columns和Range两种方法都可以
列号使用字母表示，注意需将行号放入双引号中""
当使用数字表示列号时，报错
 
Sub 多列删除()
    Set te = ThisWorkbook.Worksheets("示例")
    te.Columns("B:D").Delete Shift:=xlToLeft
'    te.Range("B:D").Delete Shift:=xlToLeft
End Sub
 
执行效果 
 
 
列号采用数字报错信息 
 
 
Part 3：列号的字母表示
 
在某些情况下我们只有列号的数字表示怎么办（例如Match函数结果）​？
使用Address结合Split函数即可解决该问题
示例中28列对应的列号为AB
 
Sub 列号获取()
    Set te = ThisWorkbook.Worksheets("示例")
    cell_addr = te.Cells(1, 28).Address
    col_name = Split(cell_addr, "$")(1)
    Debug.Print (cell_addr)
    Debug.Print (col_name)
End Sub
 
执行效果 
 
 
以上为本次的学习内容，下回见
 
 
 
如发现有错误，欢迎留言指出。文章定位：“字典查询类”
 
 
 
更多原创请关注微信公众号
 
扫描二维码，关注公众号 
 让重复工作一键化，让时间更有意义 
 

 
word、wps中使用vba删除所有表格指定列
 
 处理word表格搞得人头大，找时间百度一波写了个函数处理标记删除的问题，根据这一套逻辑还可以实现很多功能，供各位参考。

 
要点：
 双循环遍历所有表表头
 InStr函数匹配具体内容（word表格多半有特殊字符，相等匹配较难保证）
 在内循环结束后进行删除，否则将出错
 
用法：
 1、定义条件，如 InStr(value1, “学号”)，多条件拼接(如 InStr(value1, “学号”)>0 or InStr(value1, “姓名”) >0)
 2、新建宏名range，粘贴内容到vba编辑器
 3、执行
 
效果：
 
 
代码：
 


'ver 2.0

Sub range()
'遍历文档所有表格，删除表头第一行含有特定字符串的列
Dim value1 As String
Dim target() As Integer
For i = 1 To ActiveDocument.Tables.Count
  Dim targetLen As Integer
  targetLen = 0
  For j = 1 To ActiveDocument.Tables(i).Columns.Count
     value1 = ActiveDocument.Tables(i).Columns(j).Cells(1).range.Text
     '这里定义条件，可以定义多个条件
     If InStr(value1, "测试") > 0 or InStr(value1, "学号") > 0 Then
     targetLen = targetLen + 1
     ReDim Preserve target(targetLen)
     target(targetLen - 1) = j
     Else
     End If
  Next j
  If targetLen <> 0 Then
  ' MsgBox targetLen
    ' 修正删除操作带来的列号偏移
   Dim shift As Integer
   shift = 0
   For k = 0 To (targetLen - 1)
     ' MsgBox target(k)
       ActiveDocument.Tables(i).Columns(target(k) - shift).Delete
       shift = shift + 1
    Next k
  End If
Next i
    MsgBox ("执行完毕。")
End Sub
 
使用过程中遇到复合表格遍历报错问题，修改加入错误处理跳过
 （注意，因需求变动这里已经改成了匹配第一列，如仍需匹配第一行，请按上一段代码循环条件设置）
 
'ver 3.0
Dim value1 As String
Dim target() As Integer
For i = 1 To ActiveDocument.Tables.Count
  'MsgBox ("遍历表 " & i & "。")
  Dim targetLen As Integer
  targetLen = 0
  For j = 1 To ActiveDocument.Tables(i).Rows.Count
     On Error GoTo flag
     value1 = ActiveDocument.Tables(i).Rows(j).Cells(1).range.Text
     '这里定义条件
     If InStr(value1, "test1") > 0 Or InStr(value1, "test2") > 0  Then
     targetLen = targetLen + 1
     ReDim Preserve target(targetLen)
     target(targetLen - 1) = j
     Else
     End If
  Next j
  If targetLen <> 0 Then
  ' MsgBox targetLen
    ' 修正删除操作带来的列号偏移
   Dim shift As Integer
   shift = 0
   For k = 0 To (targetLen - 1)
     ' MsgBox target(k)
       ActiveDocument.Tables(i).Rows(target(k) - shift).Delete
       shift = shift + 1
    Next k
  End If
flag:
    Resume continue
continue:
Next i
    MsgBox ("执行完毕。")
End Sub
 
如需删除而非跳过复合行，则删除代码需换成下列实现形式
 
 With ActiveDocument
        .Tables(1).Cell(2, 2).Delete ShiftCells:=wdDeleteCellsEntireRow
    End With

合并需求
 
假如某一列包含多种重复单元，但是重复的单元对应的其它列却不相同，需求便是指定某一列，寻找其中相同的元素，对两行元素进行合并。如下图所示的源数据，
 
 可以看到，该Excel表格的A列有很多重复项，对他们进行合并，其它列直接连接起来，效果如下图所示。
 
 
解决方案
 
在这里提供一个可设定的解决方案，也是一个SUB子程序。源代码如下。
 
Sub mergeCategoryValues()
    Dim lngRow As Long

    With ActiveSheet
        Dim columnToMatch As Integer: columnToMatch = 1       'Indicates the column to Match
        Dim columnToConcatenateDown As Integer: columnToConcatenateDown = 2   'Indicates the up column to Concatenate
        Dim columnToConcatenateUp As Integer: columnToConcatenateUp = 6         'Indicates the down column to Concatenate
        lngRow = .Cells(Rows.Count, columnToMatch).End(xlUp).Row      'Calculate the Rownum of last line
        .Cells(columnToMatch).CurrentRegion.Sort key1:=.Cells(columnToMatch), Header:=xlYes     'Sort the column to match in order to make the same value appear at the same time

        Do
            If .Cells(lngRow, columnToMatch) = .Cells(lngRow - 1, columnToMatch) Then           'If this line equals to next line of this line
                For i = columnToConcatenateDown To columnToConcatenateUp                        'Concatenate column by column
                    .Cells(lngRow - 1, i) = .Cells(lngRow - 1, i) & Chr(10) & .Cells(lngRow, i)
                Next i
                .Rows(lngRow).Delete                                        'Delete the Row which has been copied
            End If
            lngRow = lngRow - 1                                         'From last to first
        Loop Until lngRow = 1                                           'Until to first
    End With
End Sub
 
mergeCategoryValues主要就是满足了上述的多行合并需求。因为我在网络上所搜索到的程序大都有很多问题，而这个例程没有BUG，而且会有很详细的代码注释，可以帮助你们进行二次开发。中文代码注释如下：
 
Sub mergeCategoryValues()
    Dim lngRow As Long
    With ActiveSheet
        Dim columnToMatch As Integer: columnToMatch = 1       'Indicates the column to Match 选择匹配列
        Dim columnToConcatenateDown As Integer: columnToConcatenateDown = 2   'Indicates the up column to Concatenate 选择想要连接的左列 
        Dim columnToConcatenateUp As Integer: columnToConcatenateUp = 6         'Indicates the down column to Concatenate 选择想要连接的右列，例如我要匹配第一列，对应相同元素的第二列到第五列进行连接 那么 columnToConcatenateDown = 2， columnToConcatenateUp = 5
        lngRow = .Cells(Rows.Count, columnToMatch).End(xlUp).Row      'Calculate the Rownum of last line 计算指定匹配列的最后一行的行数
        .Cells(columnToMatch).CurrentRegion.Sort key1:=.Cells(columnToMatch), Header:=xlYes     'Sort the column to match in order to make the same value appear at the same time 对匹配列进行排序，使得相同的元素得以同时出现

        Do
            If .Cells(lngRow, columnToMatch) = .Cells(lngRow - 1, columnToMatch) Then           'If this line equals to next line of this line 如果匹配列两个相邻元素相等，那么触发合并程序
                For i = columnToConcatenateDown To columnToConcatenateUp                        'Concatenate column by column 对连接列进行遍历
                    .Cells(lngRow - 1, i) = .Cells(lngRow - 1, i) & Chr(10) & .Cells(lngRow, i)   '进行连接，并使用Chr（10）作为分隔符
                Next i
                .Rows(lngRow).Delete                                        'Delete the Row which has been copied 删除已经被合并的列
            End If
            lngRow = lngRow - 1                                         'From last to first
        Loop Until lngRow = 1                                           'Until to first
    End With
End Sub

 
希望该方法可以帮到你，有问题评论区见，我很快会回复。

 
 
要使用VBA，首先打开你的Excel电子表格，然后将Microsoft Visual Basic窗口打开，这样才能使用VBA代码！
 
 
　　方法是：在Excel中直接按下组合键Alt F11即可打开VB窗口，倘若VB默认没有打开代码窗口，请执行操作：“视图”→“代码窗口”即可！
 
 
　　好了，环境都设置好了，下面来学习如题所示的操作吧！
 
 
　　代码１#8212;删除第8个单元格为空的行，范围从1行到88行：
----------------------------------------------------------
　Sub DeleteEmptyRow '删除指定的单元格为空的行
　　Dim i As Integer
　　For i = 88 To 1 Step -1
　　　If Cells(i, 8) = "" Then
　　　　Sheets("sheet1").Rows(i).Delete
　　　End If
　　Next i
　End Sub
----------------------------------------------------------
　　代码解释：
 
 
　　For i = 88 To 1 Step -1　'循环语句，从第88行一直检查到第1行
　　If Cells(i, 8) = "" Then　'如果当前行的第8列的值为空值，那么就删除该行！i是变量，随着循环而变，其值从88逐渐减小到1
 
 
　　代码２#8212;删除第6个单元格为空的列，范围从1列到66列：
----------------------------------------------------------
　Sub DeleteEmptyColmn() '删除指定的单元格为空的列
　　Dim i As Integer
　　For i = 66 To 1 Step -1
　　　If Cells(i, 6) = "" Then
　　　　Sheets("sheet1").Columns(i).Delete
　　　End If
　　Next i
　End Sub
----------------------------------------------------------
　　代码解释：与上面的代码类似，不再解释！
 
 
　　知识扩展：
 
 
　　以上两种代码仅删除sheet1工作表满足条件的空行空列，如果要一次性删除多个工作表的满足条件的空行和空列呢？
 
 
　　同样道理，只要再代码外面再使用一个循环即可！
 
 
----------------------------------------------------------
 
 
　Sub DeleteEmptyRowAndColmn() '删除指定的单元格为空的行
　　Dim i As Integer
　　For j = 1 To 3
　　　For i = 88 To 1 Step -1
　　　　If Cells(i, 6) = "" Then
　　　　　Sheets(j).Columns(i).Delete
　　　　End If
　　　Next i
　　Next j
　End Sub
 
 
 
 

   
 
 
 
相关文章参考：
 
 

   
 
 
 
VBA语言基础
 
 
各种Excel VBA的命令
 
 
VB6 中将数据导出到 Excel 提速之法
 
 
VBA语法200句
 
 
各种Excel VBA的命令
 
 
Execl编程详解
 
 

   
 
  
 其
 它VB相关： 
 

 
 VB软件操作EXCEL教程：※VB全面控制Excel