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

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

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

我想把这些数字除以1000，然后用新的小数点replace当前的单元格。

Answer 1

你可以设置一个Range并迭代它，以获得每个单元格的值并将其replace为一个新的值：

 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 

Answer 2

没有循环：

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