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