如何用vb编程 把数据从一个工作表导入到另一个工作表

如何用vb编程 把数据从一个工作表导入到另一个工作表

在工作表中可以直接用vlookup完成，如果非得vba，vba中也可以调用工作表函数。

Sub test()
With Sheets("sheet2")
For c = 5 To 100
Cells(14, c) = Application.WorksheetFunction.VLookup(Cells(10, c), Sheets("sheet1").Range("a:b"), 2, 0)
Next
End With
End Sub

不难，不过你把一个简单的问题描述的挺复杂的。如果可以，你把源数据给我，请详细说明想要的结果。QQ1073953380

你用的是EXCEL还是ACCESS啊？
你得先把VB的操作对象搞清楚啊，ACCESS相对容易一些

如果是一个电子档里的2个表用VBA方便点，如果是2个不同的电子档的话就另想办法了。。

用Vlookup函数
Sub DY()
For R = 2 To Sheet1.Range("A65536").End(xlUp).Row
Sheet2.Range("B2") = Sheet1.Range("A" & R).Value
Sheet2.PrintPreview
Next
End Sub

将sheet1中的数据对号入座放入sheet2中的代码是：
sub main()
for i= 1 to 12
if sheets(1).cells(i,"C")=sheets(2).cells(3,i+6) then'sheet1中的C列数据，如果等于Sheet2中第三行的对应数据
sheets(2).cells(3,i+6)=sheets(1).cells(i,"D")'则将sheet1中的D列数据，放入sheet2中对应的第四行中
end if
next i
end sub

如以上回答内容为低俗、色情、不良、暴力、侵权、涉及违法等信息，可以点下面链接进行举报！

点此我要举报以上问答信息！