小编use*_*470的帖子

我是 VBA 新手。代码。

Dim compare = {"test1","test2","test3",.....etc}

i=0

For j=1 to Ubound(compare)    
  j=1

  If compare.Characters(j,Len(compare(i))).Font.Color <> vbRed Then    
    ' Some Code
  End If

  i=i+1    
Next

但是在执行过程中，我收到运行时错误 424“Object Required. Please help me to complete this task

提前致谢。