☰

将单元格从一张纸复制到另一张纸而不格式化

tag-icon • tag-icon microsoft-excel worksheet-function microsoft-excel-2010 vba microsoft-excel-2007
将单元格从一张纸复制到另一张纸而不格式化

对于您的天才来说，这可能很简单，但是我需要一双全新的眼睛，因为我已经研究了一段时间，但还是找不到我的错误。我只是想将单元格的内容从一个单元格复制到另一张表上的另一个单元格，但我不想让所有格式都随之改变，只希望值随之改变。

我的代码如下

  Range("H" & Target.Row).Copy Destination:=Sheets("Accepted Template").Range("P4").PasteSpecial Paste:=xlPasteValues

知道我在这里做错了什么吗？ VBA 不断抛出意外的结束错误。

答案1

您可以尝试此代码，从工作表 1 复制格式化的单元格值并粘贴到工作表 2 中的目标单元格中​​，不进行格式化（仅值）。

Private Sub CommandButton1_Click()
Sheets("Sheet1").Range("A3").Copy
Sheets("Sheet2").Range("A3, A4").PasteSpecial Paste:=xlPasteValues
Application.CutCopyMode = False
End Sub

注意：

  • 如果要复制格式化的范围，则2用以下代码替换代码中的行，Sheets("Sheet1").Range("A3:A10").Copy

在此处输入图片描述

笔记，

  • 该代码也可用作标准模块。
  • 只是为了特意测试代码，我使用了 2 个目标单元，您可以使用一个或多个。
  • 甚至可以通过使用 特殊粘贴和价值选择也行。

相关内容