excel - 使用值复制和粘贴

Question

我希望这是一个简单的问题。我下面有以下代码。此代码复制 L 列并将其以值格式粘贴回 L 列。这样我就可以摆脱公式了。我的 Countif 代码需要它来计算 L 列中的月份数(一月、二月、三月等)。当我从宏屏幕运行此代码时，效果很好。当我从按钮运行它时，粘贴的值仅填充第一行和第二行，而 L 列中的其余行为空白。(有 600 多行)。关于为什么我的代码在宏屏幕上工作但在使用按钮时不起作用的任何想法？我想让它对我的同事来说是用户友好的。谢谢你，马特

  LastRow = Sheets("HR Data Detail").Range("A1048576").End(xlUp).Row
  Worksheets("HR Data Detail").Range("L2:L" & LastRow).Copy
  Worksheets("HR Data Detail").Range("L2").PasteSpecial Paste:=xlPasteValue
  Application.CutCopyMode = False

Answer 1

代码包含一个更标准的最后一行指示器，并且只需将列设置为等于它自己的值(更快的方法)。如果需要，您还可以轻松地在 With block 内进行一些格式化

<小时/>

Sub RemoveFormula()

Dim ws As Worksheet: Set ws = ThisWorkbook.Sheets("HR Data Detail")

Dim LRow As Long
LRow = ws.Range("L" & ws.Rows.Count).End(xlUp).Row

With ws.Range("L2:L" & LRow)
    .Value = .Value
End With

End Sub