Excel 修改值而不创建新列_Excel_Vba

Excel 修改值而不创建新列

excel vba

Excel 修改值而不创建新列,excel,vba,Excel,Vba,我想用一个公式的结果替换单元格的值，这个公式引用单元格本身。我试图允许循环引用（1个循环），但没有帮助假设我在单元格A1（和下面的单元格）中有一个数字，我想用以下公式替换它的内容：=A1/60（本列其余部分也是如此）当然，我可以在旁边添加一个新的专栏，但我希望在不插入新专栏的情况下实现这一点。或者可以创建一些自动化程序，在很远的地方添加一个新的，执行一些操作，然后将其删除。选择要更改的单元格并运行这个小宏： Sub FormulaMaker() Dim V As Variant

我想用一个公式的结果替换单元格的值，这个公式引用单元格本身。我试图允许循环引用（1个循环），但没有帮助

假设我在单元格

A1

（和下面的单元格）中有一个数字，我想用以下公式替换它的内容：

=A1/60

（本列其余部分也是如此）

当然，我可以在旁边添加一个新的专栏，但我希望在不插入新专栏的情况下实现这一点。或者可以创建一些自动化程序，在很远的地方添加一个新的，执行一些操作，然后将其删除。

选择要更改的单元格并运行这个小宏：

Sub FormulaMaker()
    Dim V As Variant
    Dim r As Range
    For Each r In Selection
        V = r.Value
        If V = "" Then V = 0
        r.Formula = "=" & V & "/60"
    Next r
End Sub

宏非常易于安装和使用：

ALT-F11将显示VBE窗口

ALT-I ALT-M打开一个新模块

粘贴内容并关闭VBE窗口

如果保存工作簿，宏将与工作簿一起保存。如果在2003年以后使用Excel版本，则必须保存文件的格式为.xlsm而不是.xlsx

要删除宏，请执行以下操作：

如上所述打开VBE窗口

清除代码

关闭VBE窗口

要使用Excel中的宏，请执行以下操作：

ALT-F8

选择宏

触跑

要了解有关宏的更多信息，请参阅：

及

必须启用宏才能工作

选择要更改的单元格并运行此小宏：

Sub FormulaMaker()
    Dim V As Variant
    Dim r As Range
    For Each r In Selection
        V = r.Value
        If V = "" Then V = 0
        r.Formula = "=" & V & "/60"
    Next r
End Sub