Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Dim LmaxR As Long
LmaxR = Sheet1.Range("A65536").End(xlUp).Row
With Sheet1.Range("A2:E" & LmaxR)
.Sort key1:=Range("B1"), order1:=xlAscending, _
key2:=Range("D1"), order2:=xlDescending, _
Header:=xlYes
.Value = .Value
.Parent.[D1] = "价格"
End With
End Sub
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Dim LmaxR As Long
LmaxR = Sheet1.UsedRange.Row
With Sheet1.Range("D2:D" & LmaxR)
.CurrentRegion.Sort key1:=Range("B1"), order1:=xlAscending, _
key2:=Range("D1"), order2:=xlDescending, _
Header:=xlYes
.Value = .Value
.Parent.[D1] = "价格"
End With
End Sub
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Dim LmaxR As Long
LmaxR = Sheet1.Range("A65536").End(xlUp).Row
With Sheet1.Range("A2:E" & LmaxR)
.Sort key1:=Range("B1"), order1:=xlAscending, _
key2:=Range("D1"), order2:=xlDescending, _
Header:=xlYes
.Value = .Value
.Parent.[D1] = "价格"
End With
End Sub
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Dim LmaxR As Long
LmaxR = Sheet1.Range("A65536").End(xlUp).Row
With Sheet1.Range("A1:E" & LmaxR)
.Sort key1:=Range("B1"), order1:=xlAscending, _
key2:=Range("D1"), order2:=xlDescending, _
Header:=xlYes
.Value = .Value
.Parent.[D1] = "价格"
End With
End Sub