excel怎样快速的中输入gps

发布网友 发布时间：2022-04-20 13:44

我来回答

共1个回答

热心网友 时间：2023-01-15 06:02

Private Sub Worksheet_Change(ByVal Target As Range)
'输入时：n32 47 84.4 e113 18 42.2 h150
Application.EnableEvents = False
Dim Rng As Range
On Error Resume Next
For Each Rng In Target
If Rng.Column = 2 And Rng.Row > 1 Then '*在第二列,且在第2行及以下才起作用
C = Split(Rng, " ")
Rng = UCase(C(0)) & "°" & C(1) & "′" & C(2) & "〃" & UCase(C(3)) & "°" & C(4) & "′" & C(5) & "〃" & UCase(C(6))
End If
Next
Application.EnableEvents = True
End Sub

在工作表标签处，右键，查看代码，将以上代码粘贴进去！
*在第二列，且在第2行及以下才起作用
'输入时：n32 47 84.4 e113 18 42.2 h150 中间用空格隔开
n32空格47空格84.4空格e113空格18空格42.2空格h150追问全部粘贴吗，然后怎么办
我是i菜鸟

追答上面的代码全部粘贴过去，然后在单元格中按格式输入就行了
输入时格式为：n32 47 84.4 e113 18 42.2 h150 中间用空格隔开