01.数字转桩号

桩号的格式为：Kd+d，其中d是数字。

如何将左边的数字转换为桩号

选中需要转换的单元格区域，点击转换为桩号按钮即可

代码如下：

Sub 数字转桩号()
    For Each r In Selection 
        If Application.WorksheetFunction.IsNumber(r.Value) Then 
            kp = Int(r.Value / 1000) 
            pp = r.Value Mod 1000 
            If pp > 100 Then '如果pp大于100，那么
                r.Value = "K" & kp & "+" & pp
            ElseIf pp > 10 Then 
                r.Value = "K" & kp & "+0" & pp
            ElseIf pp >= 0 Then
                r.Value = "K" & kp & "+00" & pp
            End If
        End If
    Next r
End Sub

一个图片