如果字母与数字相邻，请添加空格

我试图统一我收到一个大的.xlsx文件的格式。

我发现的一个问题是，有“唯一的代码”是“00UTract 32”，“132Unit 359”，“5555UT22”……然后我发现我们是“00 UTract 32”，“单元359,132“和”22UT，5555“。

正如你可能怀疑的那样，有重复的，我确认是这样的。

那么，每当我在一个数字旁边find一个字母时，我应该如何增加一个空格，这样我就可以轻松地清理垃圾了？

谢谢！！！

Answer 1

select您希望检查/更正的单元格并运行此macros：

Sub DataFixer() Dim r As Range, DoIt As Boolean Dim temp As String, CH As String, v As String Dim i As Long, L As Long For Each r In Selection temp = "" DoIt = False v = r.Value L = Len(v) CH = Mid(v, 1, 1) temp = CH For i = 2 To L CH = Mid(v, i, 1) If IsNumeric(Right(temp, 1)) And CH Like "[a-zA-Z]" Then DoIt = True temp = temp & " " End If temp = temp & CH Next i If DoIt Then r.Value = temp Next r End Sub 

macros检查每个select的单元格是否出现：

 {number}{letter} 

并将其replace为：

 {number} {letter} 

Answer 2

我可能会做另一种方式， 假设唯一的区别是空格。 只需删除该列中的所有空格 ，就可以得到相同的值，而不必处理检查string中的每个字符。

这可以通过CTRL + H完成，不需要在其中引入VB。