如何将工作表1A列中的信息参照，调取同一行其他列的数据信息到表2中？

★流星★

工作表1中的信息，我需要提取到工作表2中。表1的A列与表2的C列是一样的信息。能否通过匹配表1中A列的号码，自动填写表2中的H和I列？


附件：
桌面.zip (15.4 KB, 下载次数: 5)

2017-6-4 17:06 上传

点击文件名下载附件

china_hxx

VBA编程。
方法思路：.判断表1A列的值=表2c列的值，则表1c列值赋值到表2i列，表1d列值赋值到表2h列。

china_hxx

我把你两个工作表合并到一个工作簿里了。
下面的代码测试执行了，无bug。
Sub test()

'方法思路：.判断表1A列的值=表2c列的值，则表1c列值赋值到表2i列，表1d列值赋值到表2h列。
aarow = 9 '
bbrow = 12
num = 0
For i = 1 To aarow
For j = 2 To bbrow
If (Sheets("Sheet1").Range("a" & i).Value = Sheets("2015.1").Range("c" & j).Value) Then
   Sheets("2015.1").Range("i" & i).Value = Sheets("Sheet1").Range("c" & i).Value
   Sheets("2015.1").Range("h" & i).Value = Sheets("Sheet1").Range("d" & i).Value
   num = num + 1
End If

Next j
Next i
MsgBox ("共匹配 " & num)

End Sub