求EXCEL中用VBA查找并录入的代码（在excel中输入vba代码的方法）

Sub TestFind()；MsgBox Sheet1.Range("1:" & Sheet1.Rows.Count).Find("测试字符串").Address；End Sub；如果是多个，并且不要提示，让它变成行数的变量