如何将一个sheet1里面的某两列的内容拷贝到另一个sheet2里面？
另外，还要两列的内容是以sheet1里面的一列SN为索引进行排列。
比如：
Sheet1
A ....
E123
E356
E347
E962
（SN）
Sheet2
A B C
E347 48 P
E962 5 P
E356 10 F
E123 45 P
我想将sheet2里面的B,C两列拷贝到sheet1里面，并按Sheet1的A列顺序排列！
Sub aa()
'定义一个数组,首先将工作表2中的数据赋给表1,然后将数组赋给表1的单元格.
Dim arr
x = Sheet1.[a65536].End(xlUp).Row
arr = Range("a1:b" & Sheet2.[a65536].End(xlUp).Row)
Sheet1.Range("a" & x + 1).Resize(UBound(arr, 1), 2) = arr
Sheet1.Activate
x = Sheet1.[a65536].End(xlUp).Row
Range("a1:b" & x).Select
Selection.Sort Key1:=Range("A1"), Order1:=xlAscending
End Sub
温馨提示：答案为网友推荐，仅供参考
第1个回答 2009-04-03
用VLOOKUP函数索引
