[已解决]如何用VBA查找17的位置

lingyuncelia1

如图示，如何查找A列中第一次出现17的位置，
如果是查找第二次出现的17又如何写代码呢？
如果是查找第三次出现的17又如何写代码呢？

最佳答案

月排行榜 / 总排行榜

爱疯

2016-5-17 11:41

Sub celia2()
    Dim i, s
    For i = 1 To 30
        If Cells(i, 1) = 17 Then
            s = s + 1
            If s = 3 Then    '指定第几次
                MsgBox "第" & s & "次在" & i & "行"
                Exit For
            End If
        End If
    Next
End Sub

跳转到最佳答案楼层

爱疯

循环判断，如果等于17，s就计数一次。
当s达到指定次数时，就输出。


楼主可先自己写一个代码：查找A列中第一次出现17的位置
如果写好了，稍改1下，就行了

lingyuncelia1

爱疯 发表于 2016-5-16 17:41
循环判断，如果等于17，s就计数一次。
当s达到指定次数时，就输出。

Sub celia()
For i = 1 To 30
If Cells(i, 1) = 17 Then s = s & "," & i
Next
End Sub
s=,7,12,22
如果全部都是个位数就好办了，但是17的位置在同一列是不定的。
就算用上inStr函数也不知如何是好，不能很灵动的锁定各次17出现的所在位置。
可以用findNext，但要按顺序逐个逐个来，如果一开始就选择第N（N不固定）个17的位置就比较麻烦。

爱疯

全部都是个位数，是什么意思？

17的位置在同一列是不定的，是什么意思？难道全部数据不是只有A列吗

lingyuncelia1

爱疯 发表于 2016-5-17 10:34
全部都是个位数，是什么意思？

17的位置在同一列是不定的，是什么意思？难道全部数据不是只有A列吗

在同列，只是不知道在同列的哪个位置。

爱疯

Sub celia2()
    Dim i, s
    For i = 1 To 30
        If Cells(i, 1) = 17 Then
            s = s + 1
            If s = 3 Then    '指定第几次
                MsgBox "第" & s & "次在" & i & "行"
                Exit For
            End If
        End If
    Next
End Sub