VBA中将一个工作表中符合条件的数复制到另一个工作薄中
例如，现在D盘根目录下有两个Excel文件—Book1和Book2，Book2的sheet1中有10行3列数据，Book1的sheet1中A1单元格有一个数，如果这个数与Book2的sheet1中第一列的一个数相等，就把这一列其他两列的值复制到Book1的sheet1中C1和D1单元格中。本例中，就将10和20复制到Book1的sheet1中。请大虾指点，小弟跪谢跪谢！！！！！！！！！！
第1个回答 2013-09-03
在Book1.xls中写如下代码：
Sub Test()
Dim i As Integer
Workbooks.Open "D:\book2.xls", False, True
For i = 1 To Range("A65000").End(xlUp).Row
If Cells(i, 1) = ThisWorkbook.Sheets(1).Range("A1") Then
ThisWorkbook.Sheets(1).Range("B1") = Cells(i, 2)
ThisWorkbook.Sheets(1).Range("C1") = Cells(i, 3)
End If
Next i
Workbooks("Book2.xls").Close 0
End Sub
运行它就可以了。本回答被网友采纳
Sub Test()
Dim i As Integer
Workbooks.Open "D:\book2.xls", False, True
For i = 1 To Range("A65000").End(xlUp).Row
If Cells(i, 1) = ThisWorkbook.Sheets(1).Range("A1") Then
ThisWorkbook.Sheets(1).Range("B1") = Cells(i, 2)
ThisWorkbook.Sheets(1).Range("C1") = Cells(i, 3)
End If
Next i
Workbooks("Book2.xls").Close 0
End Sub
运行它就可以了。本回答被网友采纳
第2个回答 2013-09-03
vlookup函数
相似回答
