Question

我对VBA非常新手，我解决了一些棘手的问题，除了这个似乎很容易的问题。

在我的工作表上（＆＃34;行为数据＆＃34;）我在单元格范围内有数字（＆＃34; B2：B217＆＃34;），例如＆＃34; 125,1590,0,3343，等＆＃34。

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

Answer 1

没有循环：

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

Answer 2

您可以设置Range并对其进行迭代，以获取每个单元格值并将其替换为新值：

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

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

2 个答案: