vba处理带-的编号

有时候在execl表中出现一些编号，比如检查井号，有的编写为WD12，也有的人写成WD-12，为了统一规范为WD-12。这需要用vba处理井号的编码，即在WD和12中间加上-，有时有人也写成WD12-5的子编号，那也要统一成WD-12-5这样。代码如下:

Public Function cljh(str As String)

Dim result As String

Dim i As Integer

Dim j As Integer

result = ""

For i = 2 To Len(str)

        If IsNumeric(Mid(str, i, 1)) Then

          If Not IsNumeric(Mid(str, i - 1, 1)) And Mid(str, i - 1, 1) <> "-" Then

            j = i

          End If

        End If

Next i

cljh = Left(str, j - 1) & "-" & Right(str, Len(str) - j + 1)

End Function

在表格中直接用cljh()函数就能改变。