小弟写了一个程式
是将book1中的Sheet2的资料贴到Sheet1时
自动根据B栏数值由小到大排序整栏资料
程式码如下
Private Sub Worksheet_Change(ByVal Target As Range)
On Error Resume Next
If Not Intersect(Target, Range("B:B")) Is Nothing Then
Range("B1").Sort Key1:=Range("B2"), _
Order1:=xlAscending, Header:=xlYes, _
OrderCustom:=1, MatchCase:=False, _
Orientation:=xlTopToBottom
End If
End Sub
但是，将Sheet1资料贴到同在book1中的book3时
此宏就不会执行
我是觉得应是首两行的问题
也就是
Private Sub Worksheet_Change(ByVal Target As Range)
On Error Resume Next
这两行
但没什么头绪修改
想请问各位前辈怎修改了
感谢

Worksheet_Change 这个事件应该就是只有在唯独那个sheet发生变动才会启动吧，如果你事件是放在sheet1，那sheet3有新资料就和该事件无关吧。