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

将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

在工作表中可以直接用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

用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

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

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