求助：根据表2的信息批量修改表1里面的数据

[longzhiqiu]

表1是基础表，里面是所有学生的成绩记录，现在须要按照表2的内容，修改表1里面相应的同学的成绩。笨的方法是将要修改的同学一个一个在表1里面查找，然后修改为表2里面的成绩。请问如何用VBA快速的实现批量的修改，最后将修改过记录单元格黄色显示出来。谢谢各位！

[longzhiqiu]

引用 3 楼 Runnerchin 的回复:

Sub x()
    Dim dict
    Set dict = CreateObject("Scripting.Dictionary")
    For i = 2 To Sheet2.UsedRange.Rows.Count
        dict.Add Sheet2.Cells(i, 1).Value, Sheet2.Cells(i, 2).Value
    Next
    
    For Each k In dict
        Debug.Print k, dict.Item(k)
    Next
    
    For i = 2 To Sheet1.UsedRange.Rows.Count
        If dict.Exists(Sheet1.Cells(i, 1).Value) Then
           Sheet1.Cells(i, 2) = dict.Item(Sheet1.Cells(i, 1).Value)
           Sheet1.Cells(i, 1).Interior.ColorIndex = 27
        End If
    Next
End Sub

执行以后Sheet1里目标单元格的成绩并没有被修改，而是直接删除了，是怎么回事？

[X-i-n]

引用 5 楼 longzhiqiu 的回复:

[quote=引用 3 楼 Runnerchin 的回复:]

Sub x()
    Dim dict
    Set dict = CreateObject("Scripting.Dictionary")
    For i = 2 To Sheet2.UsedRange.Rows.Count
        dict.Add Sheet2.Cells(i, 1).Value, Sheet2.Cells(i, 2).Value
    Next
    
    For Each k In dict
        Debug.Print k, dict.Item(k)
    Next
    
    For i = 2 To Sheet1.UsedRange.Rows.Count
        If dict.Exists(Sheet1.Cells(i, 1).Value) Then
           Sheet1.Cells(i, 2) = dict.Item(Sheet1.Cells(i, 1).Value)
           Sheet1.Cells(i, 1).Interior.ColorIndex = 27
        End If
    Next
End Sub

执行以后Sheet1里目标单元格的成绩并没有被修改，而是直接删除了，是怎么回事？[/quote] 做伸手党也要有个度

[longzhiqiu]

好吧 我再研究研究 多谢！

[舉杯邀明月]

看这段代码，感觉不会出现“删除数据”的现象吧？

[longzhiqiu]

引用 6 楼 Runnerchin 的回复:

[quote=引用 5 楼 longzhiqiu 的回复:] [quote=引用 3 楼 Runnerchin 的回复:]

Sub x()
    Dim dict
    Set dict = CreateObject("Scripting.Dictionary")
    For i = 2 To Sheet2.UsedRange.Rows.Count
        dict.Add Sheet2.Cells(i, 1).Value, Sheet2.Cells(i, 2).Value
    Next
    
    For Each k In dict
        Debug.Print k, dict.Item(k)
    Next
    
    For i = 2 To Sheet1.UsedRange.Rows.Count
        If dict.Exists(Sheet1.Cells(i, 1).Value) Then
           Sheet1.Cells(i, 2) = dict.Item(Sheet1.Cells(i, 1).Value)
           Sheet1.Cells(i, 1).Interior.ColorIndex = 27
        End If
    Next
End Sub

执行以后Sheet1里目标单元格的成绩并没有被修改，而是直接删除了，是怎么回事？[/quote] 做伸手党也要有个度[/quote] 可以了 代码没错 是我自己搞错了

[X-i-n]

VBA的做法：读表2，将内容存到字典，键是姓名，值是分数。然后遍历表1，有就修改内容并设置颜色 公式的做法： 1. 表1C列用公式 =iferror(vlookup(a2,sheet2!$A$1:$B$9,2,0),"未改_"+a2) 2. 筛选C列不包含"未改_"的单元格，标色 3. 整个C列替换"未改_"为空

[longzhiqiu]

VBA实现的能不能具体点，最好帮写段代码新手万分感谢！

[X-i-n]

Sub x()
    Dim dict
    Set dict = CreateObject("Scripting.Dictionary")
    For i = 2 To Sheet2.UsedRange.Rows.Count
        dict.Add Sheet2.Cells(i, 1).Value, Sheet2.Cells(i, 2).Value
    Next
    
    For Each k In dict
        Debug.Print k, dict.Item(k)
    Next
    
    For i = 2 To Sheet1.UsedRange.Rows.Count
        If dict.Exists(Sheet1.Cells(i, 1).Value) Then
           Sheet1.Cells(i, 2) = dict.Item(Sheet1.Cells(i, 1).Value)
           Sheet1.Cells(i, 1).Interior.ColorIndex = 27
        End If
    Next
End Sub

[舉杯邀明月]

先分别从两张“表”中把数据读取到数组中，再从数组中“用For循环，一个一个的找”， 如果数据量算太多的话，也是很快的。 当然如果两张表的数据都有几百、上千行甚至更多，那就得用点“技巧”来找，才能快速处理了。