乘积练习-vab Sub 乘积练习() Dim i% For i = 1 To UsedRange.Rows.CountActiveSheet.Cells(i, 3) = ActiveSheet.Cells(i, 1) * ActiveSheet.Cells
