一个简单的VBA

在整理数据时，导出为excel，有两个表的数据，之间有一个对应的关系，需要根据相同的名字，把一个表的一个字段赋值给另一个表的一个字段。有近3000条数据，用人眼来找会很痛苦的（个人觉得）。所以就想写vba来处理，之前弄过个简单的，又忘记了 - -|，查了相关的资料，写了一个vba来处理。代码如下：

 

Public Sub mapping()
    Dim theRow As Range
    Dim row2 As Range
    
    For Each theRow In Worksheets("Sheet2").UsedRange.Rows
        'MsgBox .Cells(1, 1).Value
        For Each row2 In Worksheets("Sheet1").UsedRange.Rows
            If theRow.Cells(1, 2).Value = row2.Cells(1, 1).Value Then
                'MsgBox row2.Cells(1, 2).Value
                theRow.Cells(1, 4).Value = row2.Cells(1, 2).Value
                Exit For
            End If
        Next row2
    Next theRow
End Sub

 

参考文章：http://blog.excelhome.net/user1/fanjy/637.html