选中要进行处理的这个单元格，运行下面的宏。
Sub 分行()
x = Selection.Value
For i = 1 To Len(x) Step 3
y = y & Mid(x, i, 3) & vbCrLf
Next i
Selection.Value = y
End Sub
bb = Application.WorksheetFunction.RoundUp(Len(Cells(3, 5)) / 3, 0)
strl = ""
For i = 0 To bb - 1
strl = strl & Mid(Cells(3, 5), i * 3 + 1, 3) & vbCrLf
Next
Cells(3, 5) = strl
B1=mid($a$1,row()*3-2,3) 下拉
内容全部来源于网络收集，如有侵权，请联系网站删除：QQ：24596024