如何将单元格里多个名字分列成一个名字一个单元格

jyy165

如何将单元格里多个名字，分列成一个名字一个单元格，急求！！！！！在线等

zenganiu2000

数据－分列－分隔符选其他，设置为\

johnny05

试下这个，

Sub t()
Dim arr
arr = Split(Sheet1.Range("b1") & "\", "\")
Sheet1.Range("C4").Resize(UBound(arr), 1) = Application.WorksheetFunction.Transpose(arr)
End Sub

[ 本帖最后由 johnny05 于 2009-3-7 09:56 编辑 ]

jyz6620

第一步,数据-分列-固定宽度;第二步,在每个名字间隔处单击形成分列;第三步,查找\,贴换为空值,第四步,复制-选择性粘贴-转置就ok了!笨了点,但可以形成你要的效果!