|
发表于 2017-6-29 09:33
|
显示全部楼层
本楼为最佳答案
本帖最后由 chart888 于 2017-6-29 09:38 编辑
- Private Sub CommandButton1_Click()
- Dim r, t, m, i
- r = Cells(Rows.Count, 3).End(xlUp).Row
- t = Int(r / 10)
- For n = 0 To t
- i = r - 10 * n
- Cells(i, 8) = Cells(i, 3) * 2
- Cells(i, 9) = Cells(i, 4) * 2
- Cells(i, 10) = Cells(i, 5) * 2
- Next
- End Sub
复制代码 |
|