按条件填入数据

新会甜橙

明细表的A列和汇总表C列核对相符时,将明细表的B列填入汇总表D列

dajiahaoxinku12

=VLOOKUP(C3,明细!A$3:B$11,2,)

新会甜橙

dajiahaoxinku12 发表于 2013-7-16 21:26
=VLOOKUP(C3,明细!A$3:B$11,2,)

老师数据大,可否写个宏

dajiahaoxinku12

新会甜橙 发表于 2013-7-16 22:20
老师数据大,可否写个宏

Sub 匹配()
    arr = Sheets("明细").Range("a3:b11")
    brr = Sheets("汇总").Range("c3:d" & Range("c65536").End(xlUp).Row)
    For i = 1 To UBound(brr)
        For k = 1 To UBound(arr)
        If brr(i, 1) = arr(k, 1) Then
           brr(i, 2) = arr(k, 2)
        End If
        Next
    Next
    Sheets("汇总").Range("c3").Resize(UBound(brr), 2) = brr
End Sub

新会甜橙

dajiahaoxinku12 发表于 2013-7-16 22:35
Sub 匹配()
    arr = Sheets("明细").Range("a3:b11")
    brr = Sheets("汇总").Range("c3:d" & Rang ...

多谢老师帮助

z1979

dajiahaoxinku12 发表于 2013-7-16 22:35
Sub 匹配()
    arr = Sheets("明细").Range("a3:b11")
    brr = Sheets("汇总").Range("c3:d" & Rang ...

请问老师，如果改成arr = Sheets("明细").Range("b3:c11")，以B列为对比条件引用A列，那如何更改代码。

dajiahaoxinku12

z1979 发表于 2013-7-19 14:34
请问老师，如果改成arr = Sheets("明细").Range("b3:c11")，以B列为对比条件引用A列，那如何更改代码。

不懂你的意思，汇总表里面没有明细表中的b列内容，和谁去比较呢？     

z1979

dajiahaoxinku12 发表于 2013-7-19 17:38
不懂你的意思，汇总表里面没有明细表中的b列内容，和谁去比较呢？

用明细的B列和汇总的C列比较(两列设为比对列)，如果匹配则引用明细表的A列到汇总表。尝试修改，引用不了。
Sub 匹配()
arr = Sheets("明细").Range("a3:c11")
brr = Sheets("汇总").Range("c3:d" & Range("c65536").End(xlUp).Row)
For i = 1 To UBound(brr)
For k = 1 To UBound(arr)
If brr(i, 1) = arr(k, 2) Then
brr(i, 2) = arr(k, 1)
End If
Next
Next
Sheets("汇总").Range("c3").Resize(UBound(brr), 2) = brr
End Sub

sctsg

Sub 匹配()
    arr = Sheet1.Range("a3").CurrentRegion
    brr = Sheet2.Range("a3").CurrentRegion
    For i = 3 To UBound(brr)
        For k = 3 To UBound(arr)
        If brr(i, 3) = arr(k, 1) Then
           brr(i, 4) = arr(k, 2)
        End If
        Next
    Next
    Sheets("汇总").Range("a1").Resize(UBound(brr), 8) = brr
End Sub

少如

dajiahaoxinku12 发表于 2013-7-19 17:38
不懂你的意思，汇总表里面没有明细表中的b列内容，和谁去比较呢？

请老师看看, 帮忙写个代码,
附件中有手工作的样表与要求.
谢谢!

匹配复制求助.zip (22.57 KB, 下载次数: 21)

2013-7-20 09:21 上传

点击文件名下载附件