Office中国论坛/Access中国论坛

标题: 将单元格中换行符数据拆分为多列 [打印本页]

作者: yanwei82123300 时间: 2019-12-22 21:00
标题: 将单元格中换行符数据拆分为多列
将单元格中换行符数据拆分为多列“
附件是我公司的oracle系统导出的报告，发现单元格内含有多个换行符，请老师们帮助看看能否依据换行符拆分为多列，感谢

作者: tmtony 时间: 2019-12-23 17:04
写个自定义函数，使用split 拆分，分隔符使用 vbcrlf 或 vbcr

作者: yanwei82123300 时间: 2019-12-23 17:28

tmtony 发表于 2019-12-23 17:04
写个自定义函数，使用split 拆分，分隔符使用 vbcrlf 或 vbcr

感谢您的帮助，已经写了一个自定义函数
Sub mySplitter()
Dim ar_data, ar_tem
Dim i, j
ar_data = Sheet1.Range("C2:C" & Sheet1.Range("C1048576").End(xlUp).Row)
For i = 1 To UBound(ar_data)
ar_tem = Split(ar_data(i, 1), vbLf)
For j = 0 To UBound(ar_tem)
Sheet1.Range("C" & i + 1).Offset(0, j + 1) = ar_tem(j)
Next
Next

End Sub

欢迎光临 Office中国论坛/Access中国论坛 (http://www.office-cn.net/)