excel如何用VBA实现搜索某些符合条件的行，并复制到同一个sheet中的指定位置？

Sub q()Dim InStrs As StringInStrs = InputBox("请输入你需要查询的硬件版本号：", "硬件版本号&型号定位宏")Dim Row, J, I As Integer, outStr() As StringRow = Sheet1.Cells(Sheet1.Rows.Count, 13).End(xlUp).RowReDim outStr(0)With Sheet1 For I = 2 To Row If .Cells(