使用列标题标识列并删除单元格包含子string的行

我正在尝试生成一些VBA代码，这些代码将查找包含列1中第一个单元格中的列标题“New query”的列。然后应删除所有行中每个单元格中存在子string值“柱。

这是我所想到的：

Set rng = Rows("1:1").Find(what:="New query", after:=Cells(1, 1), LookIn:=xlValues, LookAt:=xlWhole, SearchOrder:=xlByRows, SearchDirection:=xlNext) With Intersect(Sheets("Sheet1") .Columns(rng.EntireColumn.Address)) .Replace "''", "#N/A", xlPart .SpecialCells(xlConstants, xlErrors).EntireRow.Delete End With 

Answer 1

你不想为此使用Intersect ，这是造成这个问题。 试试这个：

 Set Rng = Rows("1:1").Find(what:="New query", after:=Cells(1, 1), LookIn:=xlValues, LookAt:=xlWhole, SearchOrder:=xlByRows, SearchDirection:=xlNext) With Rng.EntireColumn .Replace "''", "#N/A", xlPart .SpecialCells(xlConstants, xlErrors).EntireRow.Delete End With