请添加代码粘贴时只要数值不要公式

19770405jj · 发表于 2014-5-1 10:55

Sub 按钮9_单击()
Range("u11:ad14").Select
  Selection.Copy Destination:=Range("c11")
  Range("u15:ad15").Select
  Selection.Copy Destination:=Range("c17")
  Range("u16:ad17").Select
  Selection.Copy Destination:=Range("c22")

End Sub

19770405jj · 发表于 2014-5-1 11:40

已解决Sub 按钮9_单击()
  Range("u11:ad14").Copy
  Range("c11").PasteSpecial Paste:=xlPasteValues
  Range("u15:ad15").Copy
  Range("c17").PasteSpecial Paste:=xlPasteValues
  Range("u16:ad17").Copy
  Range("c22").PasteSpecial Paste:=xlPasteValues
End Sub

kaso · 发表于 2014-5-28 17:23

也许这个更简单，呵呵

Sub 粘贴()
[c11].Resize(4, 10) = [u11:ad14].Value
[c17].Resize(1, 10) = [u15:ad15].Value
[c22].Resize(2, 10) = [u16:ad17].Value
End Sub

复制代码

		自动登录	找回密码
密码			免费注册