也许对您的天才来说很简单,但是我需要一双新鲜的眼睛,因为我已经有一段时间了,看不到我的错误。我只想将一个单元格的内容从一个单元格复制到另一张纸上的另一个单元格,但是我不希望所有格式都随它一起变化,只希望值与之匹配。
我的代码如下
Range("H" & Target.Row).Copy Destination:=Sheets("Accepted Template").Range("P4").PasteSpecial Paste:=xlPasteValues
知道我在这里做错了什么。VBA不断抛出意外的结束错误。
您可以尝试使用此代码将复制工作表1中的格式化的单元格值并将其粘贴到工作表2中的目标单元格/多个单元格,而不进行格式化(仅值)。
Private Sub CommandButton1_Click()
Sheets("Sheet1").Range("A3").Copy
Sheets("Sheet2").Range("A3, A4").PasteSpecial Paste:=xlPasteValues
Application.CutCopyMode = False
End Sub
NB
2
,请在此替换代码中的行,Sheets("Sheet1").Range("A3:A10").Copy
笔记,
本文收集自互联网,转载请注明来源。
如有侵权,请联系[email protected] 删除。
我来说两句