如何使用公式複製包含公式的列，並使用VBA將這些值粘貼到同一列中？

Question

​​3210

我想要做的就是刪除VLOOKUP公式，方法是在「H2」開始的同一列中粘貼值，並在其中包含公式的最後一個單元處結束。

Answer 1

With Worksheets("MoM").Range("H2", Worksheets("MoM").Range("H65536").End(xlUp)) 
    .Value = .Value 
End With 

Answer 2

你有沒有工作？如果你想刪除的公式，但保留值，超快速的方式就是平等的範圍內設定自己：

Dim lastRow& 
With Sheets("MoM") 
    lastRow = .Cells(.Rows.Count,8).End(xlUp).Row 
    .Range("H2:H" & lastRow).Value = .Range("H2:H" & lastRow).Value 
End With