Question

我在这里遇到了一些麻烦，我不确定到底发生了什么。我有以下代码;

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

奇怪的部分是我后来有相同的代码，它工作得很好。任何帮助，将不胜感激。谢谢！

Answer 1

轻松修复。在尝试选择范围是全部之前，我必须选择工作表。没关系！

Answer 2

命令为a.select ... a.entirerow ... .... a是一个范围...不要使用a.select尽管....使用{{ 1}}

对于每个名为Ranges的人

2 个答案: