|
- Sub test()
- Dim arr, brr(), str_Path$, k%, i%, n%, m%, wk As Workbook
- arr = Range("a1").CurrentRegion
- For k = 2 To UBound(arr)
- If arr(k, 1) = Range("h2") And InStr(arr(k, 3), Range("i2")) > 0 Then
- n = n + 1
- ReDim Preserve brr(1 To UBound(arr, 2), 1 To n)
- For i = 1 To UBound(arr, 2)
- brr(i, n) = arr(k, i)
- Next i
- End If
- Next k
- Workbooks.Open ThisWorkbook.Path & "\文件2.xlsx"
- Sheets("表222").Cells(Rows.Count, 1).End(3).Offset(1, 0).Resize(UBound(brr, 2), UBound(brr)) = Application.WorksheetFunction.Transpose(brr)
- ActiveWorkbook.Close 0
- End Sub
复制代码 |
|