你的位置：
首页
>
IT圈
>
根据一个经纬度,找到距离最近的基站
2024年6月12日发(作者：第五心诺)
Range("B1").Activate
eets("Sheet1").
eets("Sheet1"). Key:=Range("B1"), _
SortOn:=xlSortOnValues, Order:=xlAscending, DataOption:=xlSortNormal
With eets("Sheet1").Sort
.SetRange Range("A:B")
.Header = xlNo
.MatchCase = False
.Orientation = xlTopToBottom
.SortMethod = xlPinYin
.Apply
End With
End Sub
2024年6月12日发(作者：第五心诺)
Range("B1").Activate
eets("Sheet1").
eets("Sheet1"). Key:=Range("B1"), _
SortOn:=xlSortOnValues, Order:=xlAscending, DataOption:=xlSortNormal
With eets("Sheet1").Sort
.SetRange Range("A:B")
.Header = xlNo
.MatchCase = False
.Orientation = xlTopToBottom
.SortMethod = xlPinYin
.Apply
End With
End Sub