VBA行拷贝

Sub 拷贝信息()

Dim workbookTmp As Workbook
Dim worksheetTmp As Worksheet
Dim rangTmp As Range
Dim i%
Dim j%
Dim newI%

'当前工作表格可以使用ThisWorkbook
'也可以
Debug.Print ThisWorkbook.Name
Debug.Print ActiveWorkbook.Name
'按行拷贝信息
Set workbookTmp = Workbooks.Open("C:\Users\Administrator\Desktop\excelProj\luoehu17620079311443842528.xls")
Set worksheetTmp = workbookTmp.Sheets(1)
j = worksheetTmp.UsedRange.Columns.Count
newI = 1
Debug.Print "column num is ->" & j
For i = 1 To worksheetTmp.UsedRange.Rows.Count
'Debug.Print "row num is ->" & i
'Debug.Print worksheetTmp.Cells(i, 8)
If worksheetTmp.Cells(i, 8) = "济南市政府资金结算中心" Then
workbookTmp.Sheets(1).Rows(i).Copy Workbooks("summary.xlsx").Sheets(1).Cells(newI, 1)
newI = newI + 1
End If

'pring row data

Next

End Sub