excel - 在Excel VBA中将选择除以X

Question

这可能是一个垒球，但我怎样才能将选择除以一定数量？在这种情况下: 2.204623 ？我知道您可以使用“PasteSpecial”，但我正在尝试弄清楚如何进行选择，然后分配一个热键来执行它(宏)。

Sub Makemt()
 Dim Cell As Range
 Dim div_mt As Long

 div_kg = 2.204623

 For Each Cell In Selection
 Selection `here I would divide by div_mt

 Next

End Sub

我不知道如何混合粘贴的能力特别划分选定的范围。

  Selection.PasteSpecial Paste:=xlPasteAll, Operation:=xlDivide, SkipBlanks _
        :=False, Transpose:=False

Answer 1

如果要划分范围内的每个单元格

Sub Makemt()
 Dim Cell As Range
 Dim div_mt As Double

 div_kg = 2.204623

 For Each Cell In Selection

    If IsNumeric(Cell.Value) Then
        Cell = Cell/ div_kg
    End If

 Next Cell

End Sub

编辑:注意@ScottCraner 关于单元格中数值的注释