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

时间:2015-05-01 18:45:33

标签: excel vba

我试图做的是:

  1. 搜索" Part Class"。我这样做是因为它可以在不同的纸张上的不同位置。
  2. 将列地址保存为" a"设置为范围
  3. 在该列中搜索5个条件中的每一个,并删除整个行。
  4. 当我运行此代码时,我得到一个"对象需要"错误。

    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语言知之甚少。我觉得我的问题在于我的语法和/或我是如何继续使用" Part Class"搜索范围。

    关注问题:

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

    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 ++的事情,但我不知道如何把它放在那里。

1 个答案:

答案 0 :(得分:0)

 <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>