修改代码

ddz79101

老师，有工作簿，其中有代码，代码为保留指定列，但执行结果却“对方账号”列没有删除，查因多时。请老师看看。谢谢！

excel玉米

因为你【对方账号】包含在要保留的【对方账号名称】列名称里，所以它保留了不予删除

1. Sub DeleteSelectedColumns()
   
2. 
   
3.     Dim ws As Worksheet
   
4.     Dim rDel As Range
   
5.     Dim HeaderCell As Range
   
6.     Dim sKeepHeaders As Variant
   
7.     Dim sDelimiter As String
   
8.     Dim i As Integer
   
9.     sKeepHeaders = Array("序号", "凭证号", "账户余额", "对方账号", "对方行名")
   
10. 
    
11.     For Each ws In Worksheets
    
12.      Set rDel = Nothing
    
13.      For Each HeaderCell In ws.Range("A1", ws.Cells(1, ws.Columns.Count).End(xlToLeft)).Cells
    
14.           For i = LBound(sKeepHeaders) To UBound(sKeepHeaders)
    
15.                If HeaderCell = sKeepHeaders(i) Then
    
16.                    If Not rDel Is Nothing Then Set rDel = Union(rDel, HeaderCell) Else Set rDel = HeaderCell
    
17.                End If
    
18.          Next i
    
19.     Next HeaderCell
    
20.     If Not rDel Is Nothing Then rDel.EntireColumn.Delete
    
21.     Next ws
    
22. End Sub

复制代码

ddz79101

excel玉米 发表于 2024-5-6 10:07
因为你【对方账号】包含在要保留的【对方账号名称】列名称里，所以它保留了不予删除

老师！那么如何精确处理喃？可以给个修改指点吗

ddz79101

excel玉米 发表于 2024-5-6 10:07
因为你【对方账号】包含在要保留的【对方账号名称】列名称里，所以它保留了不予删除

谢谢老师！对方账号是删除了，但我刚发现交易时间换没有删除，可以再帮忙看看吗

excel玉米

如果要删除交易时间，可以在下面
sKeepHeaders = Array("序号", "凭证号", "账户余额", "对方账号", "对方行名")
改为
sKeepHeaders = Array("序号", "交易日期", "凭证号", "账户余额", "对方账号", "对方行名")
上面的意思就是，你要删除哪一行内容，就将要删除的表头内容加到上面的数组中

ddz79101

excel玉米 发表于 2024-5-6 11:38
如果要删除交易时间，可以在下面
sKeepHeaders = Array("序号", "凭证号", "账户余额", "对方账号", "对 ...

老师！发的簿中列数不一致，9到12月有多个交易时间，没有删，原因应该如你上所述，也因为字符前2个一致，所以没有删除。可以帮忙改改吗？

excel玉米

ddz79101 发表于 2024-5-6 11:54
老师！发的簿中列数不一致，9到12月有多个交易时间，没有删，原因应该如你上所述，也因为字符前2个一致， ...

上面我讲过了，你要删除哪一列，就将列表表头名称加入sKeepHeaders数组。当然，是在我改过后的代码里改：
sKeepHeaders= Array("序号", "交易日期","交易时间", "凭证号", "账户余额", "对方账号", "对方行名")

ddz79101

excel玉米 发表于 2024-5-6 12:34
上面我讲过了，你要删除哪一列，就将列表表头名称加入sKeepHeaders数组。当然，是在我改过后的代码里改： ...

谢谢老师！是我理解你代码错了，我还停在原保留的列上，而你的角度是删除不保留的列上了。