匹配两个不同Excel表格中的字段

时间:2016-01-07 15:31:01

标签: excel vba excel-vba

所以我有一个包含多个工作表的Excel文件,如果名称匹配将名称添加到工作表3,如何匹配来自sheet1列A和sheet2列B的字段?

基本上我在Sheet1和Sheet2中有不同标准的学生,但我想从Sheet1和Sheet2中找到重复项并在Sheet3上抛出这些重复项。

也有类似的问题: 如何在B列中找到Name并将该值更改为C列中的其他值。 例如:

{{1}}

因此,如果名字Sam存在于B列中,我想在C列中将其命名为Ziva 我用简单的IF语句尝试了它,但它只查找1个字段。

1 个答案:

答案 0 :(得分:0)

这样的东西会起作用。或者你可以根据评论用Vlookup替换内部循环。

dim idx1 as integer
dim idx2 as integer
dim idx3 as integer
idx1 = 2
idx3 = 1
while sheets("Sheet1").Range("A" + Cstr(idx1)).Value <> "" 
    idx2 = 2
    while sheets("Sheet2").Range("B" + Cstr(idx2)).Value <> ""
        if sheets("Sheet1").Range("A" + Cstr(idx1)).Value = sheets("Sheet2").Range("B" + Cstr(idx2)).Value then
            idx3 = idx3 + 1
            sheets("Sheet3").Range("C" + Cstr(idx3)).value = sheets("Sheet1").Range("A" + Cstr(idx1)).Value
        endif
        idx2 = idx2 + 1
    wend
    idx1 = idx1 + 1
wend