我试图做的是:
当我运行此代码时,我得到一个"对象需要"错误。
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 ++的事情,但我不知道如何把它放在那里。
答案 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>