如何列出变量列表中的所有位置？

Question

我有一大串文本字符串。我知道一些字符串在这个列表中不止一次出现。字符串出现的频率在下一列中。

现在让我们假设文本字符串“hello”发生17次。我将如何获得此文本中的所有位置？

任何帮助表示赞赏。

Answer 1

Asuming你所有的字符串是在一列，你可以与他们的位置（行号）添加第二个栏和整个显示计数的字符串做一个透视表。

为了获得您感兴趣的字符串的位置，您可以使用数据透视表的下钻功能（双击字符串旁边的计数），这将创建一个包含所有详细信息的新工作表记录 - 并且位置将显示

希望帮助

好锁

编辑后的意见交换：

我会去的，它可以扫描你的数据只有1次，而不是递归的解决方案，复制将值转换为第二个页面：

for each string in sourcetable 
    if found in targettable 
     increase targettable.counter by 1 (remark: in column_2) 
    else 
     put sourcetable.string at end of targettable 
     put "1" in targettable.counter (remark: occurence = 1 in column_2) 
    endif 
    put sourcetable.index into targettable.column(counter+2) 
next 

到目前为止元代码....是否需要更多帮助才能在VBA中实际编写此代码？

编辑2

行....做了一个快速&脏一个....

Sub CountString() 
Dim S As Range, T As Range, Idx As Long, Jdx As Long 

    Set S = Worksheets("Sheet1").[A2] ' first row is header 
    Set T = Worksheets("Sheet2").[A2] ' first row is header 
    Idx = 1 

    Do While S(Idx, 1) <> "" 
     Jdx = FindInRange(T, S(Idx, 1)) 
     If T(Jdx, 1) = "" Then 
      T(Jdx, 1) = S(Idx, 1) 
      T(Jdx, 2) = 1 
      T(Jdx, 3) = Idx 
     Else 
      T(Jdx, 2) = T(Jdx, 2) + 1 
      T(Jdx, T(Jdx, 2) + 2) = Idx 
     End If 
     Idx = Idx + 1 
    Loop 
End Sub 

Function FindInRange(R As Range, A As String) As Long 
Dim Idx As Long 

    Idx = 1 
    Do While R(Idx, 1) <> "" 
     If R(Idx, 1) = A Then 
      Exit Do 
     End If 
     Idx = Idx + 1 
    Loop 
    FindInRange = Idx 
End Function 

从 “Lorem存有” 与500个字测试 - 采用在1秒以下，在输出sheet_2貌似

String  Count Position ...               
Lorem  1  1               
ipsum  6  2  45  65  232  323  462     
dolor  5  3  42  214  321  335       
sit   6  4  79  148  249  295  415     
amet   6  5  80  149  250  296  416     
consectetur 8  6  117  288  298  396  457  473  486 
adipiscing 3  7  180  402           

希望帮助

Answer 2

彼得，

退房this post of Stack Overflow。

我也试图调整他们的示例代码来匹配你的情况，我很抱歉，虽然这可能无法编译，我现在无法测试它，而我的VBA有点生疏，但你明白了。

Function CheckValues1(byval columnToCheck as Integer, byval stringToFind as String) as Integer() 
    dim rwIndex As Integer 
    dim index as Integer 
    dim occurrences() As Integer 
    index = 0 

    For rwIndex = 0 to Cells(Rows.Count, columnToCheck).End(xlUp).Row 

     ReDim Preserve occurrences(0 to index) 

     If Cells(rwIndex, columnToCheck).Value = stringToFind Then 
      occurrences(index) = rwIndex 
      index = index + 1 
     End If 

    Next rwIndex 

    dim output as String 
    output = output & (Len(occurrences)-1) & " occurrences found." & vbcrlf & vbcrlf 
    For index = 0 to LBound(occurrences) 

     output = output & "Line: " & index & vbcrlf 

    Next index 
    MsgBox output 

End Sub 

这个函数应该返回一个你可以处理的所有事件的数组，但是你喜欢。你只需要传入你正在寻找的字符串和要在其中搜索的列号。

我希望这有助于！

托尼