vba - vba复制粘贴失败

Question

我正在尝试复制一个范围并使用 vba 将其粘贴为值，但​​它似乎逐步执行代码，但没有执行任何操作，因为运行后我仍然有公式。

R 列和 S 列是唯一有公式的地方，我尝试了 F8，但它逐步完成所有内容，只是没有完成其工作？也许我粘贴为值时得到了错误的代码，但它们就在这里。所有列都具有相同的行数。所以没有错误只是没有复制并粘贴为值。

如果有人可以推荐一种更有效的方法来仅将范围复制并粘贴为值，也请分享。

Sub test()
 Dim ws2 As Worksheet
 Dim LR3 As Long
Set ws2 = Worksheets("BRST")
LR3 = ws2.Cells(ws2.Rows.Count, "R").End(xlUp).Row
ws2.Range("R3", "S" & LR3).Copy
ws2.Range("R3", "S" & LR3).PasteSpecial xlPasteValues
End Sub

Answer 1

您应该避免在 VBA 中使用复制和粘贴，因为如果您想简单地替换单元格中的公式，它比仅与单元格本身通信要慢得多从 R3 运行到 S 列的最后一行，然后使用以下代码:

Sub test()

Dim ws2 As Worksheet
Dim LR3 As Long

Set ws2 = Worksheets("BRST")
LR3 = ws2.Cells(ws2.Rows.Count, "R").End(xlUp).Row

ws2.Range("R3", "S" & LR3).Value = ws2.Range("R3", "S" & LR3).Value

End Sub