Excel VBA小试

Excel VBA小试

一个朋友让我帮他处理一个Excel，对比两个Sheet中的字段，然后赋值。

我学过VB，但是对Excel的VBA编程还是第一次，然而代码都是一样的。

Sub GetMultNum()
    For i = 8 To 12
        For j = 2 To 171
            If Sheet14.Cells(i, 3) = Sheet2.Cells(j, 3) And Sheet14.Cells(i, 2) = Sheet2.Cells(j, 2) Then
                Sheet14.Cells(i, 6) = Sheet2.Cells(j, 4)
            End If
        Next j
    Next i
End Sub

 

 

 

 

posted on 2012-10-10 20:58  daixinet.com 阅读( ...) 评论( ...) 编辑 收藏

转载于:https://www.cnblogs.com/sshoub/archive/2012/10/10/2718978.html