2015-11-26 56 views
1

我試圖運行此代碼:該薄片是沒有密碼保護NamedRange參考不工作

ActiveSheet.Range("Report[#Tout]").RemoveDuplicates Columns:=2, Header:=xlYes 

我已經確定:

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 

但是我總是得到上線的埃羅或任何東西,但我似乎無法找到我的代碼有什麼問題。

+1

更改'範圍(「報告[#Tout]」)''範圍(「報告」)') – R3uK

+1

R3uK,我只想吻你,知道! –

+0

Ahaha讓我們暫時保留它的數字,我會首先發布這個答案!在fera des bisous加上tard! ;) – R3uK

回答

1

變化Range("Report[#Tout]")Range("Report")

你會看到Range(NamedRange_Name[#...]")只有當您在NamedRange表中選擇特定的列,但引用整個NamedRange,你只需要用括號括起來它的名字!