使用案例是命名列

我不能得到这个(简单)VBA公式工作(在Excel 2010中)。 我想要公式来评估单元格B2。 如果B2是空白的,我想C2是空白的。 如果B2> 0,我想C2填充单词“成功”。 然后我想要程序使用与上面相同的逻辑来评估B3,B4,B5等(通过B20)。 换句话说,对于每个Bx,我想要两种情况之一。 情况1)Bx中的空白值在相应的Cx中产生空白,或者情况2)Bx中大于0的值在相应的Cx中生成单词“success”。 当我运行macros,我没有得到一个错误消息,但没有发生在列C中。debugging器告诉我的问题是在Comment.Name =“注释”行,但我不知道什么是错的。 谢谢!

Sub AutoComplete() Dim Comment As Range Set Comment = Range("C2:C20") Comment.Name = "Comment" For i = 2 To 20 Select Case Range("B" & i).Value Case Is > 0 StartDate = "Success" Case Is = " " StartDate = " " End Select Next i End Sub 

你没有写任何东西给C列。你在variablesStartDate中join了一个值,但是没有做任何事情。 你也没有做任何与评论范围。 以下将写入C列

 Range("C" & i).Value = "Success"