将单元格中换行符数据拆分为多列

yanwei82123300

将单元格中换行符数据拆分为多列“
附件是我公司的oracle系统导出的报告，发现单元格内含有多个换行符，请老师们帮助看看能否依据换行符拆分为多列，感谢

tmtony

写个自定义函数，使用split  拆分，分隔符使用 vbcrlf   或 vbcr

yanwei82123300

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