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
下一篇 »
查找最后一个单元格的两种方法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
**粗体** _斜体_ [链接](http://example.com) `代码` - 列表 > 引用。你还可以使用@来通知其他用户。