VBA中将一个工作表中符合条件的数复制到另一个工作薄中
答案:2 悬赏:30 手机版
解决时间 2021-03-03 17:37
- 提问者网友：美人性情
- 2021-03-03 09:19
VBA中将一个工作表中符合条件的数复制到另一个工作薄中
最佳答案
- 五星知识达人网友：空山清雨
- 2021-03-03 09:43
在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
运行它就可以了。
全部回答
- 1楼网友：杯酒困英雄
- 2021-03-03 11:04
vlookup函数
我要举报
如以上问答信息为低俗、色情、不良、暴力、侵权、涉及违法等信息，可以点下面链接进行举报！
大家都在看
推荐资讯