我正在尝试运行此代码:
Sub remove_duplicates()
Sheets("Report").Select
On Error GoTo ErrMsg
ActiveSheet.Range("Report[#Tout]").RemoveDuplicates Columns:=2, Header:=xlYes
Range("A7").Select
Exit Sub
ErrMsg:
MsgBox Err.Description
End Sub
然而,我总是在线上犯错:
ActiveSheet.Range("Report[#Tout]").RemoveDuplicates Columns:=2, Header:=xlYes
我已确保该表格没有受密码保护,或者我似乎无法找到我的代码有什么问题。
答案 0 :(得分:1)
将Range("Report[#Tout]")
更改为Range("Report")
只有在NamedRange表中选择特定列时才会看到Range(NamedRange_Name[#...]")
,但要引用整个NamedRange,只需将其名称放在括号中即可!