我正在使用以下VBA宏复制excel中的单元格。我如何修改它，以便只复制vales而不复制格式

正如BigBen所说，使用range的.value属性只复制range的值

Sub ButtonCode()
    Dim ws1 As Worksheet, ws2 As Worksheet
    Dim DestRow As Long
    Set ws1 = Sheets("RA REQUEST FORM")
    Set ws2 = Sheets("ACTIVE CREDITS")
    DestRow = ws2.Cells(Rows.Count, "A").End(xlUp).Row + 1
    ws1.Range("A22").Copy ws2.Range("A" & DestRow)
    ws1.Range("D11").Copy ws2.Range("B" & DestRow)
    ws1.Range("C18").Copy ws2.Range("E" & DestRow)
    ws1.Range("C19").Copy ws2.Range("G" & DestRow)

---

您也可以使用

ws1.Range（“A22”）.Copy

和

ws2.Range（“A”&DestRow”）.PasteSpecial xlValues

，但这很烦人，因为代码会清除剪贴板上的任何内容。

ws2.Range（“A”&DestRow.Value=ws1.Range（“A22”）.Value

。。。诸如此类。谢谢，但这给了我以下错误：运行时错误1004范围类的复制方法失败不要紧…这工作得很好！谢谢！：）谢谢，谢谢！工作得很好！！

Sub ButtonCode()

    Dim ws1 As Worksheet, ws2 As Worksheet
    Dim DestRow As Long
    Set ws1 = Sheets("RA REQUEST FORM")
    Set ws2 = Sheets("ACTIVE CREDITS")
    DestRow = ws2.Cells(Rows.Count, "A").End(xlUp).Row + 1
    ws2.Range("A" & DestRow).value = ws1.Range("A22").value
    ws2.Range("B" & DestRow).value = ws1.Range("D11").value
    ws2.Range("E" & DestRow).value = ws1.Range("C18").value
    ws2.Range("G" & DestRow).value = ws1.Range("C19").value

End Sub