Excel VBA-查找匹配的列标题并删除该列

Question

很抱歉，如果之前有人回答过这个问题，我无法找到任何符合我具体情况的东西。

我有一个工作簿，有18张工作表，从B2开始，每张工作表的列数可变。有时生成工作表的程序会创建重复的列，因此，我需要一个由button触发的宏来搜索每一个工作表，寻找匹配的列标题，然后删除其中一个列（整个列，而不仅仅是标题）。

到目前为止，我很难，我已经能够删除表中任何单元格中的所有匹配，这几乎抹去了整个表。我只需要匹配标题，然后在此基础上删除整个列。

如果你需要更多的信息，请告诉我，谢谢你的帮助！

到目前为止，代码还在做一些其他的事情，所以这需要继续工作。

    Sub RemoveExtras()

Dim MyRange As Range
Dim ws As Worksheet

Application.ScreenUpdating = False
Application.Calculation = xlCalculationManual

BadCharacters = Array(Chr(10), Chr(13))
wsNumber = Sheets.Count

For Each ws In Worksheets
    With ws
        For Each MyRange In .UsedRange
            If 0 < InStr(MyRange, Chr(10)) Then
             For Each i In BadCharacters
                MyRange = Replace(MyRange, i, vbNullString)
             Next i
            End If
             For t = 1 To wsNumber
              Columns(t).RemoveDuplicates Columns:=Array(1), Header:=xlYes
              Next t
        Next MyRange
    End With
Next ws

Application.ScreenUpdating = True
Application.Calculation = xlCalculationAutomatic

End Sub

Answer 1

看看这对你有没有帮助

Sub test()

Dim book As Workbook, sheet As Worksheet, text As String

For Each sheet In Worksheets


    Set MR = Range("B2:Z2") 'change Z2 as per your requirement
    For Each cell In MR
        Set BR = Range("B2:Z2") 'change Z2 as per your requirement
        For Each cell2 In BR
            If cell.Value = cell2.Value Then cell.EntireColumn.Delete
        Next
    Next

Next sheet


End Sub