[已解决]求助：比较人名，写工号。

gmshe58

我有个问题:表1 B列是人名，表2 B列是人名，A列是工号，怎么比较人名，并把工号写入表1的对应A列。用VBA写。 求助表.rar (3.98 KB, 下载次数: 30)

2011-12-29 09:19 上传

点击文件名下载附件

最佳答案

月排行榜 / 总排行榜

Zipall

2011-12-29 09:28

那么多人居然没有重名的,不得不说这是个奇迹.

Sub test()
    Sheets("sheet1").Select
    With Sheets("sheet2")
        For r = 2 To Range("b65536").End(xlUp).Row
            Set n = .Range("b:b").Find(Cells(r, 2), , , xlWhole)
            If Not n Is Nothing Then Cells(r, 1) = n.Offset(0, -1)
        Next
    End With
End Sub

跳转到最佳答案楼层

Zipall

那么多人居然没有重名的,不得不说这是个奇迹.

Sub test()
    Sheets("sheet1").Select
    With Sheets("sheet2")
        For r = 2 To Range("b65536").End(xlUp).Row
            Set n = .Range("b:b").Find(Cells(r, 2), , , xlWhole)
            If Not n Is Nothing Then Cells(r, 1) = n.Offset(0, -1)
        Next
    End With
End Sub

那么的帅

求助表(VBA)(数组).rar (11.1 KB, 下载次数: 11)

2011-12-29 09:32 上传

点击文件名下载附件

gmshe58

Zipall 发表于 2011-12-29 09:28
那么多人居然没有重名的,不得不说这是个奇迹.

Sub test()

我试试。我们确实没有重名重姓，有重名但是没有重姓。

gmshe58

回复：2楼3楼你们都正确，我就仅先发的了。谢谢。

gmshe58

Zipall 发表于 2011-12-29 09:28
那么多人居然没有重名的,不得不说这是个奇迹.

Sub test()

我的同事问了一个新问题：如果表2  C2:N200有数据该怎样查找并且写入表1哪？宏如何改？

Zipall

gmshe58 发表于 2011-12-29 11:31
我的同事问了一个新问题：如果表2  C2:N200有数据该怎样查找并且写入表1哪？宏如何改？

If Not n Is Nothing Then Cells(r, 1) = n.Offset(0, -1)
改为
If Not n Is Nothing Then
Cells(r, 1) = n.Offset(0, -1)
cells(r,3).resize(1,12)=n.offset(0,1).resize(1,12).value
end if

gmshe58

Zipall 发表于 2011-12-29 11:56
If Not n Is Nothing Then Cells(r, 1) = n.Offset(0, -1)
改为
If Not n Is Nothing Then

谢谢老师。好了。代表我的同事谢谢您。