我正在尝试在一个目标中创建 2 个单独的 excel 宏，我知道这很难答案

【问题标题】：I'm trying to create 2 separate excel macros in one goal which is quite tough i know我正在尝试在一个目标中创建 2 个单独的 excel 宏，我知道这很难
【发布时间】：2013-11-22 17:29:31
【问题描述】：

第一个宏 转到键入的单元格引用（类似于 F5），但是我坚持以下；

公共子 Cellgoto()

Application.Goto 参考：="由用户输入"

结束子

单独的第二个宏

目的：执行第一个宏后，转到我想要的行列，或指定的单元格。然后我希望有另一个宏来提示用户将公式粘贴到新的文本/输入框。反过来它将粘贴到指定的单元格（从第一个宏）。这真的很难，我很卡住..

需要天使！

【问题讨论】：

创建第一个宏的原因是因为很难有一个绝对的 $ 用于必须更改的行和相对的列。其中相对列的 (nth jump = 5) 按字母顺序依次跟随，即 A,B,C,D,E,F,G,H,I 而不是 Sheet1A$4,Sheet1E$4,Sheet1I$4
用户会以 R1C1 表示法还是常规表示法输入单元格引用？
第一个宏的用途是什么？为什么不只是 Ctrl+G ？对于 #2，尝试录制宏，看看是否可以修改生成的代码。

标签： vba excel

【解决方案1】：

这是您的宏。我刚刚编写了代码并对其进行了测试，它可以工作。希望对您有所帮助！

Sub GotoCellAndEnterFormula()

Dim strGotoCell As String
Dim strFormula As String

    strGotoCell = InputBox("Enter a Cell Reference (ex: B10 )", "Goto Cell")

    If strGotoCell <> "" Then
        Application.Goto Reference:=Range(strGotoCell)
        strFormula = InputBox("Enter a Formula (ex: = SUM(A1,A2) )", "Formula Entry")

        If strFormula <> "" Then
            ActiveCell.Formula = strFormula
        End If

    End If

End Sub

【讨论】：

感谢 shiva，它将减轻我的大量体力劳动。我会尝试看看我是否可以处理#2 宏。上帝保佑你
@user3022697 我上面的答案代码也有 #2 宏的代码。就是这些台词。 strFormula = InputBox("输入一个公式 (ex: = SUM(A1,A2) )", "Formula Entry") If strFormula "" Then ActiveCell.Formula = strFormula End If