乘积练习-vab

Sub 乘积练习() Dim i% For i = 1 To UsedRange.Rows.CountActiveSheet.Cells(i, 3) = ActiveSheet.Cells(i, 1) * ActiveSheet.Cells(i, 2) Next End Sub ][1] 关键字:vba, cells, sub, dim
Sub 乘积练习()
Dim i%
For i = 1 To UsedRange.Rows.Count
    ActiveSheet.Cells(i, 3) = ActiveSheet.Cells(i, 1) * ActiveSheet.Cells(i, 2)
Next
End Sub

][1]

关键字:vba, cells, sub, dim