如何使用VBA复制带有公式的列并将这些值粘贴到同一确切的列中？

Question

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

我想要做的就是通过将值粘贴在同一列中（从“ H2”开始，并在最后一个包含公式的单元格中结束）来删除VLOOKUP公式。

Answer 1

是你没工作吗？ 如果要删除公式，但保留值，一种超快速的方法是将范围设置为等于自身：

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

Answer 2

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