运行时错误13：类型不匹配（VBA）

Question

我遇到运行时错误13：每次运行此代码时输入不匹配。它应该清除三列单元格，在接下来的三列上移动然后清除另外三列，直到它用完了带有值的列。错误出现在Do While ActiveCell.Value <> ""行。

Sub Blanker()
    Sheets("Sheet1").Select
    Range("BCF3").Select
    Do While ActiveCell.Value <> ""
        Range(ActiveCell.Offset(0, 0), ActiveCell.Offset(106, 2)).Select
        Selection.Clear
        ActiveCell.Offset(0, 6).Select        
    Loop
End Sub

Answer 1

我不确定你为什么要使用循环来做一些似乎只有一次的事情。试试这个：

Sub Blanker()

Sheets("Sheet1").Select
Range("BCF3").Select
If ActiveCell.Value <> vbNullString Then
    Range(ActiveCell.Offset(0, 0), ActiveCell.Offset(106, 2)).Select
    Selection.Clear
    ActiveCell.Offset(0, 6).Select
End If

End Sub

Answer 2

代码不适用于非数值。特别是#VALUE！。我改变了#VALUE的所有实例！到0，代码工作。