Excel 在VBA中如何将单元格范围除以1000并返回小数点

我是VBA的新手，我已经解决了一些棘手的问题，除了这个看起来很简单的问题

在我的工作表（“行为数据”）中，我有单元格范围（“B2:B217”）中的数字，如“125、1590、0、3343等。”

---

我想将这些数字除以1000，然后用新除以的小数替换当前单元格。

您可以设置一个

范围并对其进行迭代，以获得每个单元格值并用新值替换：

Private Sub DivideAndReplace()

Dim rng As Range
Set rng = ThisWorkbook.Sheets("Behavioral Data").Range("B2:B217")

For Each c In rng
    c.Value = c.Value / 1000
Next

End Sub

没有循环：

Sub divideandconquer()
    With Sheets("Behavioral Data").Range("B2:B217")
        .Value = Evaluate("=" & .Address & " / 1000")
    End With
End Sub

此工作簿中的每个q。工作表（“行为数据”）。范围（“B2:B217”）：q=q/1000:Next