[已解决]两表数据匹配

凤鸣岐山

          求教老师，判断表二G列名称如果与表一D列名称相同，把表一名称相同的E列数据赋与表二的H。 数据匹配.rar (75.79 KB, 下载次数: 21)

2017-10-9 20:43 上传

点击文件名下载附件
修改的

最佳答案

月排行榜 / 总排行榜

大灰狼1976

2017-10-12 12:54

1. Sub aaa()
   
2. Dim arr, i&, rng As Range
   
3. arr = Sheets(2).Range("g1:g" & Sheets(2).[g65536].End(3).Row)
   
4. For i = 1 To UBound(arr)
   
5.   Set rng = Sheets(1).Columns(4).Find(arr(i, 1))
   
6.   If Not rng Is Nothing Then arr(i, 1) = rng.Offset(, 1) Else arr(i, 1) = ""
   
7. Next i
   
8. Sheets(2).[h1].Resize(UBound(arr)) = arr
   
9. End Sub

复制代码

表2的H1单元格公式=VLOOKUP(G1&"*",Sheet1!D:E,2,)。
或者上面的代码。

跳转到最佳答案楼层

凤鸣岐山

哪位老师帮忙指导，谢谢！

凤鸣岐山

Sub 统计()
    Dim x As Long, y As Long, i As Long, h As Long
   

         i = Sheet2.Range("g65536").End(xlUp).Row
        h = Sheet1.Range("g65536").End(xlUp).Row
        For x = 1 To i
          For y = 1 To h
            If Sheet2.Cells(x, "G") <> Sheet1.Cells(y, "D") Then
                Sheet2.Cells(x, "H") = Sheet1.Cells(y, "E")
               
            End If
        Next y
    Next x
   
    MsgBox "OK!"
End Sub

这样表二　Ｈ列倒过来的数据　　全是一样的，问题在哪，请老师指点．

大灰狼1976

1. Sub aaa()
   
2. Dim arr, i&, rng As Range
   
3. arr = Sheets(2).Range("g1:g" & Sheets(2).[g65536].End(3).Row)
   
4. For i = 1 To UBound(arr)
   
5.   Set rng = Sheets(1).Columns(4).Find(arr(i, 1))
   
6.   If Not rng Is Nothing Then arr(i, 1) = rng.Offset(, 1) Else arr(i, 1) = ""
   
7. Next i
   
8. Sheets(2).[h1].Resize(UBound(arr)) = arr
   
9. End Sub

复制代码

表2的H1单元格公式=VLOOKUP(G1&"*",Sheet1!D:E,2,)。
或者上面的代码。

issachar

直接用VLOOKUP就可以了

凤鸣岐山

大灰狼1976 发表于 2017-10-12 12:54
表2的H1单元格公式=VLOOKUP(G1&"*",Sheet1!D:E,2,)。
或者上面的代码。

感谢  老师指导！

凤鸣岐山

issachar 发表于 2017-10-12 13:15
直接用VLOOKUP就可以了

感谢 老师指导 ！