名前のついた範囲のそれぞれについて

私はここでいくつかの問題を抱えています。何が起こっているのか正確にはわかりません。私は以下のコードを持っています。名前のついた範囲のそれぞれについて

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

各範囲を選択しようとすると「オブジェクト'_Global」のメソッド '範囲'が失敗します。

Range(a).Select

奇妙な部分は後ほど同じコードがあり、うまく動作します。どんな助けもありがとう。ありがとう！

出典

2017-09-01 bjefko

を使用し....しかしa.selectを使用しないでください...範囲である[これを読む]（https://stackoverflow.com/ q/10714251/1188513）、コードを書き換えます。 –

簡単な修正。私は範囲を選択しようとする前に、シートを選択する必要がありますすべてです。気にしないで！

出典

2017-09-01 21:11:56 bjefko

'選択'と '活性化'は毒です。オブジェクトモデルで動作する 'Selection'を操作しないでください。あなたの質問の下に私のコメントのリンクを参照してください。また、限定されていない 'Range'コールは、あなたを後日、何か他の人に傷つけるでしょう。 –

コマンドがa.selectです... a.entirerow ... .... aa.find ....

出典

2017-09-01 21:14:01 jsotola

名前のついた範囲のそれぞれについて

答えて

関連する問題