如何使用公式复制包含公式的列并使用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

你没有工作吗？如果你想删除公式，但保留值，一个超级快捷的方法是设置范围等于它自己：

import re
re.search('(.*?}/n})', string).group(0)
# 012za}/n}

Answer 2

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