|
发表于 2012-9-7 22:23
|
显示全部楼层
本楼为最佳答案
- Sub test()
- Dim LastRow As Integer, i As Integer,arr,brr,k as Integer
- Application.ScreenUpdating = False '关闭屏幕刷新
- Application.DisplayAlerts = False
- Set Ws = Workbooks.Open(ThisWorkbook.Path & "\表2.xls") '打开工件簿文件
- arr = Ws.Sheets("sheet1").UsedRange.Value
- ReDim brr(1 To UBound(arr), 1 To 3)
- Ws.Close (False) '关闭工作簿,不保存
- For i = 2 To UBound(arr)
- If arr(i, 3) <> 0 Then
- k = k + 1
- brr(k, 1) = arr(i, 1)
- brr(k, 2) = arr(i, 2)
- brr(k, 3) = arr(i, 3)
- End If
- Next
- LastRow = Sheets("Sheet1").Range("A" & Rows.Count).End(xlUp).Row + 1
- Sheets("Sheet1").Range("A" & LastRow).Resize(k, 3) = brr
- Application.ScreenUpdating = rue
- Application.DisplayAlerts = True
- End Sub
复制代码 |
|