请问：在VBA怎样判断在Excel选定区域内是否存在某字符串?

如果你要查找的某字符串是固定的数值，这个应该不难办到，可以用Worksheet_SelectionChange事件，添加适当的代码来达到些目的。
假如你的某两个单元格内有以下内容：
我们的家乡
我们的中国
你在在你选定的区域内查找“家乡”这两个字
在sheet1代码编辑器中粘贴以下代码。
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
On Error Resume Next
arr = Split(Target, "")
text1 = "*家乡*"
For x = 0 To UBound(arr)
If arr(x) Like text1 = True Then
MsgBox Target.Address & "包含" & text1
End If
Next
End Sub
然后，选中某些区域进行测试

'实现指定单元区域，条件查询
Set a = Application.InputBox("输入查询区域", "区域", Type:=8) '输入查询区域
intext = InputBox("输入查询关键字", "关键字查询") '输入查询关键字
With a.Select
For Each b In a
Set F = b.Find(intext, LookIn:=xlValues)
If Not F Is Nothing Then
MsgBox "存在查询关键字" '这里输入你想执行的方法
End If
Next
End With

特定区域内判断的话用FIND：
set F = selection.find("字符", LookIn:=xlValues)
if not F is nothing then
msgbox "字符串存在"
endif