VBA将这个改成FOR循环，加个inputbox,

VBA将这个改成FOR循环，加个inputbox,

Sub B1()
    Dim sr, x%, n, m%, falg As Boolean
    flag = False
    n = Application.InputBox("请输入你要查找第几个‘培’？", , , , , , , 1)
    sr = "Excel精英培训培训论坛培训培训论坛培训论坛培训论坛培训论坛培训论坛2"
    For x = 1 To Len(sr)
        If Mid(sr, x, 1) = "培" Then
            m = m + 1
            If m = n Then
                MsgBox "第" & n & "个‘培’在字符串当中的位置为：" & x
                flag = True
                Exit For
            End If
        End If
    Next
    If flag = False Then MsgBox "字符串中不存在第 " & n & " 个‘培’"
End Sub来自：求助得到的回答

Sub B1()    
    Dim sr, x&,i      
    sr = "Excel精英培训培训论坛培训培训论坛培训论坛培训论坛培训论坛培训论坛2"
   for i=1 to len(sr)
    n=inputbox("查找第几个培字")
    if n=false then exit for
    Debug.Print InStr(Application.Substitute(Application.Substitute(sr, 2, 1), "培", 2, n), 2)
   next
End Sub追问不行，你那个inputbox输入不断在循环
假设输入2，就应停止循环，输出结果了