计算Excel单元格中的前导空格

Question

我想标题很清楚。我尝试了以下解决方案，没有成功 我的功能适用于Strings，但不适用于cells 任何线索都非常欢迎。

Function nbLeadingSpaces(str As Variant) As Integer
    Dim trimmed As String
    trimmed = LTrim(str)
    'works with strings, not with cells
    nbLeadingSpaces = InStr(1, str, Left(trimmed, 1), vbTextCompare) - 1
    'same issue
    'nbLeadingSpaces = Len(str) - Len(LTrim(str))
End Function

我需要这个，以便根据一种文字大纲来做事情，如果一行是主行或子行（几个级别）。 VBA似乎自动TRIM单元格内容8 - /

修改

对不起，我很蠢（至少有时候）。这些单元格前面没有空格，但是缩进 :-)
问题解决了，我可以得到rng.IndentLevel，就是这样 无论如何，你所有的评论都会帮助我重新分析这个问题，我会留下这个问题，这可能有助于另一个失落的思想： - ）

Answer 1

对不起，我很蠢（至少有时候）。这些单元格前面没有空格，但是缩进 :-)
问题解决了，我可以得到rng.IndentLevel，就是这样。