具體的 CODE 請進

原數據範圍是 C1 ~ C1000, D1~D1000, E1~E1000.

按照您自己的要求,自己去修改一下就 OK 了.


Private Sub Worksheet_Change(ByVal Target As Excel.Range)

If Mid(Target.Address, 2, 1) = "C" Or Mid(Target.Address, 2, 1) = "D" Or Mid(Target.Address, 2, 1) = "E" Then

Application.EnableEvents = False

Range("C1:C1000").Select
Selection.Copy
Range("A1").Select
Selection.PasteSpecial Paste:=xlValues, Operation:=xlNone, SkipBlanks:=False, Transpose:=False

Range("D1:D1000").Select
Selection.Copy
Range("A1001").Select
Selection.PasteSpecial Paste:=xlValues, Operation:=xlNone, SkipBlanks:=False, Transpose:=False

Range("E1:E1000").Select
Selection.Copy
Range("A2001").Select
Selection.PasteSpecial Paste:=xlValues, Operation:=xlNone, SkipBlanks:=False, Transpose:=False

Columns("A:A").Select
Selection.Sort Key1:=Range("A1"), Order1:=xlAscending, Header:=xlGuess, OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom

Application.EnableEvents = True


End If


End Sub

所有跟帖： 

• 感謝真源湛寂的指教！ -laohutuchong- ♂ (634 bytes) () 10/17/2006 postreply 09:00:57

• 有點擔心 -真源湛寂- ♂ (206 bytes) () 10/17/2006 postreply 09:47:59

• 好的，我會按照您所說的去嚐試。感激不盡！ -laohutuchong- ♂ (0 bytes) () 10/17/2006 postreply 11:31:17