收到“应用程序定义或对象定义”错误

Question

我正在尝试让所有空白单元格显示"***"

Function test()
Dim rng As Range, cell_ As Range

Set rng = Range("D1,AL367")
For Each cell_ In rng
    If IsEmpty(cell_) Then
        Sheets("DailyMean Report").Range(cell_) = "***"
    End If
Next cell_


End Function

Answer 1

除了在该范围内包含错字外，您的代码也不是很有效。如果要使空白显示***，则没有理由逐个循环。而是用一行代码来完成它：

Sub test()
    Range("D1:AL367").SpecialCells(xlCellTypeBlanks).Value = "***"
End Sub