Excel 如何将公式值粘贴为文本？

我使用下面的VBA将数据粘贴为单个单元格B3的值

Sub pastevalues()
    Dim ws As Worksheet
    Set ws = Sheets("data")
    ws.Range("B3").Copy
    ws.Range("B3").PasteSpecial Paste:=xlPasteValues
    Application.CutCopyMode = False
End Sub

---

我想对列的范围做同样的操作。我如何才能做到这一点，而不是为每个单元格编写相同的公式。我想用这个公式从B3，C3，D3，E3，F3开始，直到它们对应的最后一个单元格

您可以使用这种方法来适应您的需要。单元格（行、列）而不是范围（“A1”）

---

以下步骤将获取当前范围选择中的所有单元格，并将任何公式转换为值。快速、简单、灵活

Sub PasteValues()
    Dim rngCell As Range
    For Each rngCell In ActiveWindow.RangeSelection
        rngCell.Value = rngCell.Value
    Next rngCell            
End Sub

---

如果我理解正确，请尝试将

ws.Range（“B3”）。复制到
ws.Range（“B3:F3”）。复制。。。那应该可以。。。。
Sub PasteValues()
    Dim rngCell As Range
    For Each rngCell In ActiveWindow.RangeSelection
        rngCell.Value = rngCell.Value
    Next rngCell            
End Sub