Excel精英培训网

 找回密码
 注册
数据透视表40+个常用小技巧,让你一次学会!
查看: 1607|回复: 3

补充缺少数据

[复制链接]
发表于 2020-3-23 10:27 | 显示全部楼层 |阅读模式
在sheet2中的下一空行紧接着补充sheet1没有的姓名,并在sheet2中填充所有姓名对应的成绩

test5.zip

7.2 KB, 下载次数: 4

excel精英培训的微信平台,每天都会发送excel学习教程和资料。扫一扫明天就可以收到新教程
发表于 2020-3-23 11:08 | 显示全部楼层
你这种需求用函数就可以了:
在b2单元格输入公式:=VLOOKUP(A2,Sheet1!A$2:B$8,2,0)
b2以下的单元格直接从b2单元格拖公式即可;
回复

使用道具 举报

发表于 2020-3-23 11:14 | 显示全部楼层
Sub test()
    Dim A, d, i

    '1)写入
    Set d = CreateObject("scripting.dictionary")
    Sheets(1).Select
    A = Range("a1").CurrentRegion
    For i = 2 To UBound(A)
        d(A(i, 1)) = A(i, 2)
    Next i


    '2)查询
    Sheets(2).Select
    If [b2] <> "" Then End
    A = Range("a1").CurrentRegion
    For i = 2 To UBound(A)
        A(i, 2) = d(A(i, 1))
    Next i
    [A1].Resize(UBound(A), 2) = A


    '3)删除重复
    Cells(i, 1).Resize(d.Count) = Application.Transpose(d.keys)
    Cells(i, 2).Resize(d.Count) = Application.Transpose(d.items)
    [A1].CurrentRegion.RemoveDuplicates Columns:=1, Header:=xlYes

End Sub

评分

参与人数 1学分 +2 收起 理由
Lareina_wol2 + 2 学习

查看全部评分

回复

使用道具 举报

发表于 2020-3-29 14:09 | 显示全部楼层
本帖最后由 hcm19522 于 2020-3-29 15:34 编辑

D2:E2 下拉 {=IFERROR(INDEX(Sheet1!A:A,RIGHT(SMALL(IFERROR(MATCH(Sheet1!$A$2:$A$8,$A$2:$A$4,)/1%,1000)+ROW($2:$8),ROW(A1)),2)),"")

6770.png
回复

使用道具 举报

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

本版积分规则

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

GMT+8, 2024-3-29 19:44 , Processed in 0.442150 second(s), 15 queries , Gzip On, Yac On.

Powered by Discuz! X3.4

Copyright © 2001-2020, Tencent Cloud.

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