Question

我有一些宏可以在工作簿中的多个工作表中的表格中动态创建列（通过＆＃34;添加＆＃34;按钮），在某些情况下，在包含多个表的工作表上。我想要一个＆＃34;删除＆＃34;按钮，查找包含文本的所有列＆＃34; toolname＆＃34;在工作簿中的所有表中删除它们。

我尝试了几个不同的循环，但我不确定如何根据所述文本实际查找和删除列，是否应该是结构化引用或范围等。这里非常大的vba noob所以任何正确方向的帮助肯定会受到赞赏！

Answer 1

这样的东西可以找到你想要的东西吗？

Dim rng As Range

Set rng = Cells.Find(What:="toolname", After:=ActiveCell, LookIn:=xlFormulas, _
                LookAt:=xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext, MatchCase:= _
                False, SearchFormat:=False)

If Not rng Is Nothing Then
   'if no matches is found
End If

Excel 2010：VBA用于删除包含跨多个表/工作表的文本的标题的列

1 个答案: