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

我所要做的就是删除VLOOKUP公式，方法是将值粘贴在同一列中，从“H2”开始，到最后一个单元格结束，其中包含一个公式

您所拥有的东西是否有效？如果要删除公式，但保留值，超快速的方法是将范围设置为等于自身：

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

---

你所拥有的东西不起作用吗？如果要删除公式，但保留值，超快速的方法是将范围设置为等于自身：

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

---

它一直在说“应用程序定义的或对象定义的错误”，出于某种原因，它仍然带来了一个错误……是否有其他方法可以选择整个列并将值粘贴到公式上？@Hags-您是否发布了所有代码？如果没有，请发布其余内容（编辑到您的OP中）。它在哪一行显示错误？你有一个叫做“MoM”的工作表吗？

.Range（“H2:H”）

没有结束行。我不想麻烦，在分配值时，它不需要花太多时间来简单地

.Range（“H2:H”和.Rows.Count）。Value

它一直说“应用程序定义的或对象定义的错误”出于某种原因，它仍然会带来一个错误……是否有其他方法可以选择整个列并将值粘贴到公式上？@Hags-您是否发布了所有代码？如果没有，请发布其余内容（编辑到您的OP中）。它在哪一行显示错误？你有一张名为“MoM”的工作表吗？

.Range（“H2:H”）

没有结束行。我不想麻烦，在分配值时，它不会花费太多时间来简化

.Range（“H2:H”和.Rows.Count）。Value

很好，我一直保持它的简单性，但我喜欢你在范围内完成

.end（xlUp）

的方式。很好，我一直很简单，但我喜欢你在这个范围内使用

.End（xlUp）

的方式。

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