如何使用公式复制包含公式的列，然后使用VBA将这些值粘贴到同一列中？

Sheets("MoM").Select Range("H2:H").Copy Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _ :=False, Transpose:=False Application.CutCopyMode = False 

我想要做的就是删除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