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 iEnd Sub

就得加倍付出汗水,赢得场场精彩

Excel VBA小试

相关文章:

你感兴趣的文章:

标签云: