Private Sub:方法'select'作用于对象'range'时失败

纪大岚 · 发表于 2024-7-18 22:42

目的：把05区内容复制到，01区和09区。
但是出现错误。
请大佬指正！谢谢！！！

Private Sub CommandButton1_Click()
Sheets("(05区)").Activate
Range("A1:B3").Select
Selection.Copy
Sheets("(01区)").Activate
Range("Q1").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlPasteSpecialOperationNone, SkipBlanks:=False, Transpose:=False
Sheets("(09区)").Activate
Range("Q1").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlPasteSpecialOperationNone, SkipBlanks:=False, Transpose:=False
End Sub

剑指E · 发表于 2024-7-19 00:21

ynzsvt · 发表于 2024-7-19 06:25

把代码放在模块而不是工作表

纪大岚 · 发表于 2024-7-19 07:57

剑指E 发表于 2024-7-19 00:21

Private Sub CommandButton1_Click()
Sheets("(05区)").Activate
Range("A1:B3").Select
Selection.Copy
Sheets("(01区)").Activate
Range("Q1").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlPasteSpecialOperationNone, SkipBlanks:=False, Transpose:=False
Sheets("(09区)").Activate
Range("Q1").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlPasteSpecialOperationNone, SkipBlanks:=False, Transpose:=False
End Sub

麻烦再帮我改一下，您的那个运行不了

边缘码农 · 发表于 2024-7-19 09:45

Private Sub CommandButton1_Click()
Sheets("(05区)").Select
Sheets("(05区)").Range("A1:B3").Select
Application.CutCopyMode = False
Selection.Copy
Sheets("(01区)").Select
Range("Q1").Select
ActiveSheet.PasteSpecial
Sheets("(09区)").Select
Sheets("(09区)").Range("Q1").Select
ActiveSheet.PasteSpecial
End Sub

这样在我这可以运行，不知道实际什么情况。

纪大岚 · 发表于 2024-7-19 11:01

边缘码农发表于 2024-7-19 09:45
Private Sub CommandButton1_Click()
Sheets("(05区)").Select
Sheets("(05区)").Range("A1:B3") ...

谢谢！！！这次能用了！！！

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

[求助] Private Sub:方法'select'作用于对象'range'时失败