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中使用Copy和Paste，因为它比仅仅与单元格本身通信要慢得多，如果你想简单地替换从{{1}运行的单元格中的公式}到列R3的最后一行，然后改用：

Answer 2

如果您只想将范围转换为值：

    $.ajax({
    url: 'foo/bar',
    ...
    headers: {
       'key[0]':'value[0]',
       'key[1]':'value[1]',
            (to n times)
   },
   ...
});

Answer 3

尝试一下

abbreviate

复制并粘贴失败vba

3 个答案: