[hide] Sub justtest() Dim i& For i = 1 To Cells(Rows.Count, 1).End(3).Row Cells(i, 2).Resize(1, 2) = Split(Replace(Cells(i, 1).Value, "系", "系" & vbTab), vbTab) Next End Sub
[hide] Sub justtest() Dim i& For i = 1 To Cells(Rows.Count, 1).End(3).Row Cells(i, 2).Resize(1, 2) = Split(Replace(Cells(i, 1).Value, "系", "系" & vbTab), vbTab) Next End Sub