excel,需要一个宏，可以将名字是两个字的中间自动加空格与三个字名字的保持一齐，只要宏，其他方式不需要

excel,需要一个宏，可以将名字是两个字的中间自动加空格与三个字名字的保持一齐，只要宏，其他方式不需要

Sub test()
dim str as string
  for i = 1 to [A65536].end(3).row
         str=range("A" & i)
      if len$(str)=2 then
           range("A" & i)=mid(str,1,1) &"  "&mid(str,2,1)
      else
           range("A" & i)=str
      end if 
   next
 end sub 假设你的名字列在A列，如果其他列自己改，从第一行开始循环。