Question

我试图做的是：

搜索＆＃34; Part Class＆＃34;。我这样做是因为它可以在不同的纸张上的不同位置。
将列地址保存为＆＃34; a＆＃34;设置为范围
在该列中搜索5个条件中的每一个，并删除整个行。

当我运行此代码时，我得到一个＆＃34;对象需要＆＃34;错误。

Dim a As Range
Dim b As Range
Dim NSC As String

Cells.Find("Part Class").Activate
Set a = Selection.EntireColumn.Select   'Here is where the issue comes from
a.Find("CONS").EntireRow.DELETE
a.Find("MISC").EntireRow.DELETE
a.Find("PFG").EntireRow.DELETE
a.Find("PRT").EntireRow.DELETE
a.Find("TOTE").EntireRow.DELETE

答案可能很简单，但我对VBA语言知之甚少。我觉得我的问题在于我的语法和/或我是如何继续使用＆＃34; Part Class＆＃34;搜索范围。

关注问题：

好的，所以我接受了Tim的代码并进行了一些编辑，但现在我得到的问题是＆＃34; sub或函数未定义＆＃34;。那是因为我制作的标签吗？

Dim a As Range
Dim loopCount As Integer

Dim NSC As String

Set a = ActiveSheet.Cells.Find("Part Class").EntireColumn

On Error Resume Next
Do While loopCount > 0
    a.Find("CONS").EntireRow.DELETE
    a.Find("MISC").EntireRow.DELETE
    a.Find("PFG").EntireRow.DELETE
    a.Find("PRT").EntireRow.DELETE
    a.Find("TOTE").EntireRow.DELETE
    On Error GoTo Break1
Loop

Label Break1

我想做一些类似loopCount ++的事情，但我不知道如何把它放在那里。

Answer 1

 <ul class="material-nav">

     <li>
     <a title="Show products matching tag tag1" href="/collections/products/tag1">Tag1</a>
     </li>

     <li>
     <a title="Show products matching tag tag2" href="/collections/products/tag2">Tag2</a>
     </li>

     <li>
     <a title="Show products matching tag tag3" href="/collections/products/tag3">Tag3</a>
     </li>

  </ul>

将选择设置为已保存的范围

1 个答案: