怎么实现大量数据更新及标注?

On_fire

怎么实现大量数据更新及标注?

Sheet1 是最新数据, A列是唯一值

Sheet2 是基本数据, A列是唯一值

代码执行条件:

1.      对比Sheet1及Sheet2的A列

2.     更新数据到Sheet3 (模拟结果),

当配上, 添加数据到基本数据的右边(蓝标); 没配上添加到基本数据的下面(绿标)

数据N多, 列数是变量, 请老师…大神…帮...帮…忙!

(文件, 找到一个相似, 但需求条件有点不一样!)

On_fire

请大神, 老师们, 关注一下…, 谢谢!

microyip

字典配对就完了

zax010

Sub zz()
    Dim d, ar, br
    Set d = CreateObject("Scripting.Dictionary")
    ar = Sheet2.Range("A1").CurrentRegion
    br = Sheet1.Range("A3").Resize(Sheet1.[a65536].End(3).Row - 2, 8)
    Application.ScreenUpdating = False
    For i = 3 To UBound(ar)
        d(ar(i, 1)) = i
    Next
    For i = 1 To UBound(br)
        If d.exists(br(i, 1)) Then
            For j = 1 To UBound(ar, 2)
                br(i, j + 1) = ar(d(br(i, 1)), j)
            Next
            d.Remove br(i, 1)
        End If
    Next
    Sheet1.[a3].Resize(UBound(br), 8) = br
    For Each k In d.keys
        m = m + 1: br(m, 1) = ar(d(k), 1)
        For j = 1 To UBound(ar, 2)
            br(m, j + 1) = ar(d(k), j)
        Next
    Next
    Sheet1.[a65536].End(3).Offset(1).Resize(m, 8) = br
    Application.ScreenUpdating = True
End Sub

zax010

Update.rar (22.94 KB, 下载次数: 5)

2017-11-25 11:54 上传

点击文件名下载附件

On_fire

zax010 发表于 2017-11-25 11:54

谢谢老师帮忙…!!!

原来的代码, 就是老师写的!

代码的思路是一样的,

但是, 基本及更新的数据的列数是不固定的?

请问要怎么改代码?

还有一个问, 是更新的要标红?

zax010

On_fire 发表于 2017-11-25 12:24
谢谢老师帮忙…!!!原来的代码, 就是老师写的! 代码的思路是一样的, 但是, 基本及更新的数据的列数是不固定 ...

把
br = Sheet1.Range("A3").Resize(Sheet1.[a65536].End(3).Row - 2, 8)
改为
br = Sheet1.Range("A3").Resize(Sheet1.[a65536].End(3).Row - 2, Ubound(ar,2)+1)

On_fire

zax010 发表于 2017-11-25 12:32
把
br = Sheet1.Range("A3").Resize(Sheet1.[a65536].End(3).Row - 2, 8)
改为

谢谢老师, 还是有报错  

因为两页的数据的列数都是变量?
请问怎么改?

本来是想实现汇总Sheet1(基本) 及Sheet2(更新), 再标注,
可惜现在会覆盖Sheet1基本数据?

On_fire

On_fire 发表于 2017-11-25 12:48
谢谢老师, 还是有报错  

因为两页的数据的列数都是变量?

比如:右边是基本数据, 现在执行代码后, 数据被覆盖了?

grf1973

好象sheet3反映出来的并不是你要求的效果。