桩号的格式为：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
一个图片
