Question

我希望你能帮我查询一下。我试图基本上创建一个宏，它在单元格中查看公式，将其复制到下面的单元格，然后仅将值复制/粘贴到原始单元格。从本质上讲，它从第一个单元格中获取数据，将其复制下来，然后将值保留在原始单元格中。这正在与VLOOKUP一起使用，所以理论上人们会这样做：

搜索术语

公式VLOOKUP的数据并将其弹出单元格，例如A2。

要再次搜索，他们会按下此宏按钮，这样只会生成A2特殊值，但公式会向下移动到下面的单元格。

这样可以保留A2的结果，但搜索会再次发生。

有任何帮助吗？我对Macro的表现不太好，试图通过它并没有成功。

谢谢

Answer 1

快速而肮脏的例子让你入门

Sub Example()
    Dim c
    With ActiveCell.EntireRow
        For Each c In .SpecialCells(xlCellTypeFormulas)
            c.AutoFill Destination:=Range(c, c.Offset(1, 0))
            c.Value2 = c.Value2
        Next c
    End With
End Sub

Answer 2

我想你正在寻找这个：

Sub FormulaDown()
  Dim val
  val = ActiveCell.Value
  ActiveCell.Offset(1, 0).Formula = ActiveCell.Formula
  ActiveCell.Value = val
End Sub

使用宏移动VLOOKUP并重置搜索栏

2 个答案: