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
帮我熟悉：获取行数的公式：usedrange.rows.countoffset/risize/merge等函数的使用。Sub 合并单元格()
Application.DisplayAlerts = False
Dim i%, k%
i = UsedRange.Rows.Count
For k = i To 2 Step -1If Cells(k, 1) = Cells(k,
