VBA 宏根据列标题名称删除重复项

Question

我对 Excel VBA 非常陌生，我制作了这个宏以根据列名“容器”删除重复项。现在excel中有2列名称为“Container”。

Sub Remove_DupContainerPOL()

'Removes Duplicate Containers

Dim whs As Worksheet
Dim lRow As Long, colNumber As Long
Dim colh As String

colh = "Container"
lRow = Range("A1").End(xlDown).Row
Set whs = Worksheets("POL")
colNumber = Application.Match(colh, whs.Range("A1:AAA1"), 0)

     With whs.Range("A1:AAA" & lRow)
        .RemoveDuplicates Columns:=colNumber, Header:=xlYes
     End With

End Sub

Original Excel File

这是列在 Excel 文件中的样子。现在，当我执行宏时，它以某种方式行为不端，不确定前面行中的整个数据是否被打乱并生成错误的输出。 有什么方法可以让宏读取 3 列，即“容器”，并且仅基于它删除重复项。