使用公式范围内的每个单元格并将结果返回到同一单元格中？

Question

我认为这应该很容易，但是 - 如何从范围中的每个单元格中提取值，将该值放在公式中，并将结果返回到原始值来自的同一单元格中？ 示例:(简化:-)） 我已经在一个范围内输入了值（比如A1：A3）：A1=2.1 ; A2=0.78 ; A3=1.1。我在D1中也有一个特定的因素，例如： D1 = 0.4，以及我想要使用的特定公式：exp(ln(value)/factor)。我想做的是：

1. 提取A1 (=2.1)和
中的值
2. 将其与D1 (=exp(ln(2.1)/0.4))
中的因子一起放入公式中
3. 并将结果放回A1 (=6.39)

......等A2 (=0.54), A3 (=1.27) ......

由于我的范围非常大，覆盖了几张，我在考虑某种“为每个范围内的细胞（myRange）”功能，但我还没能弄明白......

Answer 1

要完成此操作，请尝试以下操作：

Dim rng As Range, Cell As Range

然后设置Range：

Set rng = Range("A1:A3")

然后开始For Each循环：

For Each Cell In rng  
     Cell = Exp(Log(Cell)/Range("D4"))
Next Cell