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
VBA行拷贝
最新推荐文章于 2024-08-12 16:57:32 发布