我目前正在 Excel 中创建一个电子表格,并为复制的所有内容设置标准。我输入的一些文本与我想要的格式不同。
我想要的格式例如:233 X 223 X 34
传入的数据通常是:233x233x34
有什么方法可以将文本转换为我想要的格式吗?
答案1
在工作表代码区域中包含以下事件宏:
Private Sub Worksheet_Change(ByVal Target As Range)
Dim r As Range
Application.EnableEvents = False
For Each r In Target
v = r.Value
If InStr(1, v, "X") > 0 Then
r.Replace "X", " X "
r.Replace " X ", " X "
End If
Next r
Application.EnableEvents = True
End Sub