使用VBA复制列并粘贴为值时出错

Question

它使我可以选择在最后一行进行调试。我刚刚手动结束了宏和粘贴的值，因为已经选择并复制了该列。

任何对我做错了事的见识都会受到赞赏。

'copies data column and pastes as value to get rid of formula in blank cells

lo.ListColumns(8).DataBodyRange.Copy
lo.ListColumns(8).DataBodyRange.Select
lo.ListColumns(8).DataBodyRange.PasteSpecial Paste:=PasteValue

Answer 1

您希望使用xlPasteValues而不是PasteValue。

尽管不进行复制/粘贴，但只需进行值转移即可：

With lo.ListColumns(8).DataBodyRange
    .Value = .Value
End With