如何修改VBA代码将Excel A列对数计算结果写入B列？

你只需要调整代码中赋值的目标单元格，把原本覆盖A列的逻辑改成写入对应行的B列即可，具体改动如下：

原代码 #

Private Sub Log_transform_Click()
Dim rng As Range

Set rng = Range("A2:A41")

For Each cell In rng
cell.Value = Log(cell.Value)
Next cell

End Sub

修改后的代码 #

Private Sub Log_transform_Click()
Dim rng As Range

Set rng = Range("A2:A41")

For Each cell In rng
    ' 定位到当前单元格右侧1列的B列单元格
    cell.Offset(0, 1).Value = Log(cell.Value)
Next cell

End Sub

关键说明 #

• cell.Offset(0,1) 表示相对于当前A列单元格，偏移0行、1列的单元格，也就是同一行的B列单元格，这样既保留了A列的原始数据，又能把对数计算结果写入对应的B列位置。

内容的提问来源于stack exchange，提问作者user4356954