应用程序定义或对象定义错误 - 找不到答案

Question

我已经搜遍了所有但无法弄清楚这一点。我想要的是程序检查字符串的第6个字符是否等于“C”，如果是，则将单元格的字体设置为红色。我尝试了几种不同的修复程序（这不是我的第一个代码），但无法弄清楚为什么我一直收到此错误。谁能告诉我发生了什么事？

Dim Rows As Integer
Dim Content As String

Worksheets("Data").Activate
Rows = Worksheets("Data").Range("A:A").Cells.SpecialCells(xlCellTypeConstants).Count

For x = 1 To Rows
Content = Mid(Cells(x, "A"), 6, 1)

If Content = "C" Then
    With Worksheets("Data")
        .Range(Cells(x, "A")).Font.Color = vbRed  <---- ERROR
    End With
End If
Next x

Answer 1

只需删除单词Range即可。您也可以使用.Range("A" & x).Font.Color = vbRed仅供日后参考。