01.數(shù)字轉(zhuǎn)樁號

樁號的格式為：Kd+d，其中d是數(shù)字。

如何將左邊的數(shù)字轉(zhuǎn)換為樁號
選中需要轉(zhuǎn)換的單元格區(qū)域，點擊轉(zhuǎn)換為樁號按鈕即可

代碼如下：

Sub 數(shù)字轉(zhuǎn)樁號()
    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
一個圖片
最后編輯于 ：
?著作權(quán)歸作者所有,轉(zhuǎn)載或內(nèi)容合作請聯(lián)系作者
【社區(qū)內(nèi)容提示】社區(qū)部分內(nèi)容疑似由AI輔助生成，瀏覽時請結(jié)合常識與多方信息審慎甄別。
平臺聲明：文章內(nèi)容（如有圖片或視頻亦包括在內(nèi)）由作者上傳并發(fā)布，文章內(nèi)容僅代表作者本人觀點，簡書系信息發(fā)布平臺，僅提供信息存儲服務(wù)。

相關(guān)閱讀更多精彩內(nèi)容

友情鏈接更多精彩內(nèi)容