VBA-如果合并的单元格包含％，则删除excel中的整个列

Question

我想浏览第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

但是它删除了包含％的第一个单元格右边的所有列

谢谢你们的帮助！