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

Question

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

我只想删除 VLOOKUP 公式，方法是将值粘贴到同一列中，从 "H2" 开始，到最后一个包含公式的单元格结束。

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

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

How can I copy a column with formulas and paste those values in the same exact column using VBA?

excel

vba

paste