Excel VBA-如果合并单元格包含%

我想浏览第3行中的合并单元格，如果单元格包含%，则删除整个列

我尝试使用以下代码取消单元格合并并调整大小

Sub Macro2()
'delete column if cells contain %

Rows("3:3").MergeCells = False

For i = ActiveSheet.Columns.Count To 1 Step -1

If InStr(1, Cells(3, i), "%") Then Cells(3, i).Resize(3, i + 1).EntireColumn.Delete

Next i

End Sub

但它删除了第一个单元格右侧包含%

---

谢谢你们的帮助

你能解释一下你为什么要调整尺寸吗？是否要删除合并单元格覆盖的所有列

Resize

的意思正是这样，例如，如果

i

=20，那么您将

单元格（3，i）

的大小调整为21列，这可能不是您想要的。你是说

单元格（3，i）.调整（，2）

，即2列？代码现在可以工作了。非常感谢你！我以前对调整大小感到困惑：你能解释一下为什么要调整大小吗？是否要删除合并单元格覆盖的所有列

Resize

的意思正是这样，例如，如果

i

=20，那么您将

单元格（3，i）

的大小调整为21列，这可能不是您想要的。你是说

单元格（3，i）.调整（，2）

，即2列？代码现在可以工作了。非常感谢你！我以前对调整大小感到困惑：D