EXCEL搜索定位問題

以下是我編輯的一段宏,看是否符合你的要求:

Sub Macro2()
'
' Macro2 Macro
' 宏由 zy 錄制，時(shí)間: 2008-3-23
'

'
Dim H
Dim X As Integer
Dim Y As Integer
On Error Resume Next
H = InputBox("輸入要定位的行和列數(shù)據(jù)"&vbcrlf &"以逗號(hào)分隔:", "數(shù)據(jù)定位")
'此處修改為一個(gè)輸入框同時(shí)輸入2個(gè)數(shù)據(jù)
'2個(gè)數(shù)據(jù)之間以逗號(hào)分隔,注意應(yīng)為半角英文字體的逗號(hào)
If H = "-1" Or H = "" Then Exit Sub
h=split(h,",")'以逗號(hào)分割數(shù)據(jù)
Cells.Find(What:=H(0), After:=ActiveCell, LookIn:=xlFormulas, LookAt:= _
xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext, MatchCase:=False _
, MatchByte:=False, SearchFormat:=False).Activate
X = ActiveCell.Row
Cells.Find(What:=H(1), After:=ActiveCell, LookIn:=xlFormulas, LookAt:= _
xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext, MatchCase:=False _
, MatchByte:=False, SearchFormat:=False).Activate
Y = ActiveCell.Column
Cells(X, Y).Select
End Sub