對於每個命名範圍

我在這裏遇到了一些麻煩，我不確定到底發生了什麼。我有下面的代碼;對於每個命名範圍

Set wks = Worksheets.Add 
    wks.Range("A1").ListNames 
Range("A:A").Cells.SpecialCells(xlCellTypeConstants).Name = "GroupList1" 

For Each a In Range("GroupList1") 
    Range(a).Select 
    If Selection.Find("NOTE:", , Excel.xlValues) Is Nothing Then 
     Range(a).EntireRow.Delete 
    End If 
Next a

當試圖選擇每個範圍時，我總是收到object'_Global'failed'的方法'範圍'錯誤。

Range(a).Select

奇怪的部分是我以後有相同的代碼，它工作得很好。任何幫助，將不勝感激。謝謝！

來源

2017-09-01 bjefko

[閱讀]（https://stackoverflow.com/ q/10714251/1188513），重寫你的代碼。 –

簡單修復。在嘗試選擇範圍之前，我必須選擇表單。沒關係！

來源

2017-09-01 21:11:56 bjefko

'Select'和'Activate'是毒藥。不要使用'Selection'工作，使用對象模型。在你的問題下看到我評論中的鏈接。另外，不合格的'Range'電話會在某一天或另一天的後端咬你。 –

命令是a.select ... a.entirerow ... .... a是一個範圍...不要使用a.select雖然....使用a.find ....

來源

2017-09-01 21:14:01 jsotola

對於每個命名範圍

回答

相關問題