[已解决]用vba如何解决输入姓名时没有空格

ws278106483

1. Private Sub Worksheet_SelectionChange(ByVal Target As Range)
   
2. If ActiveCell.Column <> 1 Then Exit Sub
   
3. 
   
4.     ActiveCell.Replace What:=" ", Replacement:="", LookAt:=xlPart, SearchOrder:= _
   
5.         xlByRows
   
6. End Sub
   

复制代码

ws278106483

楼主，看下代码可以不？