rowCount = Browser("xxx ").Page("xxx ").Frame("main").WebTable("地区").RowCount
For counter = 1 To rowCount
text = Browser("xxx").Page("xxx").Frame("main").WebTable("地区").GetCellData(counter,1)
If (text = "aaaa") Then
counter = counter - 1
selectNO = "#" & counter
Browser("xxx").Page("xxx").Frame("main").WebRadioGroup("ID").Select selectNO
Exit For
End If
Next