vba - Excel vba 中的 "No Cells Found Error"

Question

我正在使用以下代码取消合并和复制单元格。这是我正在使用的代码。

Sub unMerge()
    Dim lastRow As Long
    Dim lastCol As Long
    lastRow = Range("B2").End(xlDown).Row
    lastCol = Range("A2").End(xlToRight).Column

    For iCol = 1 To lastCol

        Columns(iCol).unMerge
        Columns(iCol).SpecialCells(xlCellTypeBlanks).FormulaR1C1 = "=r[-1]c"

    Next iCol
End Sub

当列中有合并单元格时，代码可以顺利运行，但是当遇到没有合并单元格的列时，它会给出标题错误。
代码中的错误可能是什么。

Answer 1

如果没有找到空白单元格，SpecialCells 方法将出错。为避免这种情况，您可以使用简单的错误处理来跳过该错误

On Error Resume Next
Columns(iCol).SpecialCells(xlCellTypeBlanks).FormulaR1C1 = "=r[-1]c"