具體的 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