小编Jes*_*sse的帖子

如果最后一个字符或第一个字符是空格，则下面是为单元格着色的 VBA 代码。

我尝试了一个测试文件并且它起作用了，但是在必须检查的文件上，出现了一条错误消息：

“运行时错误‘13’：类型不匹配”。

如果我点击调试，显示错误的黄色文本行会跳转到

If Left(sheetArr(i, j), 1) = " " Then

我检查了我的工作表，命名是正确的。

我有数千个单元格要检查。我可能不会修改单元格，我可能只会添加宏来检查内容，因为该文件将被其他部门使用。

Sub trailingspace()
'
' Find preceding and trailing spaces in a cell.
' Color these cells pink.
'

    Dim i As Long, j As Long
    Dim sh As Worksheet
    Dim sheetArr As Variant
    Set sh = ThisWorkbook.Sheets("wording")
    sheetArr = sh.UsedRange
    rowC = sh.UsedRange.Rows.Count
    colC = sh.UsedRange.Columns.Count

    For i = 1 To rowC
        For j = 1 To colC
            If Left(sheetArr(i, j), 1) = " …