Excel精英培训网

 找回密码
 注册

QQ登录

只需一步,快速开始

你正在寻找更好的Excel学习教程吗?Excel技巧80集+数据透视表+函数初中高全套+VBA80集,想学的这儿全都有
查看: 80|回复: 4

[求助] 两表数据匹配

[复制链接]
发表于 2017-10-8 18:08 | 显示全部楼层 |阅读模式
excel精英培训的微信平台,每天都会发送excel学习教程和资料。扫一扫明天就可以收到新教程
本帖最后由 凤鸣岐山 于 2017-10-9 20:43 编辑

          求教老师,判断表二G列名称如果与表一D列名称相同,把表一名称相同的E列数据赋与表二的H。 数据匹配.rar (75.79 KB, 下载次数: 4)
 楼主| 发表于 2017-10-9 15:28 | 显示全部楼层
回复 支持 反对

使用道具 举报

 楼主| 发表于 2017-10-9 20:05 | 显示全部楼层
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

这样表二 H列倒过来的数据  全是一样的,问题在哪,请老师指点.
回复 支持 反对

使用道具 举报

发表于 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,)。
或者上面的代码。
回复 支持 反对

使用道具 举报

发表于 2017-10-12 13:15 | 显示全部楼层
直接用VLOOKUP就可以了
回复 支持 反对

使用道具 举报

您需要登录后才可以回帖 登录 | 注册

本版积分规则

小黑屋|手机版|Archiver|Excel精英培训 ( 豫ICP备11015029号 )

GMT+8, 2017-10-18 00:42 , Processed in 0.109200 second(s), 21 queries , Gzip On, Memcache On.

Powered by Discuz! X3.2

© 2001-2013 Comsenz Inc.

快速回复 返回顶部 返回列表