执行如下VBA程序即可:
Private Sub CommandButton1_Click()
Dim rag As Range, rags As Range
For Each rag In Range("A:A")
If rag.Value = 9 Then
If rags Is Nothing Then
Set rags = rag.Offset(0, 1)
Else
Set rags = Union(rags, rag.Offset(0, 1))
End If
End If
Next
rags.Select
End Sub