小弟寫了一個程式
是將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有新資料就和該事件無關吧。