求助一段代码

查找替换

110高 替换成-？这样操作之后数据有啥意义？

按 alt+F11 打开编辑界面，代码复制进去即可
function Workbook_SheetChange(Sh, rg) {
if (Sh.Name != "Sheet1" || rg.Column !=1) return
if (rg.Row < 2 || rg.Value2 ==null) return
Application.EnableEvents=false;
rg.Value2 = rg.Value2.match(/\W\d+/g).join("-");
Application.EnableEvents=true
}

稍微改一下就行
function Workbook_SheetChange(Sh, rg) {
if (Sh.Name != "Sheet1" || rg.Column !=1) return
if (rg.Row < 2 || rg.Value2 ==null) return
Application.EnableEvents=false;
rg.Value2 = '高'+rg.Value2.match(/\d+/g).join("-");
Application.EnableEvents=true
}

为啥我复制进来是这样的

复制到sheet1里面
Private Sub Worksheet_Change(ByVal Target As Range)
Dim reg As Object, mh As Object, str$, item
Set reg = CreateObject("vbscript.regexp")
If Target.Column <> 1 Or Target.Row < 2 Then End
If Target.Value = "" Then End
Application.EnableEvents = False
With reg
.Global = True
.Pattern = "\d+"
Set mh = .Execute(Target.Value)
For Each item In mh
If str = "" Then
str = item
Else
str = str & "-" & item
End If
Next item
End With
Target.Value = "高" & str
Application.EnableEvents = True
End Sub

粘贴到 thisworkbook里面
Option Explicit
Private Sub Workbook_SheetChange(ByVal Sh As Object, ByVal Target As Range)
If Target.Column <> 1 Or Target.Row < 2 Then End
If Target.Rows.Count = Rows.Count Then End
Dim reg As Object, mh As Object, str$, item, rng As Range
Set reg = CreateObject("vbscript.regexp")
With reg
.Global = True
.Pattern = "\d+"
For Each rng In Target
If Len(rng.Value) = 0 Then End
Set mh = .Execute(rng.Value)
str = ""
For Each item In mh
str = str & "-" & item
Next item
Application.EnableEvents = False
rng = "高" & Mid(str, 2)
Application.EnableEvents = True
Next rng
End With
End Sub