excel - 如果最后一个或第一个字符是空格，则为单元格着色

Question

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

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

"Run-time error '13': Type mismatch".

如果我点击调试，显示错误的黄色文本行会跳转到
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) = " " Then
                sh.Cells(i, j).Interior.ColorIndex = 26
            End If

            If Right(sheetArr(i, j), 1) = " " Then
                sh.Cells(i, j).Interior.ColorIndex = 26
            End If
        Next j
    Next i
End Sub

Answer 1

这是另一个完全避免 VBA 的替代方案。我决定不使用同时包含前导空格和尾随空格并将规则分开的公式，以防万一您(或稍后查看此问题的人)想要为每个规则使用不同的格式。

首先选择要检查格式的范围。

创建一个新的 CF 规则，选择第二个选项“仅格式化包含的单元格”。

在第一个下拉框中，选择“特定文本”

在第二个框中，选择“开始于”

在公式框中，只需键入空格

然后选择您想要的格式(在您的情况下，将是粉红色填充)

重复上述步骤，除了在本次迭代中使用“结束于”

最后，您的结果将如下所示: