NamedRange引用不起作用

时间:2015-11-26 12:50:15

标签: excel vba excel-vba

我正在尝试运行此代码:

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

我已确保该表格没有受密码保护,或者我似乎无法找到我的代码有什么问题。

1 个答案:

答案 0 :(得分:1)

Range("Report[#Tout]")更改为Range("Report")

只有在NamedRange表中选择特定列时才会看到Range(NamedRange_Name[#...]"),但要引用整个NamedRange,只需将其名称放在括号中即可!