マクロを使用してVLOOKUPを移動し、検索バーをリセットしてください

Question

私はあなたに質問をしてくれることを願っています。私は基本的には、セル内の数式を見て、それを下のセルにコピーし、元のセルにのみ値をコピー/ペーストするマクロを作成しようとしています。基本的に、最初のセルからデータを取り出し、それをコピーして元のセルに保存します。人々は希望ので、これは理論的には、VLOOKUPで働いている：

検索用語

式はVLOOKUPのデータとセルにそれをポップするために、例えば、A2。

再度検索するには、このマクロボタンを押します。このマクロボタンを押すとA2の特別な値だけが表示されますが、数式は下のセルに移動します。

これにより、A2の結果は残っていますが、再度検索が行われます。

助けが必要ですか？私はマクロとあまり良くはありませんし、それを再生しようとすると成功につながりません。

は、私はあなたがこのために探していると思いますが

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 1

クイックや汚れ例をありがとう：

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

Answer 2

を始めるためにあなたに