例
findvalue="AAA"
Cells.Find(What:=findvalue, After:=ActiveCell, LookIn:=xlValues, _
LookAt:=xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext, _
MatchCase:=False, MatchByte:=False, SearchFormat:=False).Activate
GetRow = ActiveCell.Row
詳細はヘルプを見てください。
0 件のコメント:
コメントを投稿