从VBA中的一列文本计算开始和结束索引

Question

我正在编写一个代码，它将获取 VBA 中文本的开始和结束索引。 此条件应用于单元格时应相应更改

这是一个计算单词长度的代码，但是卡在了索引部分， 我的 StartIndex 函数的输出总是 0。我想再做一个 EndIndex 函数

Public Function CountWords(ByVal strText As String) As Long
    Application.Volatile
    CountWords = UBound(Split(strText, " ")) + 1
End Function

Length = 1
StartIndex = 0

Public Function StartIndex(ByVal strText As String) As Long
    Application.Volatile
    StartIndex = Length + StartIndex
    Length = UBound(Split(strText, " ")) + 1
End Function

考虑这个例子，我有 col 1 并且想要生成 startIndex 和 endIndex

          Col1                          startIndex               endIndex
VBA Index Printer Friendly version         1                        5
 Adobe Acrobat version                     6                        8
A UDF can remain in a code module          9                       15

Answer 1

您可以使用以下简单设置来实现此结果。假设数据从单元格 A3 开始。

在单元格 B3 中插入​​硬编码值：1

在 B4 单元格中插入公式：=C3+1

在单元格 C3 中插入​​公式：=B3+(LEN($A3)-LEN(SUBSTITUTE($A3," ","")))

将单元格 B4 和 C3 中的公式复制到 A 列中数据的最后一行。