作者:乔山办公网日期:
返回目录:excel表格制作
1、把该单元格所在列的宽度调整为每一行的宽度
2、点击-开始-填充下拉-内容重排,确定即可 有的版本叫两端对齐
用到百了VBA,使用方法如下:
1、需为度office的Excel表格问,如果为WPS表格需安装宏插件
2、在表格界答面同时按alt+F11,插入-模块-粘贴版输入以下代码权
3、按F5运行代码
Sub main()
Dim i As Integer, r As Integer, fid As String, zid As String
r = 2
For i = 2 To [A65536].End(xlUp).Row
fid = Cells(i, 1).Value
zid = Cells(i, 2).Value
arr = Split(zid, "、")
For j = 0 To UBound(arr)
Cells(r, 4) = fid
Cells(r, 5) = arr(j)
r = r + 1
Next
Next
End Sub
选中要选择的一串横向的单元格--》
点击复制--》
选中要转多行的位置--》
点击“选择性粘贴”--》
勾选右下角“转置”
完成“将一行数据转换成多行”。
希望对你有帮助,望采纳。