如何修改增加指定工作表名“数据库”的列进行删除，而不是对当前工作表？

ruhong18

Sub 删除指定列()
    Dim colNames
    Dim i%, j%
    colNames = Array("单号","客户", ) '添加指定的列名
    For i = Cells(Rows.Count, 1).End(xlUp).Row To 1 Step -1
     If Len(Cells(1, i)) = 0 Then GoTo ghb
      For j = 0 To UBound(colNames)
        If Cells(1, i) = colNames(j) Then
           Columns(i).Delete
           Exit For
        End If
       Next
ghb:
    Next
End Sub

爱疯

Sub test()
    'Sheets(1).Select '先选定工作表
    test2 "单号"
    test2 "客户"
End Sub

Sub test2(x)
    On Error Resume Next
    Range("1:1").Find(x).EntireColumn.Delete
    On Error GoTo 0
End Sub

ruhong18

爱疯 发表于 2020-1-4 09:38
Sub test()
    'Sheets(1).Select '先选定工作表
    test2 "单号"

感谢超级版主，代码简单实用~