Sub 乘积练习()Dim i%For i = 1 To UsedRange.Rows.Count ActiveSheet.Cells(i, 3) = ActiveSheet.Cells(i, 1) * ActiveSheet.Cells(i, 2)NextEnd Sub
][1]
本文共 144 字,大约阅读时间需要 1 分钟。
Sub 乘积练习()Dim i%For i = 1 To UsedRange.Rows.Count ActiveSheet.Cells(i, 3) = ActiveSheet.Cells(i, 1) * ActiveSheet.Cells(i, 2)NextEnd Sub
][1]
转载地址:http://zotpo.baihongyu.com/