在表1填入表2相应数据

yooha

请教该如何根据SHEET1姓名填入SHEET2表中的相应数据,谢谢
填入相应数据.zip (8.45 KB, 下载次数: 8)

2018-9-3 09:56 上传

点击文件名下载附件

a6681316

直接用Vlookup函数就行了呀，

Sub xx()
r = Sheet1.Range("b65355").End(xlUp).Row
b = Sheet2.Range("a65355").End(xlUp).Row
For i = 1 To r
For x = 1 To b
If Sheet1.Range("B" & i) = Sheet2.Range("a" & x) Then
Sheet1.Range("c" & i) = Sheet2.Range("b" & x)
Sheet1.Range("d" & i) = Sheet2.Range("c" & x)
Sheet1.Range("e" & i) = Sheet2.Range("e" & x)
End If
Next
Next

End Sub

a6681316

RT附件忘记传了

astupig

Sub test()

Dim i, j, h, h2 As Long

Dim arr

h = Sheet1.Range("A65536").End(3).Row
h2 = Sheet2.Range("A65536").End(3).Row

For i = 2 To h
    For j = 2 To h2
        If Sheet1.Cells(i, "B").Value = Sheet2.Cells(j, "A").Value Then
            Sheet1.Cells(i, "C") = Sheet2.Cells(j, "B")
            Sheet1.Cells(i, "D") = Sheet2.Cells(j, "C")
            Sheet1.Cells(i, "E") = Sheet2.Cells(j, "E")
        End If
    Next
Next

            
        
End Sub