excel - 循环事件 - 根据单元格中的前导空格值应用单元格或行格式

Question

A 列包含大量文本值，其中有前导空格。根据空间值，我想将格式应用于范围的单元格或行。
对于选择，我找到了一种查找缩进级别的方法；
cell.offset(0,-1).value=cell.IndentLevel。
如何使用这种方法找到领先的空间计数？会 .值 成为 .formul 一个？有一些方法可以在单元格中找到空间计数作为公式，其中包括 =查找(左(修剪(A1)，1)，A1)-1，但是在vba中制定这个对我来说有点棘手。
或许有办法申请 .value=cell.xx 找到前导空格值，以便我可以根据需要应用格式？
有什么建议么？
发送!

Answer 1

如果您想使用上面的公式，您可以通过多种方式执行此操作，但要演示与单元格版本的解耦，您可以这样做...

Public Sub GetSpacesUsingFindFunctionInVBA()
    Dim strText As String, intSpaceCount As Integer
    
    strText = "    Four spaces"
    
    intSpaceCount = WorksheetFunction.Find(Left(Trim(strText), 1), strText) - 1
    
    Debug.Print intSpaceCount
End Sub

这也将起作用...

intSpaceCount = InStr(1, strText, Trim(strText)) - 1

那里应该有足够的空间让您适应循环中的要求。