＆＃34;编译错误：类型不匹配＆＃34;

Question

我有简单的VBA程序，需要检查一个范围并告诉用户是否有空单元格 - 如果是，哪个单元格。

问题在于：

Dim outputsrange("inputnum+1:inputnum+outputnum") As range

功能：

Sub check()
'   Goal: check if there are any entry truth table cells for outputs
Dim outputsrange("inputnum+1:inputnum+outputnum") As range
If IsEmpty(outputsrange) Then
    MsgBox ("The following cells are empty:" & vbNewLine & emptycell) ' what's the property for these empty cells
End If
End Sub

这会出错：

  

编译错误：

     

类型不匹配

如何修复此类型不匹配？

Answer 1

你可以尝试更接近这一点。

Dim outputsrange As range
Set outputsrange = Range(inputnum + 1 & ":" & inputnum + outputnum)

inputnum为1，outputnum为5，应将输出范围设置为第2行到第6行。