[求助]所有单元格乘1

老鬼

我想让所有选中的单元格都乘以某个数值，并让结果都显示在原来的单元格，请问宏代码如何编写？

米粉

Sub r()

For i = 1 To Selection.Rows.Count

   For j = 1 To Selection.Columns.Count

   Selection.Cells(i, j).Value = Selection.Cells(i, j).Value * 10             '－<这是要乘的数字

   Next j

Next i

End Sub

老鬼

非常感谢！

wtusever

用选择性粘贴就可以了。复制先，再在选择性粘贴，运算，乘，确定。