Question

excel数据导入问题 有A,B两个表格。 现在要把A表格里面的数据，导入到B表格里面

A里面的单元格与B里面单元格的，数据录入项一直。但是A,B表的格式不一样。
例如A表里的A2单元格对应的是B表里面的E3，怎么导入数据

Answer 1

Sub copyif()
Dim carr()
Dim R1, C1, R2
C1 = Sheet1.UsedRange.Columns.Count
R1 = Sheet1.UsedRange.Rows.Count
R2 = Sheet2.UsedRange.Rows.Count
carr() = Array(6, 5, 2, 3, 7, 1, 4)
For i = 1 To R1
    For j = 1 To C1
        Sheet2.Cells(R2 + i, j) = Sheet1.Cells(i + 1, carr(j - 1))
    Next
Next
End Sub

把Sheet1与Sheet2改为你的A表与B表名，把Array(6,5,2,3,7,1,4)改为你的A表内1至结尾列的对应于B表中第几列列号。修改后运行就可以了。

追问

Array（）这个怎么改啊，比如A表中的B3对应的是B表中的E5，能举个例子，怎么修改吗？

还有，如果a表内有多个工作簿。。。如何操作。

谢谢

追答

Array()里的每个“，”分隔对应是A表中的（A列，B列，C列，D列，E列，F列，G列）

每个数字对应B表中的（F列，E列，B列，C列，G列，A列，D列）
A表中A列的数据在B表中是F列（第6列）的，就把第一个数改为6
如说A表中B3对应的是B表中E5，就把Array里的第2个数字改为5
还有问你，你是A表的一个格对应B表的一个格，不是不A表的一列数对应B表的一列数？
A表中多个表，还要增加一个变量与For循环。具体看你的表，能不能上转样表？

追问

提问者好像不能上传文件~~~

我截图

这是A表

这是B表

现在要把A表中对应的数据导入在B表中。

追答

Sub copyif()
Dim carr()
Dim OpSheets, R2
carr() = Array("D20", "D5", "D6", "H5", "H6", "D10", "D7", "H17", "H18", "D18", "D16")
Workbooks.Open Filename:="D:\我的文档\Desktop\Book2.xls" '改更为A表目录与A表名字
OpSheets = Application.Worksheets.Count '获取工作薄中有多少个表
For i = 1 To OpSheets
    R2 = Workbooks("Book1.xls").Sheets(1).UsedRange.Rows.Count + 1
    For j = 0 To 10
        Workbooks("Book1.xls").Sheets(1).Cells(R2, j + 1) = _
        Workbooks("Book2.xls").Sheets(i).Range(carr(j))
    Next
Next
Workbooks("Book2.xls").Close SaveChanges:=False
End Sub

把“Book1.xls"改为B表名

把"Book2.xls"改为A表名

把"D:\我的文档\Desktop\Book2.xls" 改为你的A表所在目录。

追问

还有点小问题，因为是截图，不能完全展现B表中的项目
这是B表的下载地址
http://www.kuaipan.cn/file/id_124049264077701122.htm
这是A表的下载地址
http://www.kuaipan.cn/file/id_124049264077701124.htm

追答

将B表中的项目对应A表的单元格用“，”补充在Array(……)，后面
再将 For j=0 To 10的10加上你增加的项数就好了。
如，你B表中L列是A表中D8（出生地）这项的，就在
Array("D20", "D5", "D6", "H5", "H6", "D10", "D7", "H17", "H18", "D18", "D16")后面加上D8
即变成
Array("D20", "D5", "D6", "H5", "H6", "D10", "D7", "H17", "H18", "D18", "D16", "D8")
因为增加了一项，所以把For j=0 To 10 改为 For j=0 To 11

Answer 2

自己研究下vlookup函数的用法。

Answer 3

用vlookup就可以了