有时候在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
有时候在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()函数就能改变。
