也不懂得樓主會不會用vba， 用vba的話，樓主只要在A列中輸入樁號即可，格式和B列中的距離都將自動給出。 我先將這個方法說一下，不過在此之前，樓主得先將A列的格式設為常規或文字。 （1）在開啟excel的情況下，同時按下Alt和F11，這樣將開啟visual basic編輯器 （2）雙擊visual basic編輯器左上角的sheet1（這裡是假設你的表格在sheet1中，如果在其他的sheet中，雙擊相應的sheet即可） （3）貼上以下程式碼，然後關閉visual basic編輯器即可。 程式碼如下： Private Sub Worksheet_Change(ByVal Target As Range) If
Target.Column
Target.Value
也不懂得樓主會不會用vba， 用vba的話，樓主只要在A列中輸入樁號即可，格式和B列中的距離都將自動給出。 我先將這個方法說一下，不過在此之前，樓主得先將A列的格式設為常規或文字。 （1）在開啟excel的情況下，同時按下Alt和F11，這樣將開啟visual basic編輯器 （2）雙擊visual basic編輯器左上角的sheet1（這裡是假設你的表格在sheet1中，如果在其他的sheet中，雙擊相應的sheet即可） （3）貼上以下程式碼，然後關閉visual basic編輯器即可。 程式碼如下： Private Sub Worksheet_Change(ByVal Target As Range) If
Target.Column
= 1 Then If Mid(Target, 1, 1) <> "K" Then s =Target.Value
s1 = Mid(s, 1, Len(s) / 2) s11 = Mid(s1, 1, Len(s1) - 3) s12 = Mid(s1, Len(s1) - 2, 3) s2 = Mid(s, Len(s) / 2 + 1, Len(s) / 2) s21 = Mid(s2, 1, Len(s2) - 3) s22 = Mid(s2, Len(s2) - 2, 3) ss = "K" & s11 & "+" & s12 & "～" & "K" & s21 & "+" & s22 Target = ss Target.Offset(0, 1) = s2 - s1 End If End If End Sub 希望對你有幫助！